Installationsdatum von Windows auslesen

[Bangkok]

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.

'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

[horsthorn]

@Hallo Dieter
Der Code funktioniert
Trotzdem eine allgemeine Frage auch an andere XProfan-Nutzer:
Mir fällt auf, daß ständig mit VAR immer wieder neu declariert wird.
Wäre es in so einem Falle nicht vorzuziehen, die Declarationen am Anfang zu erstellen ?
Also
DECLARE u!,d!,t!,uts! usw...
Meiner Meinung nach ist das weniger Schreibarbeit und ein komplexere Code.
Wie gesagt, nur meine Meinung. Erschlagt mich nicht gleich

[Bangkok]

@Horst,

ich weiß nicht ob der Code durch declare komplexer wird, wage ich mal zu bezweifeln. Ich machs halt meistens so, dass ich die Variablen bei ihrem ersten Auftreten mit Var declariere. Aber das kann und sollte ja jeder halten wie er will.
Ich denke, es ist eins so gut wie das andere, ist ja auch kein Dogma.