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

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

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

Как попроще выделить из переменной-даты год? [D5, Win95/98]

Smirnoff © (2002-11-04 16:47:00)
Как попроще выделить из даты год?
..
var
a: TDataTime
..

TTCustomDelphiMaster (2002-11-04 19:57:00) [1]
Я тоже знаю :)

i := StrToInt(FormatDateTime("yyyy", a));

Mike_Goblin (2002-11-04 19:32:00) [2]
YearOf(а);
(Смотрел в D7) В ранних версиях может не быть данной функции, но можно стащить код

evgeg (2002-11-04 19:00:00) [3]
> Алексей Ким © (04.11.02 16:58)

Этот способ просто неправильный, так что о быстроте речи даже не идет.

Vitaly (2002-11-04 18:05:00) [4]
Вот так и возникают проблемы ... 2000

Алексей Ким (2002-11-04 16:58:00) [5]
вопрос в тему такой способ будет быстрее?

var i: TDateTime;
begin
i := Now;
showmessage(inttostr(round(i) div 365 + 1900 ));
end;

Skier (2002-11-04 16:50:00) [6]
>Smirnoff
DateTimeToSystemTime(...) ?

Smirnoff (2002-11-04 16:50:00) [7]
Спасибо

stone (2002-11-04 16:49:00) [8]
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := "Today is Day " + IntToStr(Day) + "of Мonth "
+ IntToStr(Month) + " of Year " + IntToStr(Year);

end;

Reindeer Moss Eater (2002-11-04 16:49:00) [9]
DecodeDate

Наверх

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