Hallo,
ich möchte die Zeitdifferenz zwischen zwei Datumsangaben in Monaten und Tagen errechnen.
procedure Dauer(StartTag,EndTag:tDateTime;var tag,mon:word);
var divZeit :double;
Jahr :word;
begin
diffzeit:=StartTag-EndTag;
DecodeDate(diffZeit,Jahr, Mon, tag);
end;
leider bringt dieser Code kein korrektes Ergebnis. Gibt es eine weitere Möglichkeit eine
korrekte Ermittlung der Differenz in Tagen und Monaten zu ermitteln?
Gruß
Heiko
ich möchte die Zeitdifferenz zwischen zwei Datumsangaben in Monaten und Tagen errechnen.
procedure Dauer(StartTag,EndTag:tDateTime;var tag,mon:word);
var divZeit :double;
Jahr :word;
begin
diffzeit:=StartTag-EndTag;
DecodeDate(diffZeit,Jahr, Mon, tag);
end;
leider bringt dieser Code kein korrektes Ergebnis. Gibt es eine weitere Möglichkeit eine
korrekte Ermittlung der Differenz in Tagen und Monaten zu ermitteln?
Gruß
Heiko
Comment