VPF::Как узнать, 2-х или 4-х значный год в системе?

Данкинг

Дата 1.4.2008, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Иными словами, как бы узнать региональный формат даты, установленный в системе?

--------------------

There's nothing left but silent epitaphs.

former

Дата 1.4.2008, 21:43 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Если ты имеешь виду 01.01.2008 или 01.01.08, то можно так:

Код


uses DateUtils;


if (Length(IntToStr(YearOf(Now)))=2) or (Length(IntToStr(YearOf(Now)))=1) then
  ShowMessage('Двухзначный формат')
else if Length(IntToStr(YearOf(Now)))=4 then
  ShowMessage('Четырёхзначный формат');

Это сообщение отредактировал(а) former - 1.4.2008, 21:46

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Данкинг

Дата 1.4.2008, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Ну да, тоже вариант. В общем, попробую. smile

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 2.4.2008, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

function YearDigits: Integer;
begin
  if Pos('yyyy', ShortDateFormat) > 0 then Result := 4
  else Result := 2;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »