Delphi -Tagesnummer eines beliebigen Datums ermitteln

[Wolfgang Mix]

Hin und wieder benötige eine Funktion, die mir zu einem beliebigen Datum die Tagesnummer von Delphi liefert. Mein Vorschlag wäre diese von mir:

Delphi-Quellcode:

//Wolgang Mix - Delphi-PRAXiS
function delphidateasnumber(y,m,d:integer):string;
var mydate:TDate;
begin
  myDate := EncodeDate(y, m, d);
  result := floattostr(mydate);
end;
// 01.01.0001 = -693593
// 30.12.1899 = 0
// 01.01.1900 = 2
// 31.12.9999 = 2958465

Das kann man natürlich auch über den Julianischen Tag (JD) oder den Gregorianischen Tag (GD) lösen, siehe http://www.delphipraxis.net/141399-d...unktionen.html