Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить год [D6, XP]

Чипырик © (2009-05-21 20:41:00)
Здравствуйте!
Подскажите пожалуйста, как получить текущий год из Date в формате Integer или ТDate

Германн (2009-05-22 00:30:00) [1]

> Чипырик © (21.05.09 22:03) [7]
>
> Да чет, не нашел я в справке как.
>
> Тама написано function YearOf(const AValue: TDateTime):
> Word;
> и все
>

И этого более чем достаточно, чтобы не работать с результатом этой функции как с TDate(Time).

Andy BitOff (2009-05-21 23:33:00) [2]
> Как получить год

А я почему-то подумал про реальное лишение свободы или хотя бы условно.

Чипырик (2009-05-21 22:04:00) [3]
2 DVM
Спасибо за подсказку...

З.Ы. Обзываться совсем не обязательно.

Чипырик (2009-05-21 22:03:00) [4]
Да чет, не нашел я в справке как.

Тама написано function YearOf(const AValue: TDateTime): Word;
и все

DVM (2009-05-21 22:02:00) [5]

> Чипырик © (21.05.09 21:45) [4]

Читай справку дурень. Так бы и сказал, что тебе нужен год строкой.

Caption := IntToStr(YearOf(Now));

или

Caption := FormatDateTime('yyyy', Now);

Германн (2009-05-21 21:48:00) [6]

> Чипырик © (21.05.09 21:45) [4]
>
> Есди написать так
> Label1.Caption:=DateToStr(YearOf(Date));

Зачем же писАть чушь? Лучше сначала справку прочесть.

Чипырик (2009-05-21 21:45:00) [7]
Есди написать так
Label1.Caption:=DateToStr(YearOf(Date));
То результат почему-то равен "01.07.1905" (хотя сегодня 21.05.2009),
А нужно чтобы было "2009"

Игорь Шевченко (2009-05-21 21:31:00) [8]

> из Date в формате Integer

Эт как ?

Игорь Шевченко (2009-05-21 21:31:00) [9]
Впрочем, год получить легко - читай уголовный кодекс

DVM (2009-05-21 20:48:00) [10]
YearOf()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »