PDA

Vollständige Version anzeigen : Monatsanzeige


smeng
15.10.2001, 13:26
Hallo zusammen,

würde gerne wissen wie viele Tage ein ausgewählter Monat hat. Gibt es eine Möglichkeit an die Information heranzukommen???

Danke!!!

FW
15.10.2001, 13:45
Public Function DaysPerMonth(byVal bytMonth As Byte, ByVal intYear As Integer) As Byte
Select Case Monat
Case 1, 3, 5, 7, 8, 10, 12
DaysPerMonth = 31
Case 2
DaysPerMonth = Day(DateSerial(intYear, 3, 0))
Case 4, 6, 9, 11
DaysPerMonth = 30
Case Else
DaysPerMonth = 0
End Select
End Function