How to convert date format in qtp

Example -

Below code will convert date format in QTP. To verify the dates, you must have actual and expected dates in same format.

So you must convert the dates in a typical format like ddmmyyyy or mmddyyyy etc.

Below function will get the date in mm/dd/yyyy format.
Call Getdate("T") - will return todays date
Call Getdate("T+1") - will return tommorrow's date
Call Getdate("T-1") - Will return previous day's date.
you can calculate any future or past date with this example.


Function GetDate(byval curvalue)
   If  ucase(curvalue) = "T" Then
        curvalue = curvalue & "+0"
   End If


If  instr(1,curvalue,"+") > 0  Then
                        arrdate = split(curvalue,"+")
                       retDate = dateadd("d",arrdate(1),now)
                   
                   
                       strmonth = month(cdate(retDate))
                       strday = day(cdate(retDate))
                       stryear = year(cdate(retDate))
                   
                       If len(strmonth) = 1 Then
                            strmonth = "0" & strmonth
                       End If
                   
                       If len(strday) = 1 Then
                            strday = "0" & strday
                       End If
Else

                        arrdate = split(curvalue,"-")
                        curDate = - cint(arrdate(1))
                       retDate = dateadd("d",curDate,now)
                   
                   
                       strmonth = month(cdate(retDate))
                       strday = day(cdate(retDate))
                       stryear = year(cdate(retDate))
                   
                       If len(strmonth) = 1 Then
                            strmonth = "0" & strmonth
                       End If
                   
                       If len(strday) = 1 Then
                            strday = "0" & strday
                       End If


End If
  
    If Ucase(strParameter1) = "YYYY-MM-DD" Then
        GetDate  = stryear & "-" & strmonth & "-" & strday
    Else
        GetDate  = strmonth & "/" & strday & "/" & stryear
    End If
   
   

End Function


You may also like

1. QTP Questions and Answers for Experienced guys
2. Advanced QTP Questions and answers
3. Advanced QTP Tutorial

What do you think on this topic? Please provide your feedback.