Mega Code Archive
Change the date format
<![CDATA[
{
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;
]]>