DateTime aus String. Welches ist es denn nun?

[ChristianG]

Delphi-Quellcode:

 lblBUhrzeit.text:= FormatDateTime('hh:nn',bdatumzeit) ;
   lblBDatum.Text  :=  FormatDateTime('dd.mm.yyyy',bdatumzeit) ;

Hilft das

[himitsu]

Zitat von ChristianG:

Hilft das

6, setzen

Er braucht das andersrum.


FormatDateTime -> F1 -> Link zu "Routinen für die Typumwandlung" oder "Unterstützung für Datum und Uhrzeit" -> StrToDateTime?
Man muß nur noch schauen ob es das Short- oder LongDateFormat verwendet und ob da drin das gewünschte Format untersützt wird.
http://www.delphipraxis.net/103391-p...odatetime.html

[ChristianG]

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;

[Mikkey]

Zitat von himitsu:

Er braucht das andersrum.

Er braucht doch nur 86400 Uhrzeiten und 366 Tage auszuprobieren, bis das herauskommt, was er sucht