/* Read the parameter passed by PowerWeb */
parse arg parcel
/* Compute the time zones */
local = ServerReadText(parcel, "Request:/Argument/local")
gmt = ServerReadText(parcel, "Request:/Argument/gmt")
cshour = substr(gmt,1,2) + 2
if cshour > 23 then
cshour = cshour - 24
cs = right(cshour,2,"0")substr(gmt,3,6)
/* Display the results as an HTML table row */
html = ServerFind(parcel, "Request:/Result")
call ServerAppendText html,, ""
call ServerAppendText html,, ""local""
call ServerAppendText html,, ""gmt""
call ServerAppendText html,, ""cs""
call ServerAppendText html,, ""
/* A return value of 0 means the subroutine succeeded */
return 0
Time Zones
|
| Local
| GMT
| CompuSource
|