document.write('
');
document.write('
');
document.write('function DateToLongJulian(Date: TDateTime): String;
');
document.write('var
');
document.write(' Year, Month, Day: Word;
');
document.write(' FirstDay, Today: Longint;
');
document.write('begin
');
document.write(' DecodeDate(Date, Year, Month, Day);
');
document.write(' FirstDay := DateToAbsolute(EncodeDate(Year, 1, 1));
');
document.write(' Today := DateToAbsolute(Date);
');
document.write('
');
document.write(' Result := FormatDateTime(\'yyyy\', Date) + FormatFloat(\'000\', Today - FirstDay + 1);
');
document.write('end;
');
document.write('
');
document.write('
');
document.write('
');