Last day of the next month

Hi everyone,

What would be the simplest way to find the last day of the next month?
I have a requirement, wherein i need to update a particular field with the first day of the next
month and another field with the last day of the next month.
I have done this using the following -

@CDate Ds
@CC 1 1 0
@CY 2 3 0
@Str51 4 4 Inz('/')
@CM 5 6 0
@Str52 7 7 Inz('/')
@CD 8 9 0

dW@dat s d



*CYMD Movel @CDate W@dat
AddDur 1:*M W@dat
*CYMD Movel W@dat @CDate

Eval cent = @CC
Eval year = @CY
Eval mont = @CM
Eval day = 01

Now this handles the first day of the next month,
How will i handle the last day of the next month. Any suggestions?

Thanks in advance
Derek