XProfan

English

p.specht

The DLL-function timeGettime() the API is (in XProfan-11) the Pendant to XProfan-Variable &gettickcount and position The Time in Millisekunden since the Hochfahren Windows dar - though without Energiesparzeiten. therefore can relatively slight a "Uptime"-function from it make, presupposed The Timerkapazität of 2^32 ms (1 months 2 weeks 5 days etc.) won't overstepped, what with Servern but slight occur can. Note: the could one z.B. through Mitschreiben the change of - on + ergänzend beikommen, but the überlasse I others. deference: the whole disappears after 5 sec display-Time again of screen - Please not wonder!

Compile Mark Separation

Declare ue$,txt$,n&,tm!,ende&
ue$="    this  windows  runs  continuing  since  "
Windowstyle 24:font 2:Window 40,140 - %maxx-2*40,0:cls rgb(200,200,255)
repeat:locate 2,2:tm!=&gettickcount:case tm!<0:tm!=tm!+2^32'because unsigned
txt$=ue$:n&=tm!/1000/60/60/24/365.2425

if n&>0:txt$=txt$+" "+stature$("###########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$+" "+stature$("###########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$+"  "+stature$("###########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$+"  "+stature$("###########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$+"  "+stature$("###########0",n&)+" Stunde"+if(n&>1,"n","")

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

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

                        tm!=tm!-n&*1000*60
                        endif:n&=tm!/1000
                        txt$=txt$+"  "+stature$("###########0",n&)," Sekunde"+if(n&>1,"n und"," und")
                        tm!=tm!-n&*1000:txt$=txt$+"  "+stature$("###########0",tm!)+" Millisek."
                        Window Title upper$(txt$):waitinput 1000:inc ende&

                    until ende&>5'sec Einblendzeit

                    End