>It doesn't work for december.
>
>Vlad

Drat! You're right, of course. Hmm...keeping it as a one liner

lday = DAY(DATE(IIF(lnmonth < 12, lnyear, lnyear + 1), IIF(lnmonth < 12, lnmonth + 1, 1), 1) - 1)

but I'd much rather...

IF lnmonth = 12
  lnmonth = 0
  lnyear = lnyear + 1
ENDIF
lnday = DAY(DATE(lnyear, lnmonth + 1, 1) - 1)

for readability purposes.:-)