forum.clarionlife.net

Код: Выделить всё

    Program

    Map
       Module('winapi') ; LoadLibrary    (*CString lpLibFileName), Long, raw, Pascal, name('LoadLibraryA')
                          GetProcAddress (Long hModule, *CString lpProcName), Long, raw, Pascal
                          FreeLibrary    (Long hLibModule), Long, Pascal, Proc.
          
       Module('msvcrt') ; time_msvcrt  (uLong), uLong, C, dll(1), name('time_ms').
       Module('ClaRun') ; time_ClaRun  (uLong), uLong, name('_time').
    .

LF Equate ('<10>')

adr_dll            Long
name_dll           CString('msvcrt.dll')
name_proc          CString('time')
h_time             Long, name('time_ms')

cur_sec_Cla        uLong
cur_sec_MS         uLong
cur_sec_CV         uLong
cur_DT             String('текущая дата-время: dd-mm-yy  hh:mm:ss')

sec_from_01_01_1900_00:00:00___to___01_01_1970_00:00:00  uLong(2208988800.0e+0)  !Согласно протоколу Time в RFC 868 70 лет до 1970 (время UNIX)

    Code

    cur_DT      = 'текущая дата-время: ' & Format(Today(), @D5-) & '  ' & Format(Clock(), @T4)
    cur_sec_Cla = time_ClaRun (0)

    adr_dll     = LoadLibrary (name_dll)
    h_time      = GetProcAddress (adr_dll, name_proc)
    cur_sec_MS  = time_msvcrt (0)
    cur_sec_CV  = cur_sec_MS + sec_from_01_01_1900_00:00:00___to___01_01_1970_00:00:00
    FreeLibrary (adr_dll)

    Message( cur_DT & LF & |
             Format(cur_sec_MS,  @p########## - секунды с 01-01-1970 (msvcrt.dll) p) & LF & |
             Format(cur_sec_CV,  @p########## - секунды с 01-01-1900 (что должно быть) p) & LF & |
             Format(cur_sec_Cla, @p########## - секунды с 23-04-1905 12:35:44 (ClaRun.dll) p), '    Итог :', , , , MSGmode:FixedFont)