home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / log / getutcst.prg < prev    next >
Encoding:
Text File  |  1987-04-17  |  880 b   |  32 lines
  1. * GETUTCST.PRG
  2. * GET SYSTEM TIME AND CONVERT TO UTC - STANDARD TIME
  3. * 03/09/87
  4. public MHOUR,MMIN,MMO,MDAY,MYR
  5. store substr(TIME(),1,2) to MHOUR
  6. store substr(TIME(),4,2) to MMIN
  7. store date() to MDATE
  8. store month(MDATE) to MMO
  9. store day(MDATE) to MDAY
  10. store year(MDATE)-1900 to MYR
  11. store val(MHOUR) to MHOUR
  12. store val(MMIN) to MMIN
  13. store int(MHOUR) to MHOUR
  14. store int(MMIN) to MMIN
  15. store MHOUR+5 to MHOUR
  16. if MHOUR >= 24
  17.    store MHOUR-24 to MHOUR
  18.    store MDAY+1 to MDAY
  19. endif
  20. if MDAY = 32
  21.    store MMO+1 to MMO
  22.    if MMO = 2 .AND. MDAY = 29
  23.       store MDAY-28 to MDAY
  24.    if MMO = 4 .OR. MMO = 6 .OR. MMO = 9 .OR. MMO = 11 .AND. MDAY = 31
  25.       store MDAY-30 to MDAY
  26.    else
  27.       store MDAY-31 to MDAY
  28.    endif
  29.    endif
  30. endif
  31. return
  32.