. How to change a date format like mm dd yyyy in QTP

Example -

Below code will verify 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.
To get date in any other format you need to modify last part of function.

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