XProfan

 {$Cleq}
 $H C:ProfanIncludeWindows.ph

Proc Unixtime

    Declare Buffer#, Bufferptr&, Zeit&
    ist Struct TimeBuffer = FTimeLo&, FTimeHi&, DivLo&, DivHi&, BiasLo&, BiasHi&, ErgebnisLo&, ErgebnisHi&
    Dim Buffer#,32
    Bufferptr& = Addr(Buffer#)
    ~Getsystemtimeasfiletime( Buffer# )
    Long Buffer#,8 = $00989680, 0, $D53e8000, $019Db1de

    Asmstart _tounix(Bufferptr&)

        mov esi,para1
        mov eax,[esi]
        mov edx,[esi+4]
        sub eax,[esi+16]
        sbb edx,[esi+20]
        mov [esi],eax
        mov [esi+4],edx
        xor edi,edi
        or edx,edx
        jns @tu1
        inc edi
        neg eax
        adc edx,0
        neg edx
        mov [esi],eax
        mov [esi+4],edx
        @tu1:
        mov ebx,[esi+8]
        mov esi,[esi+12]
        or esi,esi
        jns @tu2
        inc edi
        neg ebx
        adc esi,0
        neg esi
        @tu2:
        jnz @tu3
        or ebx,ebx
        jz @tu8
        mov ecx,eax
        mov eax,edx
        xor edx,edx
        div ebx
        xchg eax,ecx
        div ebx
        jmp @tu6
        @tu3:
        bsr ecx,esi
        inc cl
        push ebx
        shrd ebx,esi,cl
        shrd eax,edx,cl
        shr edx,cl
        div ebx
        mov ebx,eax
        mul esi
        mov ecx,eax
        pop eax
        push esi
        mov esi,para1
        mul ebx
        add edx,ecx
        jc @tu4
        cmp edx,[esi+4]
        ja @tu4
        jb @tu5
        cmp eax,[esi]
        jbe @tu5
        @tu4:
        dec ebx
        @tu5:
        pop esi
        xor ecx,ecx
        mov eax,ebx
        @tu6:
        dec edi
        jnz @tu7
        neg eax
        adc ecx,0
        neg ecx
        @tu7:
        mov esi,para1
        mov [esi+24],eax
        mov [esi+28],ecx
        jmp @exit
        @tu8:
        xor eax,eax
        dec eax
        mov ecx,7fffffffh
        jmp @tu6
        @exit:

    Asmend (Zeit&)

    Dispose Buffer#
    Return Zeit&

Endproc

Declare Sek1&, Sek2&
Sek1& = UnixTime()
sleep 4000   schlafe 4 Sekunden (4000 Millisekunden)
Sek2& = UnixTime()
cls
print Startzeit:, Sek1&
print Endezeit:, Sek2&
print vergangen in Sekunden:, Sek2& - Sek1&
waitkey
end