| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получение текущей даты [D6, WinXP]
V l a d i m i r © (2004-11-05 15:56:00)Добрый день! Нестыковку обнаружил, когда запустил программу из-под 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;
Причем независимо от региональных настроек дата выводится в формате дд.мм.гггг
Как можно получить дату, учитывая региональные настройки ОС?
icebeerg (2004-11-05 17:30:00) [1]Unit Sysutils
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
function DateToStr(Date: TDateTime): string;
Семен Сорокин (2004-11-05 16:10:00) [2]FormatDateTime,
DateSeparator, ShortDateFormat, LongDateFormat + F1
| |
