do yLocalTime with "Moscow" Procedure yLocalTime LPARAMETERS lcCountry_or_City clear READYSTATE_COMPLETE =4 MAX_TIME =30 lcCountry_or_City=upper(lcCountry_or_City) if not (type("oIE")="O" and not isnull(oIE)) oIE = CreateObject("InternetExplorer.Application") endif oIE.visible=.t. lcURL="http://www.timezoneconverter.com/cgi-bin/tzc.tzc" lcURL=lower(lcURL) oIE.Navigate(lcURL) do while oIE.Readystate <> READYSTATE_COMPLETE wait wind time 1.0 "" enddo lcInnerText = upper(oIE.Document.Body.InnerText) *case lcUrl="http://www.timezoneconverter.com/cgi-bin/tzc.tzc" * find Region designation ln=occur(lcCountry_or_City,lcInnerText) if ln<=0 =messagebox("Country/City "+lcCountry_or_City+" not found!") else lcsubstr=substr(lcInnerText, at(lcCountry_or_City,lcInnerText)-1) lcsubstr=left(lcsubstr,at("/",lcsubstr,2)) lcRegion=strtran(lcsubstr,"/"+lcCountry_or_City,"") if not empty(lcsubstr) and not empty(lcregion) lcURL=lcURL+"?now=1&zone="+proper(lcRegion)+; +proper(lcCountry_or_City)+"&tozone=GMT" oIE.Navigate(lcURL) do while oIE.Readystate <> READYSTATE_COMPLETE wait wind time 1.0 "" enddo lcInnerText = oIE.Document.Body.InnerText lcmessage= left(lcInnerText, at("in "+proper(lcRegion),lcInnerText)-1) lcmessage=substr(lcmessage,rat(chr(13),lcmessage)) lcheader=substr(lcInnerText, at("in "+proper(lcRegion),lcInnerText)) lcheader="Current Time "+left(lcheader, at("convert",lcheader)-1) =messagebox(lcmessage,0, lcheader) endif endif oIE.Quit oIE=.NULL. release oIE return>i need to display time of various countries on a page and also check what time it is in that country and validate accordingly.