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

Как попроще выделить из переменной-даты год?   Найти похожие ветки 

← →
Smirnoff ©   (2002-11-04 16:47) [0]

Как попроще выделить из даты год?
..
var
a: TDataTime
..

---

← →
stone ©   (2002-11-04 16:49) [1]

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) [2]

DecodeDate

---

← →
Skier ©   (2002-11-04 16:50) [3]

>Smirnoff
DateTimeToSystemTime(...) ?

---

← →
Smirnoff ©   (2002-11-04 16:50) [4]

Спасибо

---

← →
Алексей Ким ©   (2002-11-04 16:58) [5]

вопрос в тему такой способ будет быстрее?

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

---

← →
Vitaly ©   (2002-11-04 18:05) [6]

Вот так и возникают проблемы ... 2000

---

← →
evgeg ©   (2002-11-04 19:00) [7]

> Алексей Ким © (04.11.02 16:58)

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

---

← →
Mike_Goblin ©   (2002-11-04 19:32) [8]

YearOf(а);
(Смотрел в D7) В ранних версиях может не быть данной функции, но можно стащить код

---

← →
TTCustomDelphiMaster ©   (2002-11-04 19:57) [9]

Я тоже знаю :)

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

---

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

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



Память: 0.46 MB
Время: 0.012 c