Micro Focus QTP (UFT) Forums

Micro Focus QTP (UFT) Forums > Micro Focus UFT (earlier known as QTP) > VB Scripting/Descriptive Programming > Code for getting the next "the 1st in month"
Full Version: Code for getting the next "the 1st in month"
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

janriis

10-21-2009, 07:09 PM
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

10-21-2009, 07:24 PM
Hi,
Try this...
Code:
Dim TmpDate, NewDate
   TmpDate = DateAdd("mm", 1, Date)
   NewDate = DateSerial(Year(TmpDate), Month(TmpDate), 1)

sreekanth chilam

10-21-2009, 08:21 PM
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.Smile

janriis

10-27-2009, 01:28 PM
Exactly what i needed, thx. How do i insert the value of NewDate into my txtDate field ?

Tarik Sheth

10-28-2009, 11:32 AM
Hi,

Assuming date field is of class webedit.
You can have Browser().Page().webedit().set NewDate
Micro Focus QTP (UFT) Forums > Micro Focus UFT (earlier known as QTP) > VB Scripting/Descriptive Programming > Code for getting the next "the 1st in month"