Help with this user function

[edward233]

Im having problems with this user function cant seem to get it working.
Any help would be appriciated.



FUNCTION jday(year, month As Integer, day As Integer, hour As Integer,min As Integer, sec As Double, Optional greg) As Double

' returns julian day number given date in gregorian calender (greg=1)
' or julian calendar (greg = 0). If greg ommited, then Gregorian is assumed.
Dim a As Double
Dim b As Integer
'a = 10000 * year' + 100 * month + day
If (a < -47120101) Then MsgBox "Warning: date too early for algorithm"
If (IsMissing(greg)) Then greg = 1
If (month <= 2) Then
month = month + 12
Year = Year - 1
End If
If (greg = 0) Then
b = -2 + Fix((Year + 4716) / 4) - 1179
Else
b = Fix(Year / 400) - Fix(Year / 100) + Fix(Year / 4)
End If
a = 365 * Year + 1720996.5
jday = a + b + Fix(30.6001 * (month + 1)) + day + (hour + min / 60 + sec / 3600) / 24

End FUNCTION


Ed

[r_vinoya]

[ooouser999]

I had a problem getting user defined functions when I had a text label that was the same as the user defined function name.

For example:
- put an integer in A2.
- in cell C1 put '="FOO"' (no single quotes).
- in Cell C2 put '=foo(a2)' (no single quotes).

The user defined function code:

Function FOO(x)

FOO = x * 5

end Function

This would seem to work, until I closed the document and re-open it. Then
I would get an error, which was either a "#REF!" error or occasionally Err:509. OOo appears to have changed the function call in C2 to: ='FOO'(A2). If you delete the text in C1 and correct the function call in C2, all becomes well.

[Villeroy]

There is an option like "row/col-header auto-detection" in Tools>Options>Calc>Calculation. Your setup (label = function name) stumbles on this "feature".
Turn it off.