Entwickler-Ecke
Sonstiges (Delphi) - Countdown Funktion
Frankle - Do 25.07.02 15:20
Titel: Countdown Funktion
Hallo!
Ich suche eine Funktion...an dich ich 2 Daten übergebe (das 2. ist das aktuelle) und die Funktion soll dann ausspucken...wie lange noch Zeit ist! Sprich: 1T 2Std 3M
Dankööööö
Klabautermann - Do 25.07.02 16:14
Hallo,
da tDateTime ein Flißkommawert ist kannst du einfach damit rechen.
Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure SayDiv(Datum1, Datum2 : tDateTime);
VAR
DivTime : tDateTime;
BEGIN
DivTime := Datum2 - Datum1;
ShowMessage('Noch ' + Trunc(DivTime) + ' Tage und ' + FormatDateTime('hh:nn:ss', DivTime));
END; |
Die Zahl vor dem Komma ist die anzahl der Tage und die Zahlen dahinter entsprechend der Buch eines Tagen (z.B. 0.5 = 12 Stunden).
Gruß
Klabautermann
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!