Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get local time in other countries
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 6 SP5
OS:
Windows 2000 SP4
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01134752
Message ID:
01134999
Views:
20
Mike

I still have to exit VFP to be able to get the latest time

This is the code - have I got it wrong

clear
clear all
SET HOURS TO 24
set talk off
set exact on


CREATE CURSOR WebPage (myMails m)
set century on
*(content m)
url="http://www.timeanddate.com/worldclock/full.html"
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", url,.f.)
objHTTP.Send()
Insert into WebPage (myMails) VALUES (objHTTP.ResponseText)
objHTTP = .null.

Thanks

Colin


>
objHTTP = .null.
>
>>Mike
>>
>>It works well but I have 1 last question - if I don't close the process I can't update the view without exiting VFP - how do I close it?
>>
>>Colin
>>
>>
>>>
CREATE CURSOR myWebPage (content m)
>>>url="http://www.timeanddate.com/worldclock/full.html"
>>>objHTTP = CreateObject("MSXML2.XMLHTTP")
>>>objHTTP.Open("GET", url,.f.)
>>>objHTTP.Send()
>>>Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
>>>MODIFY MEMO myWebPage.content
>>>
>>>>Mike
>>>>
>>>>Sounds good but how do I code the internet query from VFP6?
>>>>
>>>>>Do a query on this internet site, parse the page and do the calculation. This page gives you the current date and time for most places in the world.
>>>>>http://www.timeanddate.com/worldclock/full.html
>>>>>
>>>>>>Local computer is based in the UK - it needs to know what the local time is in Chicago where the package is going
>>>>>>
>>>>>>Colin
>>>>>>
>>>>>>>Wouldn't the local computer where the application is installed know the offset to GMT?
>>>>>>>
On Error *
>>>>>>>lcComputer = "."
>>>>>>>loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
>>>>>>>colItems = loWMIService.ExecQuery("Select * from Win32_TimeZone")
>>>>>>>For Each loItem In colItems
>>>>>>>	?"Bias: " + transf(loItem.Bias)  && Offset in minutes
>>>>>>>	?"Caption: " + transf(loItem.Caption) && Description of the setting
>>>>>>>	?"Daylight Bias: " + transf(loItem.DaylightBias)  && Daylight savings time setting
>>>>>>>	?"Description: " + transf(loItem.Description) && Description of the setting
>>>>>>>	?
>>>>>>>Next
>>>>>>>
>>>>>>>Or you can use the GETSYSTEMTIME() (GMT time) and make the diffence against the GETLOCALTIME() API to get the offset to GMT.
>>>>>>>
>>>>>>>>Hi
>>>>>>>>
>>>>>>>>I have a database which contains information about packages to be delivered all over the world - I want to be able to find out the local time at destination without having to calculate it manually
>>>>>>>>
>>>>>>>>So for example if I have a package to be delivered to Chicago I can automatically calulate that the time difference is 6 hours behind the UK
>>>>>>>>
>>>>>>>>Anyone ever done any work in this area?
>>>>>>>>
>>>>>>>>Thanks
>>>>>>>>
>>>>>>>>Colin
Specialist in Advertising, Marketing, especially Direct Marketing

I run courses in Business Management and Marketing
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform