ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать сколько дней в году?
15 сообщений из 15, страница 1 из 1
Как узнать сколько дней в году?
    #32417172
Фотография HiddenCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HiddenCat
Участник
Т.е. 365 или 366?
...
Рейтинг: 0 / 0
20.02.2004, 15:56
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417234
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
например так:

Код: plaintext
1.
2.
Public Function DaysOfYear(iYear as integer) As Integer
DaysOfYear = DateDiff( "d" , DateSerial(iYear,  1 ,  1 ), DateAdd( "yyyy" ,  1 , DateSerial(iYear,  1 ,  1 )))
End Function
...
Рейтинг: 0 / 0
20.02.2004, 16:28
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417242
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
или так даже лучше:
Код: plaintext
1.
2.
Public Function DaysOfYear(iYear as integer) As Integer
DaysOfYear =DatePart( "y" , DateSerial(iYear,  12 ,  31 ))
End Function
...
Рейтинг: 0 / 0
20.02.2004, 16:31
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417262
Фотография HiddenCat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HiddenCat
Участник
Большое спасибо! :)
...
Рейтинг: 0 / 0
20.02.2004, 16:41
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417403
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
с нетерпением жду вопроса "а как узнать количество дней в месяце 28,29,30 или 31" :-))
...
Рейтинг: 0 / 0
20.02.2004, 18:11
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417638
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ulis
Участник
:) - кулак для чего
...
Рейтинг: 0 / 0
21.02.2004, 08:41
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417746
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
ты знал, ты знал! - я так не играю!
:-))
...
Рейтинг: 0 / 0
21.02.2004, 14:57
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32417841
Antonki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonki
Гость
:) У тебя кулак какой то особенный? Как узнать где 28, 29 или 30, и 31 :)
...
Рейтинг: 0 / 0
21.02.2004, 19:39
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418229
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ulis
Участник
' Вот еще вариант числа дней с году, правильный с астрономической точки зрения
' Функция возвращает число дней в году
Public Function LeapYear(intY As Integer) As Integer

LeapYear = 0

If intY > 0 Then

If intY - Int(intY / 4) * 4 = 0 Then ' Год делится на 4 без остатка
LeapYear = 366
Else
LeapYear = 365
End If

If intY - (Int(intY / 100)) * 100 = 0 Then ' Если в году целое число столетий
If Int(intY / 100) - Int((intY / 400)) * 4 = 0 Then ' Если делится на 400 без остатка
LeapYear = 366
Else
LeapYear = 365
End If
End If

End If

End Function
...
Рейтинг: 0 / 0
23.02.2004, 10:40
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418278
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
дык такая-же функция наверняка "зашита" в календарь, спрятанный в глубинах VbRun.dll. IMHO, разумнее им и пользоваться.
...
Рейтинг: 0 / 0
23.02.2004, 11:50
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418582
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ulis
Участник
А я и не спорю, так оно и есть скорее всего :)
...
Рейтинг: 0 / 0
23.02.2004, 18:49
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418695
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(c)VIG
Участник
2 ulis
А не проще ли будет ?

Код: plaintext
1.
2.
Public  Function DaysInYear(Year As Integer) As Integer
DaysInYear =  365  + Abs(((Year Mod  4  =  0 ) And (Year Mod  100  <>  0 )) Or (Year Mod  400  =  0 ))
End Function


А как определить сколько дней в неделе ? :)
...
Рейтинг: 0 / 0
23.02.2004, 22:23
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418766
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ulis
Участник
Ой, чует маё сердце, пара абъявлять конкурс на самую кароткую функцию висококосного года :)
...
Рейтинг: 0 / 0
24.02.2004, 06:07
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32418921
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Еще один вариант опредление високосного года

? day(DateSerial(year(date),2,29))=1 ' true - год високосный
...
Рейтинг: 0 / 0
24.02.2004, 10:08
| Ответить | Цитировать | Написать  
Как узнать сколько дней в году?
    #32420819
Фотография Alviga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alviga
Участник
А не проще будет от даты первого дня следующего месяца отнять дату первого дня данного месяца. Разницей будет количество дней в месяце.
...
Рейтинг: 0 / 0
25.02.2004, 13:55
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать сколько дней в году?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]