Hi Charles,
Jo, das ist eine sch�ne Funktion.
Danke nochmals f�r den Tipp.
Gr��e, Gudula
----- Original Message -----
From: "Charles Bischof" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, September 26, 2003 11:03 PM
Subject: AW: AW: [Coffeehouse] OT: Freitagnachmittag
> Hallo Gudula,
>
> //
> // ist bestimmt richtig, aber es soll mir ja nicht das Datum,
> // sondern die Zahlzuruckliefern.
> //
>
> 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 (c) 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
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
