QTP 1: Date and Time

'Current date
dtmTest = DateValue(Now)
msgbox dtmTest

'Current time:
dtmtime=timevalue(now)
msgbox dtmtime

'Current Week
week=weekday(now)
msgbox week


today_day=weekdayname(1)
msgbox today_day

current_month=month(now)
msgbox current_month

strDOW = WeekdayName(Weekday(Now))
msgbox strDOW

current_year=year("01-07-2012")
msgbox current_year

msgbox now


msgbox datediff("d","01-01-2009","01-01-2010")
msgbox datediff("m","01-01-2009","01-01-2010")
msgbox datediff("YYYY","01-01-2009","01-01-2010")