Hi,
dim sRfc822Date
dim dtPubDate
dim sDay
dim sHour
dim sMinute
dim sSecond
dtPubDate = Now()
if Day(dtPubDate) < 10 then
sDay = "0" & Day(dtPubDate)
else
sDay = Day(dtPubDate)
end if
if Hour(dtPubDate) < 10 then
sHour = "0" & Hour(dtPubDate)
else
sHour = Hour(dtPubDate)
end if
if Minute(dtPubDate) < 10 then
sMinute = "0" & Minute(dtPubDate)
else
sMinute = Minute(dtPubDate)
end if
if Second(dtPubDate) < 10 then
sSecond = "0" & Second(dtPubDate)
else
sSecond = Second(dtPubDate)
end if
'Tue, 04 Nov 2003 05:00:00 GMT
sRfc822Date = WeekdayName(Weekday(dtPubDate), True) & ", " & sDay & " "
&MonthName(Month(dtPubDate), True) & " " & Year(dtPubDate) & " " & sHour
&":" & sMinute & ":" & sSecond & " GMT"
msgbox sRfc822Date
intTime=convertTime
msgbox intTime
function convertTime()
timGMT = DateAdd("h",14,Now())
'timeGMTS=DateAdd("s",5,Now())
convertTime = FormatDateTime(timGMT,3)'& "_"
&FormatDateTime(timGMTS,1)
end function
Happy Tester,
Byzoor,
On Thu, Aug 18, 2011 at 11:22 PM, Ram Mohan <[email protected]> wrote:
>
> you can go to control panal and click on region and languages then you can
> change which ever formate you want.
> you can see in attachment
>
>
> On Thu, Aug 18, 2011 at 10:59 AM, Ganga <[email protected]
> > wrote:
>
>> Hi All,
>>
>> Is anyone aware to overcome the following issues?
>> 1. Convert any time(E.g., IST, PST est) to EST
>> 2. To check the system time,we will get using Now() is in a EST time
>> format or not?
>>
>> Thanks in Advance
>> Ganga
>>
>> --
>> You received this message because you are subscribed to the Google
>> "QTP - HP Quick Test Professional - Automated Software Testing"
>> group.
>> To post to this group, send email to [email protected]
>> To unsubscribe from this group, send email to
>> [email protected]
>> For more options, visit this group at
>> http://groups.google.com/group/MercuryQTP?hl=en
>
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
