Mi permetto di suggerire questo tip che permette di portare i valori dell'orario a GMT

'correzione orario a GMT
dim atbShell, atbKey, atb
set atbShell=CreateObject("WScript.Shell")
atbKey="HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias"
atb = atbShell.RegRead(atbKey)

DTStart=dateadd("n", atb, DTStart)
DTEnd=dateadd("n", atb, DTEnd)

---

Modificato da neovi il 05 aprile 2005 13.10 -