Кол-во дней в месяце

[Чудик]

Как узнать? Есть ли какая-то функция?

[Ennor]

Код: Выделить всё

Public Function DaysInMonth(byval MonthNo as int, optional byval YearNo as int = 0) as int
dim D as Date
' Use  current year if nothing is specified
if YearNo = 0 then YearNo = Year()
' Construct date next to month specified
D = CDate(cstr(YearNo) & "-" & cstr((MonthNo mod 12) + 1) & "-01")
' Substract 1 day and take a day value
DaysInMonth = Day(dateadd(dd, -1, D))
end function

Только протести ее - писал навскидку...

[Чудик]

Подбправил в строке

Код: Выделить всё

DaysInMonth = Day(DateAdd("d", -1, Ds))

В остальном все прекрасно. Работает. Спасибо.

[Ennor]

А-а, да, вижу. Сорри, все никак с T-SQL не переключусь .

[Andrey Fedorov]

Подбправил в строке

Код: Выделить всё

DaysInMonth = Day(DateAdd("d", -1, Ds))

В остальном все прекрасно. Работает. Спасибо.

Вообще-то это равнозначно:

Код: Выделить всё

DaysInMonth = Day(Ds-1)

[Andrey Fedorov]

А вообще я бы написал данную функцию так:

Код: Выделить всё

Public Function DaysInMonth(ByVal MonthNo As Integer, Optional ByVal YearNo As Integer = 0) As Integer
    ' Use  current year if nothing is specified
    If YearNo = 0 Then YearNo = Year(Date)
    ' Construct date next to month specified
    DaysInMonth = Day(DateAdd("m", 1, DateSerial(YearNo, MonthNo, 1) - 1))
End Function


[VVitafresh]

А если определять кол-во дней в месяце выбранном, например, при помощи MonthView или DTPicker'ом, то можно так:

Код: Выделить всё


Public Function DaysInMonth(dTemp As Date) As Integer
    'Подсчитывает количество дней в месяце
    DaysInMonth = DateSerial(Year(dTemp), Month(dTemp) + 1, Day(dTemp)) - DateSerial(Year(dTemp), Month(dTemp), Day(dTemp))

End Function


[Чудик]

Спасибо, спасибо, Всем спасибо!

[tyomitch]

А почему никто не использует тривиально простые способы?

Код: Выделить всё

Public Function DaysInMonth(ByVal MonthNo As Integer, Optional ByVal YearNo As Integer = 0) As Integer
    ' Use  current year if nothing is specified
    If YearNo = 0 Then YearNo = Year(Date)

    DaysInMonth = Choose(MonthNo, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

    If (MonthNo = 2) And (YearNo Mod 4 = 0) And ((YearNo Mod 100 <> 0) Or (YearNo Mod 400 = 0)) Then DaysInMonth = DaysInMonth + 1
End Function


Здесь зато всё прозрачно - негде ошибиться.

[alibek]

Неправильно
Во-первых, есть разные календари, в каких-то 400 лет не учитываются. А во-вторых (только я точно не помню), вроде бы тысячелетия тоже являются исключениями.

[Konst_One]

А микрософта еще 26 год тоже исключение

[VVitafresh]

Alibek прав. Да и в логике следующей строки очень легко ошибиться (например со скобками):

Код: Выделить всё


If (MonthNo = 2) And (YearNo Mod 4 = 0) And ((YearNo Mod 100 <> 0) Or (YearNo Mod 400 = 0)) Then DaysInMonth = DaysInMonth + 1