Date Format needs adjustment - Printable Version

Date Format needs adjustment - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Date Format needs adjustment (/Thread-Date-Format-needs-adjustment)

Date Format needs adjustment - unbeliever - 01-15-2010

Hello All,

My objective is to select date in the past, format it to dd.mm.yyyy format and input into field which validates only dates in this format. What I was able to produce so far is:

Code:
Dim TestDate

TestDate = DateAdd("d", -65, Date)

This code produces date in yyyy-mm-dd format. I have checked FormatDateTime function and there is no option to format date according to format that I require (dd.mm.yyyy). Since I have found no other VBScript functions which format dates I am asking whether you have encountered such situation and have some working solution?

RE: Date Format needs adjustment - unbeliever - 01-15-2010

Alert cancelled Smile

, solution is as follows:

Code:
Dim TestDate, RUDDate

TestDate = DateAdd("d", -65, Date)

Date1 = Datepart("d",TestDate)

month1 = Datepart("m",TestDate)

year1 = Datepart("yyyy",TestDate)

If len(Date1) = 1 then

Date1 = "0" & Date1

Else

Date1 = Date1

End If

If len(month1) = 1 then

month1 = "0" & month1

Else

month1 = month1

End If

RUDDate = month1 & "." & Date1 & "." & year1

RE: Date Format needs adjustment - sreekanth chilam - 01-15-2010

Hi ,

Try in the below way Smile

Code:
Dim TestDate

  TestDate = DateAdd("d", -65, Date)

  dpart=datepart("d",TestDate)

  mpart=datepart("m",TestDate)

  ypart=datepart("yyyy",TestDate)

  Final_TestDate=dpart&"."&mpart&"."&ypart

  msgbox Final_TestDate