| Verweis: | TimeStampToDateTime DateTimeToTimeStamp |
| Uses: | SysUtils |
| Eingabe: | Millisekunden(integer) |
| Ausgabe: | TTimeStamp Datumsaufteilung in Tag und Millisekunden |
| Funktion: | Millisekunden werden in Tag und Millisekunden aufgeteilt |
Beispiel 1
Vorbereitung: Erstellen sie eine IDE Anwendung und ziehen Sie einen TButton auf die Form. Doppelklicken sie auf den Button und ersetzen Sie das Ereignis durch folgenden Quelltext:
procedure TForm1.Button1Click(Sender: TObject);
var
ZeitStempel1: TTimeStamp;
Millisekunden: Integer;
begin
//1 TAg =24*60*60*1000=86400000 Millisekunden.
Millisekunden := 86500000;
//1 Tag und 100000 Milliskunden
ZeitStempel1 := MSecsToTimeStamp(Millisekunden);
//Zige an
ShowMessage(IntToStr(Millisekunden) + ' Millisekunden Teilen sich auf in :' +
IntToStr(ZeitStempel1.Date) + ' Tag und ' + IntToStr(Zeitstempel1.time) +
' Millisekunden.');
end;
Ein Tag hat 86400000 Millisekunden also kann man mit dieser Funktion 86500000 Millisekunden in ein Tag und 100000 Millisekunden aufteilen. Ist das nicht Wunderbar? Ehrlich gesagt, erschließt sich mir der Sinn nicht.
