Registriert seit: 8. Jul 2014
97 Beiträge
Delphi XE6 Starter
|
AW: DateTime aus String. Welches ist es denn nun?
24. Jul 2014, 14:29
Das kann man ja wieder in ein String umwandeln, so habe ich es zumindest gemacht
nction TAppseite1.GetShowDateTime(aDateTime: string): TDateTime;
var sDate, sTime : string;
// FFormatSettings : TFormatSettings;
begin
// input '2004-01-01 14:30'
// output Datum/Uhrzeit als TDateTime
//FFormatSettings := TFormatSettings.Create();
FormatSettings.ShortDateFormat := 'YYYY-MM-DD';
FormatSettings.ShortTimeFormat := 'HH:NN';
FormatSettings.DateSeparator := '-';
sDate := LeftStr(aDateTime, 10);
sTime := RightStr(aDateTime, 5);
result := StrToDate(sDate, FormatSettings) +
StrToTime(sTime, FormatSettings);
end;
Christian
|