Вниз
Скачать: CL | DM;

Как получить год   Найти похожие ветки 

← →
Чипырик ©   (2009-05-21 20:41) [0]

Здравствуйте!
Подскажите пожалуйста, как получить текущий год из Date в формате Integer или ТDate


← →
DVM ©   (2009-05-21 20:48) [1]

YearOf()


← →
Игорь Шевченко ©   (2009-05-21 21:31) [2]


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


Эт как ?


← →
Игорь Шевченко ©   (2009-05-21 21:31) [3]

Впрочем, год получить легко - читай уголовный кодекс


← →
Чипырик ©   (2009-05-21 21:45) [4]

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


← →
Германн ©   (2009-05-21 21:48) [5]


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

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


← →
DVM ©   (2009-05-21 22:02) [6]


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

Читай справку дурень. Так бы и сказал, что тебе нужен год строкой.
 
Caption := IntToStr(YearOf(Now));

или

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


← →
Чипырик ©   (2009-05-21 22:03) [7]

Да чет, не нашел я в справке как.

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


← →
Чипырик ©   (2009-05-21 22:04) [8]

2 DVM
Спасибо за подсказку...

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


← →
Andy BitOff ©   (2009-05-21 23:33) [9]

> Как получить год

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


← →
Германн ©   (2009-05-22 00:30) [10]


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c
15-1241797779
Копир
2009-05-08 19:49
2009.07.12
А вот, история! Это Вам не Карамзин. Какой-то Анисимов?


2-1242731624
torcik
2009-05-19 15:13
2009.07.12
Рамер шрифта в width и height


15-1242300420
Кое кто
2009-05-14 15:27
2009.07.12
Как сесть на шпагат?


15-1241987402
Юрий
2009-05-11 00:30
2009.07.12
С днем рождения ! 11 мая 2009 понедельник


4-1212577567
ЗапомниСынок
2008-06-04 15:06
2009.07.12
EM_GETLINE




   Наверх