[fpc-devel] dateutils: ...julian...

[Gerhard Scholz]

I have seen, that the Julian-Routines in dateutils are a little bit
incomplete.

Since I have a working Julian (and the other way round: nailuJ) -function, I
could integrate them, or deliver the functions so somebody else who wants to
integrate them.

For integrating I would need more information about the parameters,
especially the meaning of the double,
and: which day has a julian value of 1 (in my routines 1.1.1600 is the base)

What is JulianDate vs. ModifiedJulianDate?

Function DateTimeToJulianDate(const AValue: TDateTime): Double;
Function JulianDateToDateTime(const AValue: Double): TDateTime;
Function TryJulianDateToDateTime(const AValue: Double; var ADateTime:
TDateTime): Boolean;

Function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;
Function ModifiedJulianDateToDateTime(const AValue: Double): TDateTime;
Function TryModifiedJulianDateToDateTime(const AValue: Double; var
ADateTime: TDateTime): Boolean;

Gerhard