how to calculate the number of days in a month using vb6.0

[chandru8]

hi to all
if the current month is jan,i need to calculate the number of days of feb
is it possible without assigning number of days manually to a variable

[VACEPROGRAMER]

Of courese you can, but can you explain me what you going to do whit sample words . .. . Please

VxE

[creative1]

To calculate # of days in current month

MsgBox DateAdd("m", 1, Now) - Now

For any other month

Dim Date1 As Date
Date1 = "01/03/2006"                ' for month of March
MsgBox DateAdd("m", 1, Date1) - Date1

It might help a little bit

Regards

[Killer42]

Just for fun, here's another alternative. (There's almost always more than one way to accomplish things, in programming).

Public Function DaysInMonth(ByVal Yr As Long, ByVal Mnth As Long) As Long
  ' Return the number of days in the specified month.
  DaysInMonth = Day(DateSerial(Yr, Mnth + 1, 1) - 1)
End Function

Of course, given that it's a single calculation, there may not be much point putting it in a function. Also, note that I just use Long data type wherever possible, for efficiency purposes. What you use is up to you. :)

[nagarchetan]

Private Sub cmdGo_Click()
Dim month_number As Integer
Dim year_number As Integer
 
    month_number = Month(txtMonth.Text)
    year_number = Year(txtMonth.Text)
    MsgBox "Days: " & Format$(Day(DateSerial(year_number, _
        month_number + 1, 0)))
End Sub

Chetan Nagar