Datum berechnen

[Basti552]

Hi,
danke, dass hat bis jetz prima funktioniert, nur ein Problem hätt ich noch, wenn ich jetz noch eine Uhrzeit dazu angeben möchte (StrToDate(//zb.// 11.20 11.07.2008)
wie mache ich das?
Vielen Danke, auch für die Antworten davor!

BAsti

[marabu]

Hi,

experimentiere mal mit StrToDateTime(DateTimeToStr(Now)).

Freundliche Grüße

[Basti552]

Zitat von marabu:

Hi,

experimentiere mal mit StrToDateTime(DateTimeToStr(Now)).

Freundliche Grüße

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Zeit1 := Now() - StrToDateTime('5.5.05 5:55');
label1.Caption := FloatToStr(Zeit1);
end;

Das is ja wohl keine richtige Zeitangabe, obwohl ich vermute, dass das nur an der Zeit liegen kann

@ oben: was bringt mir das direkte umwandeln von now?

[marabu]

Hallo Sebastian,

Zitat von Basti552:

... was bringt mir das direkte umwandeln von now? ...

das war mein Versuch dir auf kürzeste Weise die zwei relevanten Konvertierungsfunktionen für DateTime-Kombiwerte nahe zu bringen.

Zitat von Basti552:

... Das is ja wohl keine richtige Zeitangabe, obwohl ich vermute, dass das nur an der Zeit liegen kann ...

Zeit1 ist schon eine Zeitangabe, allerdings kein Zeitpunkt. Lies dazu mal diesen Thread durch: Differenz zweier Datumsangaben

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Zeit1 := Now() - StrToDateTime('5.5.05 5:55');
  //label1.Caption := FloatToStr(Zeit1);
  Label1.Caption := DateTimeToStr2(Zeit1, 'd ');
end;

Gute Nacht

[Basti552]

Ja!, jetzt zeigt er auch die Zeit an, nur leider irgendsoein Datum um 19.00

Liegt das am Anfangsjahr von 'Delphi' (1800 irgendwas) ?

Danke!

BAsti552

[marabu]

Ja, daran liegt das.

DateTimeToStr() und die anderen Konvertierungsroutinen von Delphi gehen immer davon aus, dass der übergebene Wert ein bestimmter relativer Zeitpunkt ist. Wenn du aber zwei Zeitpunkte voneinander abziehst, was wegen des internen Formats DOUBLE wunderbar funktioniert, dann ist das Ergebnis eine Mengenangabe mit der Einheit "Tag". Wenn der Abstand der beiden voneinander subtrahierten Zeitangaben z.B. genau 48 Stunden ist, dann ist das Ergebnis 2.0 - übergeben an DateTimeToStr(2.0) erhältst du dann "01.01.1900 00:00:00".
Weil du die Tage eines Zeitabstand (einer Zeitmenge, eines Zeitintervalls) nicht als Datum interpretieren darfst, hatte ich dir die Funktion DateTimeToStr2() nahegelegt. Die Hintergründe dazu stehen in dem verlinkten Thread.

Das Refernzdatum ist der Beginn (0 Uhr) des 30.12.1899, was du durch DateTimeToStr(0) leicht feststellen kannst. Im Beitrag #6 hatte ich Sylvester 1899 angegeben, was falsch ist - ich hatte aus Versehen bei DateDelta nachgeschaut. In meiner Delphi Online-Hilfe wird bei TDateTime der Referenzzeitpunkt als 30.12.1899 12:00 Uhr angegeben, was auch falsch ist.