XProfan

Español

p.specht

El DLL-Función timeGettime() el API es (en XProfan-11) el Pendant a XProfan-Variable &gettickcount y stellt el Tiempo en Millisekunden seit el Hochfahren de Windows dar - allerdings sin Energiesparzeiten. Daher puede ser relativ ligeramente una "Uptime"-Función lo hacer, vorausgesetzt el Timerkapazität de 2^32 ms (1 Monate 2 Wochen 5 Tage etc.) no es überschritten, qué en Servern aber ligeramente passieren kann. Anmerkung: Dem podría uno z.B. por Mitschreiben el Wechsel de - en + ergänzend beikommen, aber el überlasse Yo otro. Achtung: Das todo verschwindet después de 5 Sekunden Anzeige-Tiempo otra vez vom Schirm - Por favor, no wundern!

Kompilieren Marca Separación

Declarar ue$,txt$,n&,tm!,ende&
ue$="    Dieses  Windows  se ejecuta  ununterbrochen  seit  "
Windowstyle 24:font 2:Ventana 40,140 - %maxx-2*40,0:cls rgb(200,200,255)
repeat:locate 2,2:tm!=&gettickcount:caso tm!<0:tm!=tm!+2^32'porque unsigned
txt$=ue$:n&=tm!/1000/60/60/24/365.2425

if n&>0:txt$=txt$+" "+format$("###########0",n&)+" Jahr"+if(n&>1,"en","")

    tm!=tm!-n&*1000*60*60*24*365.2425
    endif:n&=tm!/1000/60/60/24/30.436875

    if n&>0:txt$=txt$+" "+format$("###########0",n&)+" Monat"+if(n&>1,"en","")

        tm!=tm!-n&*1000*60*60*24*30.436875
        endif:n&=tm!/1000/60/60/24/7

        if n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Woche"+if(n&>1,"n","")

            tm!=tm!-n&*1000*60*60*24*7
            endif:n&=tm!/1000/60/60/24

            if n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Tag"+if(n&>1,"en","")

                tm!=tm!-n&*1000*60*60*24
                endif:n&=tm!/1000/60/60

                if n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Stunde"+if(n&>1,"n","")

                    tm!=tm!-n&*1000*60*60
                    endif:n&=tm!/1000/60

                    if n&>0:txt$=txt$+"  "+format$("###########0",n&)+" Minute"+if(n&>1,"n","")

                        tm!=tm!-n&*1000*60
                        endif:n&=tm!/1000
                        txt$=txt$+"  "+format$("###########0",n&)," Sekunde"+if(n&>1,"n und"," und")
                        tm!=tm!-n&*1000:txt$=txt$+"  "+format$("###########0",tm!)+" Millisek."
                        Título de la ventana upper$(txt$):waitinput 1000:inc ende&

                    until ende&>5'Sekunden Einblendzeit

                    End