uses Sysconst;
procedure TForm1.Button4Click(Sender: TObject);
Const
DefShortMonthNames: array[1..12] of String = (SShortMonthNameJan,
SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
SShortMonthNameNov, SShortMonthNameDec);
var
Year, Month, Day: Word;
ADate : Tdate;
begin
ADate := Now;
DecodeDate(ADate, Year, Month, Day);
Showmessage(Formatdatetime('yyyy/mmm/dd',ADate));
Showmessage(Format('%D/%S/%D',[Year,DefShortMonthNames[Month],Day]));
end;
procedure TForm1.Button4Click(Sender: TObject);
Const
DefShortMonthNames: array[1..12] of String = (SShortMonthNameJan,
SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
SShortMonthNameNov, SShortMonthNameDec);
var
Year, Month, Day: Word;
ADate : Tdate;
begin
ADate := Now;
DecodeDate(ADate, Year, Month, Day);
Showmessage(Formatdatetime('yyyy/mmm/dd',ADate));
Showmessage(Format('%D/%S/%D',[Year,DefShortMonthNames[Month],Day]));
end;