• Home
 · 
• Miscellaneous
 · 
• Simple code for Calculate Number of Days in Month

Simple code for Calculate Number of Days in Month

Simple code for Calculate Number of Days in Month

Rate Simple code for Calculate Number of Days in Month

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Email: [email protected]

Private Sub NoOfDays(valDate As Date)
Dim CurMonth As Date
Dim NxtMonth As Date
Dim NDay As Integer

    CurMonth = valDate
    NxtMonth = DateAdd("M", 1, CurMonth)
    NDay = DateDiff("d", CurMonth, NxtMonth)
    
    MsgBox NDay
End Sub


'Example.
'Private Sub Command1_Click()
'If IsDate(Text1.Text) = False Then Exit Sub
    'Call NoOfDays(Text1.Text)
'End Sub