Einzelnen Beitrag anzeigen

ChristianG

Registriert seit: 8. Jul 2014
97 Beiträge
 
Delphi XE6 Starter
 
#6

AW: DateTime aus String. Welches ist es denn nun?

  Alt 24. Jul 2014, 13: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
  Mit Zitat antworten Zitat