How to get the days for the date

Question

Part 1

Dim totdays as long
totdays = DateDiff(\"d\", \"01/2011\", DateAdd(\"m\", 1, \"01/2011\"))

The above code will retu

Answer 1

You can use DateSerial Function in VB6 to convert a string or integer variable to Date Variable

Dim d As String
Dim datevar As Date
d = "31"
datevar = DateSerial(2011,1, Val(d))   
MsgBox Format(datevar,"DDDD dd/MMM/yyyy")