Julianberechnung

[hesubat]

Delphi-Quellcode:

This function can only be called from the VwStreamSection function. 

VOID SOSetDataBase(

    DWORD dwBase,   
    WORD wFlags,   
    HPROC reserved   
   );   
 
Parameters

dwBase

Base number of Julian days to be automatically added to dates. All dates are entered in Julian day format in the following manner:

Jan. 1, 4713 B.C.   Julian Day 1
Jan. 1, 1 A.D.   Julian Day 1721424
Jan. 1, 1900   Julian Day 2415021
Jan. 1, 1904   Julian Day 2416481

Dieser Code ist also nicht direkt zu verwenden. Gibt es einen einfacheren Weg, wobei ich nicht an diversen Formeln denke, sondern an einen in Delphi implementierten Befehl?