dateserial function

[swamy567]

just date serial function
this shows 07/31/08 how come july has 31 days. what is the error in below one.
LastDay = Day(DateSerial(intOriginYear, intOriginMonth + 1, 0))
Msgbox LastDay

 

[swamy567]

sorry i missed another line
LastDay = Day(DateSerial(intOriginYear, intOriginMonth + 1, 0))
Date = intOriginMonth & "/" & LastDay & "/0" & intOriginYear
Msgbox Date

 

[SkipVought]

" how come july has 31 days?"

Because...

<drum roll>
[red]
it ACTUALLY does!
[/red]

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[swamy567]

it is working i made mistake