| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Порядковый номер дня в году [D5, Win95/98]
Qwer © (2002-05-24 01:45:00)Прошу подсказать как я могу по дате получить порядковый номер дня в году ???
Dimous (2002-05-24 13:55:00) [1]Вот вариант
dt:TDateTime;
PoryadkoviiNumber:=Round(DateOf(dt)-EncodeDate(YearOf(dt),1,1))
Lusha (2002-05-24 09:14:00) [2]>Delphi5.01 © (24.05.02 07:39)
Обалдеть... Я бы ни за что не догадался... Я бы из даты первое января вычитал и единичку прибавлял... :)
Qwer (2002-05-24 08:04:00) [3]To Delphi5.01 Спасибо за внимание!
Написала небольшую процедурку и теперь ею пользуюсь.
Delphi5.01 (2002-05-24 07:39:00) [4]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
| |
