Datum und Uhrzeit in einer Variable

[Union]

Zitat:

Zitat von himitsu (Beitrag 1305515)

Delphi-Quellcode:

dateandtime := StrToDate(datestr) + StrToTime(timestr);
dateandtime := StrToDateTime(datestr + ' ' + timestr);

Man kann Strings und Floats per "+" konkatenieren.

Viele Wege führen nach Rom und irgendwann kommt man schon an, egal wie rum.
Speichertechnisch ist Ersteres schöner.

Das kann aber, abhängig von den Regionaleinstellungen, zu wirklich unangenehmen Problemen führen.

[himitsu]

Eigentlich nicht, dase die StrToXxx-Funktionen echt schrottig sind.
Die ignorieren Settings und haben als Trenner immer ein Leerzeichen. :wall:

[Popov]

Zitat:

Zitat von himitsu (Beitrag 1305520)

Eigentlich nicht, dase die StrToXxx-Funktionen echt schrottig sind.

Die sind schon ok, man sollte aber nicht die einfache Funktion wählen, sondern die Erweiterte. Dann klappt das auch.

[himitsu]

Delphi-Quellcode:

var
  FS: TFormatSettings;
  D:  TDateTime;
  S:  string;
begin
  FS := TFormatSettings.Create;
  FS.LongDateFormat  := 'YYYYMMDD';
  FS.LongTimeFormat  := 'HHMMSSZZZZ';
  FS.ShortDateFormat := FS.LongDateFormat;
  FS.ShortTimeFormat := FS.LongTimeFormat;

  D := Now;

  Memo1.Lines.Add(FormatDateTime(FS.LongDateFormat + FS.LongTimeFormat, D, FS));
  Memo1.Lines.Add('');

  S := DateTimeToStr(D, FS);
  Memo1.Lines.Add(S);
  try
    D := StrToDateTime(S, FS);
    Memo1.Lines.Add(DateTimeToStr(D, FS));
  except
    Memo1.Lines.Add('Error: StrToDateTime');
  end;
  Memo1.Lines.Add('');

  FS.LongDateFormat  := 'YY-MM-DD';
  FS.DateSeparator   := '-';
  FS.ShortDateFormat := FS.LongDateFormat;

  S := DateToStr(D, FS);
  Memo1.Lines.Add(S);
  try
    D := StrToDate(S, FS);
    Memo1.Lines.Add(DateToStr(D, FS));
  except
    Memo1.Lines.Add('Error: StrToDate');
  end;
  Memo1.Lines.Add('');

  FS.LongDateFormat  := 'YY-DD-MM';
  FS.DateSeparator   := '-';
  FS.ShortDateFormat := FS.LongDateFormat;

  S := DateToStr(D, FS);
  Memo1.Lines.Add(S);
  try
    D := StrToDate(S, FS);
    Memo1.Lines.Add(DateToStr(D, FS));
  except
    Memo1.Lines.Add('Error: StrToDate');
  end;
  Memo1.Lines.Add('');

  FS.LongDateFormat  := 'YY~MM~DD';
  FS.DateSeparator   := '~';
  FS.ShortDateFormat := FS.LongDateFormat;

  S := DateToStr(D, FS);
  Memo1.Lines.Add(S);
  try
    D := StrToDate(S, FS);
    Memo1.Lines.Add(DateToStr(D, FS));
  except
    Memo1.Lines.Add('Error: StrToDate');
  end;
  Memo1.Lines.Add('');