Получение текущей даты

← →
V l a d i m i r (2004-11-05 15:56) [0]

Добрый день! Нестыковку обнаружил, когда запустил программу из-под Win98. По умолчанию в ХР дата в меню "Языки и региональные стандарты" установлен в формате дд.мм.гггг, а в Win98 - дд.мм.гг. Так вот, я получаю текущую дату следующим образом:

procedure TFormNewPlane.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day: Word; EmptySubDep: Boolean; begin Present:= Now; DecodeDate(Present, Year, Month, Day); ShowMessage(IntToStr(Day)+"."+IntToStr(Month)+"."IntToStr(Year)); end;

Причем независимо от региональных настроек дата выводится в формате дд.мм.гггг

Как можно получить дату, учитывая региональные настройки ОС?

← →
Семен Сорокин © (2004-11-05 16:10) [1]

FormatDateTime,
DateSeparator, ShortDateFormat, LongDateFormat + F1

Unit Sysutils
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
function DateToStr(Date: TDateTime): string;

Получение текущей даты Найти похожие ветки