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