Bok, molio bi pomoc u prebacivanju dodatka za Excel isprogramiranog za MS Excel da ga mogu koristiti u OpenOffice-u. Dodatak nije nešto kompliciran, obične matematičke f-je, ali ja jednostavno nisam "na ti" sa (Visual) Basicom.
Evo primjer jedne funkcije:
Code:
Function funkcija1(a As Variant) As Variant
Pi = 4*ATN(1)
If a < 0 And a * 100 <> Int(a * 100) Then
b = Int(a) + 1
c = ((Int((a - b) * 100) + 1) / 60) * (-1)
d = (((a - b) * 100 - (Int((a - b) * 100) + 1)) / 36) * (-1)
funkcija1 = (-b + c + d) * (-1) * Pi / 180
...
End If
End Function
Compile prođe OK, ali na RUN Basic zaokruži ovaj red:
Pi = 4*ATN(1)
i kaže: Read Error. This property is read-only.
Zamijenim ja to sa:
Pi= PI()
i tada prođe sve OK s tim redom, ali sad stane na sljedećem:
If a < 0 And a * 100 <> Int(a * 100) Then
i kaže: BASIC runtime error. Argument is not optional.
U samom izvođenju ovog "macroa" ne javlja nikakvu grešku, ali je ponavlja svakim ulaskom u BASIC editor.
Pretpostavljam da ga zanima što će napisati ako a ne postoji, ali ne znam kako to rješiti.
Hvala!