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