Datum und Uhrzeit in einer Variable

[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('');