Порядковый номер дня в году

← →
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)
Обалдеть... Я бы ни за что не догадался... Я бы из даты первое января вычитал и единичку прибавлял... :)

Вот вариант
dt:TDateTime; PoryadkoviiNumber:=Round(DateOf(dt)-EncodeDate(YearOf(dt),1,1))

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