XProfan

Deutsch

Dieter Zornow (07.12.2010)

Ich habe mal etwas mit den neuen Datumsfunktionen von Xprofan 12 herumgespielt am Beispiel des Installationsdatums von Windows.
Müsste von Windows XP bis Win 7 und mit allen Datumsformaten sowie allen Zeitzonen funktionieren.
Nur die Sommerzeit bleibt unberücksichtigt, da Windows Beginn und Ende nicht ermitteln kann.
Kompilieren Markieren Separieren

'Autor Dieter Zornow
'Nur für Xprofan ab Version 12

Proc Wininstalldate

    Var bias! = 0
    Var bias$ = @Readini$("HKEY_DW_2","SYSTEM\ControlSet001\Control\TimeZoneInformation","Bias")

    If bias$ <> "0"

        If Left$(bias$,1) = "-"

            bias$ = del$(bias$,1,1)
            Else bias$ = "-"+bias$

        EndIf

        bias! = val(bias$)

    endif

    Var uts$ = Readini$("HKEY_DW_2","SOFTWARE\Microsoft\Windows NT\CurrentVersion","InstallDate")
    Var uts! = Val(uts$)
    Var t! = uts!/86400
    var test$ = Upper$(Readini$("HKEY_1","Control Panel\International","sShortDate"))

    if instr(".",test$)

        If Left$(test$,1) = "D"

            Var u! = dt("setDate", "01.01.1970")'unixtime
            Var d! = dt("setDate", "30.12.1899")'delphitime

        Else

            Var u! = dt("setDate", "01.01.1970")'unixtime
            Var d! = dt("setDate", "12.30.1899")'delphitime

        endif

    elseif instr("/",test$)

        If Left$(test$,1) = "D"

            Var u! = dt("setDate", "01/01/1970")'unixtime
            Var d! = dt("setDate", "30/12/1899")'delphitime

        Else

            Var u! = dt("setDate", "01/01/1970")'unixtime
            Var d! = dt("setDate", "12/30/1899")'delphitime

        endif

    elseif instr("-",test$)

        If Left$(test$,1) = "D"

            Var u! = dt("setDate", "01-01-1970")'unixtime
            Var d! = dt("setDate", "30-12-1899")'delphitime

        Else

            Var u! = dt("setDate", "01-01-1970")'unixtime
            Var d! = dt("setDate", "12-30-1899")'delphitime

        endif

    endif

    Var b! = dt("DaysBetween", d!,u!)
    Var idate$ = dt("getDate",6,t!+b!)
    t! = dt("setDate",left$(idate$,10))
    idate$ = del$(idate$,1,11)
    t! = dt("setTime",idate$, t!)
    Var d2! = dt("incMin", t!,bias!)
    return dt("getDate",6,d2!)

endproc

CLS
print Wininstalldate()
waitinput