Date Format?

[daywalker9]

Schau dir mal das an:

Delphi-Quellcode:

TFormatSettings = record
   CurrencyFormat: Byte;
   NegCurrFormat: Byte;
   ThousandSeparator: Char;
   DecimalSeparator: Char;
   CurrencyDecimals: Byte;
   DateSeparator: Char;
   TimeSeparator: Char;
   ListSeparator: Char;
   CurrencyString: string;
   ShortDateFormat: string;
   LongDateFormat: string;
   TimeAMString: string;
   TimePMString: string;
   ShortTimeFormat: string;
   LongTimeFormat: string;
   ShortMonthNames: :TFormatSettings.:1;
   LongMonthNames: :TFormatSettings.:2;
   ShortDayNames: :TFormatSettings.:3;
   LongDayNames: :TFormatSettings.:4;
   TwoDigitYearCenturyWindow: Word;

Damit kannst du sagen wie das Datum, Zeit auszusehen hat bei jedem Aufruf von DateToStr..

ODer du setzt die Sachen beim Programmstart für alle Ding fest:

Delphi-Quellcode:

  if not sametext(ShortDateFormat, 'dd.MM.yyyy') then
    begin
      ShortDateFormat := 'dd.MM.yyyy';
      LongDateFormat  := 'dddd, d. MMMM yyyy';
      DateSeparator   := '.';

      ShortTimeFormat   := 'hh:mm';
      LongTimeFormat  := 'hh:mm:ss';
      TimeSeparator   := ':';
      TimeAMString    := '';
      TimePMString    := '';
    end;