* GETUTCDT.PRG
* GET SYSTEM TIME AND CONVERT TO UTC - DAYLIGHT TIME
* 03/09/87
public MHOUR,MMIN,MMO,MDAY,MYR
store substr(TIME(),1,2) to MHOUR
store substr(TIME(),4,2) to MMIN
store date() to MDATE
store month(MDATE) to MMO
store day(MDATE) to MDAY
store year(MDATE)-1900 to MYR
store val(MHOUR) to MHOUR
store val(MMIN) to MMIN
store int(MHOUR) to MHOUR
store int(MMIN) to MMIN
store MHOUR+4 to MHOUR
if MHOUR >= 24
   store MHOUR-24 to MHOUR
   store MDAY+1 to MDAY
endif
if MDAY = 32
   store MMO+1 to MMO
   if MMO = 2 .AND. MDAY = 29
      store MDAY-28 to MDAY
   if MMO = 4 .OR. MMO = 6 .OR. MMO = 9 .OR. MMO = 11 .AND. MDAY = 31
      store MDAY-30 to MDAY
   else
      store MDAY-31 to MDAY
   endif
   endif
endif
return