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

Порядковый номер дня в году   Найти похожие ветки 

← →
Qwer ©   (2002-05-24 01:45) [0]

Прошу подсказать как я могу по дате получить порядковый номер дня в году ???

---

← →
Delphi5.01 ©   (2002-05-24 07:39) [1]

toloko po formule. proveraesh kakoi mesac nu pomnojaesh vso na 30 ili 31. potom otnimaesh esli fevral bi 3 dna vot i vso no a gotovoi formuli net daje esli naigosh to eto budet malenkaia procedura kotoraia budet delat toje samoe chto ia skazal

---

← →
Qwer ©   (2002-05-24 08:04) [2]

To Delphi5.01 Спасибо за внимание!
Написала небольшую процедурку и теперь ею пользуюсь.

---

← →
Lusha ©   (2002-05-24 09:14) [3]

>Delphi5.01 © (24.05.02 07:39)
Обалдеть... Я бы ни за что не догадался... Я бы из даты первое января вычитал и единичку прибавлял... :)

---

← →
Dimous ©   (2002-05-24 13:55) [4]

Вот вариант

dt:TDateTime;

PoryadkoviiNumber:=Round(DateOf(dt)-EncodeDate(YearOf(dt),1,1))


---

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

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



Память: 0.45 MB
Время: 0.008 c