DateTime aus String. Welches ist es denn nun?

[BenneX]

Hallo Leute,

Ich habe das Datum und die Uhrzeit im folgenden Format (als String) gegeben: 07-24 13:38:35
Mit welcher von den vielen Funktionen kann ich nun dem Compiler vorgeben in welchem Format der String ist (bspw. %m-%d), damit dieser ein TDateTime ausgibt?

Grüße,
Bennex!

[mjustin]

Zitat von BenneX:

07-24

Mit diesem Datumsformat hätte es nie ein Y2K Problem gegeben

Eine der Lösungen wäre DateUtils.EncodeDateTime, dazu muss nur mit Copy(...) der String in die Komponenten zerlegt und diese dann mit StrToInt umgewandelt werden.

function EncodeDateTime ( const Year, Month, Day, Hour, Min, Sec, MSec : Word ) : TDateTime;

[himitsu]

Na du gehst in die OH (oder schaust in den RTL-Quellcode) und suchst dir aus den DateTime-Funktionen (siehe SysUtils und DateUtils) die Passende aus.

Input: String (dein Datums-String) und ein Format-String, mit deinem gewünschten Format, und eventuell noch ein FormatSettings (bzw. der Format-String im FormatSettings)
Output: TDateTime

Also die Umkehrfunktion von FormatDateTime.

[add] Falls es sowas nicht gibt, dann der Vorschlag von mjustin.

[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

[Bernhard Geyer]

Zitat von mjustin:

Zitat von BenneX:

07-24

Mit diesem Datumsformat hätte es nie ein Y2K Problem gegeben

Stimmt. Dieses Format gibt nur an das am 24.07 (des aktuellen Jahres/) etwas geschehen ist/immer wieder geschieht.
Für ein definiertes Format zur Übertragung vollkommen ausreichend wenn man eine Übertragungsmedium verwendet welches keine Verweildauern > 1 Jahr annimmt.

Das Format lehnt sich das ISO8601-Format an.

[p80286]

Zitat von BenneX:

Ich habe das Datum und die Uhrzeit im folgenden Format (als String) gegeben: 07-24 13:38:35

Ich bevorzuge hier die MJustin Methode, da weiß man was man hat.
(Und beim nächsten mal reißt man sich den A.... dafür auf, daß endlich das ISO-Datum(sformat) verwendet wird)

Gruß
K-H
P.S.

Zitat von Bernhard Geyer:

Für ein definiertes Format zur Übertragung vollkommen ausreichend wenn man eine Übertragungsmedium verwendet welches keine Verweildauern > 1 Jahr annimmt.

Sag das bloß nicht, denn "das brauchen wir nie mehr" hab ich schon viel zu oft gehört. Und dann sucht man aus irgendwelchen obskuren Seiteneffekten das richtige Jahr.

[Bernhard Geyer]

Zitat von p80286:

Sag das bloß nicht, denn "das brauchen wir nie mehr" hab ich schon viel zu oft gehört. Und dann sucht man aus irgendwelchen obskuren Seiteneffekten das richtige Jahr.

Das Format ist z.B. Angaben der Art "01-06" oder "12-24" günstig da diese ja für jedes Jahr gültig sind.

Das untere Beispiel (wenn ich keinen Weiteren Kontext kenne) "07-24 13:38:35" als

"Am 24.07 um 13:38:35" geschah/geschieht/muss etwas geschehen/... interpretieren.
Das Jahr? ist egal. Wenn ich es vor diesem Datum bekomme würde ich als "jedes Jahr zu diesem Datum/Uhrzeit" oder "das nächste Mal wenn dieser Tag/Monat kommmt.