...change the date format?

{
 Folgende Variablen sind in Delphi vordefiniert:
 - DateSeparator
 - ShortDateFormat
 - LongDateFormat;
 - ShortMonthNames;
 - LongMonthNames;
 - ShortDayNames;
 - LongDayNames;
}


{
 The following variables are predefined in delphi:
 - DateSeparator
 - ShortDateFormat
 - LongDateFormat;
 - ShortMonthNames;
 - LongMonthNames;
 - ShortDayNames;
 - LongDayNames;
}



// Change date format
// Datumsformat wechseln
procedure TForm1.Button1Click(Sender: TObject);
begin
  DateSeparator   := '.';
  ShortDateFormat := 'dd.mm.yy';
  LongDateFormat  := 'dddd, dd.mmmm.yyyy';
end;


// Get day and month names
// Tagesnamen und Monatsnamen auslesen
procedure TForm1.Button2Click(Sender: TObject);
begin
  {shows the short and long month name of month number 11}
  ShowMessage(ShortMonthNames[11] + ' - ' + LongMonthNames[11]);

  {shows the short and long day name of day number 6}
  ShowMessage(ShortDayNames[5] + ' - ' + LongDayNames[5]);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base