Udah ketemu di Planetsourcecode
Public Function DaysInMonth(mMonth As Integer, yYear As Integer) As Integer
DaysInMonth = Day(-1 + DateAdd("m", 1, DateSerial(yYear, mMonth, 1)))
End Function
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
