Hallo Gudula,
//
// ist bestimmt richtig, aber es soll mir ja nicht das Datum,
// sondern die Zahlzur�ckliefern.
//
Leider habe ich de Funktion nur in Pascal aber ich habe was in VB gefunden.
Vielleicht hilft Dir das weiter:
'----------------------------------
'Julian to Date to Julian Snippet
'----------------------------------
' Copyright � 2003 - Tedder Reed
'----------------------------------
' Author:
' Tedder Marshall Reed
' Date:
' May 20, 2003
' Purpose:
' The following snippets will
' convert standard date to it's
' modern business Julian(YYYYddD)
' equivelant and back. The modern
' business Julian is not to be
' confused with the business Julian
' ' (CYYddD) format which can be
' troublesome with century-spanning
' ' calculations.
'----------------------------------
Private Function DateToJulian(ByVal Date As Date) _
As Long
' Return the julian date
DateToJulian = (DatePart("yyyy", Date) * 1000) _
+ DatePart("y", Date)
End Function
Private Function JulianToDate(ByVal Julian As _
Long) As Date
Dim lngYear As Long
Dim lngDay As Long
' Break out the year and day components
lngDay = Julian Mod 1000
lngYear = (Julian - lngDay) / 1000
' Return the standard date
JulianToDate = DateAdd("d", lngDay, _
DateSerial(lngYear - 1, 12, 31))
End Function
Charles
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
