Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Перевод даты в порядковый номер дня в году [D7, XP]


Роман ©   (2008-11-11 16:36:00) 

Всем привет.
Существует ли функция перевода даты в порядковый номер дня в году, учитывая высокосный год? Если нет, то при помощи каких функций можно реализовать? Просто не хотелось бы придумывать велосипед заново.


Сергей М.   (2008-11-11 17:15:00) [1]


> 2е больше нету


Да кто вас знает, сколько вас наплодили)

Результат = Date() - порядковый_номер_дня + 1


Amoeba   (2008-11-11 17:07:00) [2]


> А обратная этой функции существует?

Возьми и напиши сам. Это не столь сложно, если задействовать серое вещество. Естественно, нужно проверять год на високосность, а для этого есть ф-ия.


Максим   (2008-11-11 17:03:00) [3]

2е больше нету =)
допустим порядковый номер дня 1 и функция возвращала бы 1 января текущего года =)


Сергей М.   (2008-11-11 16:53:00) [4]


> Роман


> Максим


Кто следующий ?)


> обратная этой функции существует?


Это какая же ?
Получить полную дату по пор.номеру дня в непонятно каком году ?
И как вы, братцы, это себе мыслите ?)


Максим   (2008-11-11 16:50:00) [5]

Ну, я среду разработки вообще то указал при открытии вопроса. Странно что у вас возник вопрос "где".

но за function DayOfTheYear(const AValue: TDateTime): Word;
спасибо

А обратная этой функции существует?


Anatoly Podgoretsky   (2008-11-11 16:44:00) [6]

> Роман  (11.11.2008 16:36:00)  [0]

Существует, а где?
Если в дельфи, то на данный вопрос ответ дает простой перевод фразы День Года на английский язык. В справке сам найдешь. Если же в другом средстве, то это обычно JulianDay


Наверх

Титульная страница Поиск, карта сайта Написать письмо