Code for getting the next "the 1st in month"

[janriis]

Hi all

I need a code snippet that saves the next 1st date in a month in a variable NewDate. In this case the value of NewDate would be 11012009

Anyone who has an idea ?

[manabh]

Hi,
Try this...

Code:

Dim TmpDate, NewDate TmpDate = DateAdd("mm", 1, Date) NewDate = DateSerial(Year(TmpDate), Month(TmpDate), 1)

[sreekanth chilam]

Hi Janriis,

Try with the below way.

Code:

Dim TmpDate1,TmpDate2 TmpDate1 = DateAdd("m",1, Date) TmpDate2 = DateSerial(Year(TmpDate1),Month(TmpDate1),1) NewDate=replace(TmpDate2,"/","") Msgbox NewDate

Hope it helps you.

[janriis]

Exactly what i needed, thx. How do i insert the value of NewDate into my txtDate field ?

[Tarik Sheth]

Hi,

Assuming date field is of class webedit.
You can have Browser().Page().webedit().set NewDate