Registriert seit: 6. Mär 2013
6.179 Beiträge
Delphi 10 Seattle Enterprise
|
Wieviele Zeichen hat ein Zeitstempel maximal?
30. Aug 2016, 18:48
Einfache Aufgabe: Wie viele Zeichen brauchen wir um Datum und Uhrzeit anzuzeigen?
Mir fällt keine einfache Lösung ein. Folgendes Programm verdeutlicht es:
Delphi-Quellcode:
program Project15;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.SysUtils, System.DateUtils;
var
timestamp: TDateTime;
begin
FormatSettings := TFormatSettings.Create('EN');
timeStamp := EncodeDateTime(
2016, 08, 02,
09, 05, 03, 0
);
WriteLn( DateTimeToStr(timestamp) );
timeStamp := EncodeDateTime(
2016, 11, 22,
12, 15, 13, 999
);
WriteLn( DateTimeToStr(timestamp) );
readln;
end.
Ausgabe:
Code:
8/2/2016 9:05:03 AM
11/22/2016 12:15:13 PM
Das nur als Beispiel für ein bestimmtes FormatSetting ("EN").
|
|
Zitat
|