Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать сколько дней в году? / 15 сообщений из 15, страница 1 из 1
20.02.2004, 15:56:49
    #32417172
HiddenCat
HiddenCat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
Т.е. 365 или 366?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2004, 16:28:21
    #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:31:56
    #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:41:48
    #32417262
HiddenCat
HiddenCat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
Большое спасибо! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2004, 18:11:46
    #32417403
Hibernate
Hibernate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
с нетерпением жду вопроса "а как узнать количество дней в месяце 28,29,30 или 31" :-))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2004, 08:41:46
    #32417638
ulis
ulis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
:) - кулак для чего
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2004, 14:57:12
    #32417746
Hibernate
Hibernate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
ты знал, ты знал! - я так не играю!
:-))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2004, 19:39:44
    #32417841
Antonki
Antonki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
:) У тебя кулак какой то особенный? Как узнать где 28, 29 или 30, и 31 :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2004, 10:40:44
    #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, 11:50:03
    #32418278
Hibernate
Hibernate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
дык такая-же функция наверняка "зашита" в календарь, спрятанный в глубинах VbRun.dll. IMHO, разумнее им и пользоваться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2004, 18:49:55
    #32418582
ulis
ulis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
А я и не спорю, так оно и есть скорее всего :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2004, 22:23:06
    #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
| Ответить | Цитировать | Написать  
24.02.2004, 06:07:40
    #32418766
ulis
ulis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
Ой, чует маё сердце, пара абъявлять конкурс на самую кароткую функцию висококосного года :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2004, 10:08:22
    #32418921
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
Еще один вариант опредление високосного года

? day(DateSerial(year(date),2,29))=1 ' true - год високосный
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2004, 13:55:19
    #32420819
Alviga
Alviga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать сколько дней в году?
А не проще будет от даты первого дня следующего месяца отнять дату первого дня данного месяца. Разницей будет количество дней в месяце.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать сколько дней в году? / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 689ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2170028]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 432ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 181ms
total:  689ms
x
x
Закрыть


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