Internationales Datum und Zeitzone bestimmen

@echo off & setlocal
:: optional ....Summertime.... and the living is easy...
:: Geht natürlich nur mit Rechten auf HKLM...
Set regkey="HKLM\System\CurrentControlSet\Control\TimeZoneInformation"  
call :SaveOldValue ActiveTimeBias
call :SaveOldValue DaylightBias
call :SaveOldValue StandardName
call :SaveOldValue DaylightName
call :SaveOldValue Bias
If defined old_Bias             Set /a GMTdiff= %old_Bias% / -60
If defined old_ActiveTimeBias   Set /a Actdiff= %old_ActiveTimeBias% / -60
If defined old_DayLightBias Set /a UTCdiff= %old_DaylightBias% / -60
:: -----------
If defined ActDiff echo Act-Differenz in Stunden plus/minus: [All+%ActDiff%]
if defined old_StandardName Echo Zeitzone: %old_StandardName%
if defined old_DaylightName Echo Sommerzeit: %old_DaylightName%
If defined GMTDiff echo GMT-Differenz in Stunden plus/minus: [GMT+%GMTDiff%]
If defined UTCDiff echo UTC-Differenz in Stunden plus/minus: [UTC+%UTCDiff%]

goto :eof


~~~~~~~~~ [End of bätschelchen]
:SetNewvalue param1=wert param2=value in Anfü-Zeichen
reg add %regkey% /v "%~1" /d "%~2" /f >nul  
goto :eof

:SaveOldValue param1=regValue 
REM Anmerkung: wenn es den Wert nicht gibt oder keine Rechte darauf,
REM dann kommt keine Fehlermeldung, aber die Variable ist nicht definiert.
For /f "tokens=2*" %%i in ('reg query %regkey% /v "%~1" ^2^>nul^|findstr  /i "%~1"') do (  
    set "old_%1=%%j"  
) 
goto :eof

>e:\schnipsel\GetTimezones.cmd
Act-Differenz in Stunden plus/minus: [All+2]
Zeitzone: Westeuropäische Normalzeit
Sommerzeit: Westeuropäische Normalzeit
GMT-Differenz in Stunden plus/minus: [GMT+1]
UTC-Differenz in Stunden plus/minus: [UTC+1]

:: -----------Snipp GetEnDeCfg.cmd
:: Biber 2008 als Fussnote zum Workshop Batch 4 Runaways III" 
::  "Umgang mit Datums- und Zeitvariablen im Batch" 
@echo off & setlocal
REM Achtung: Unter W2000 _kein_ Fehler, aber auch kein sichtbarer Effekt
REM Die sofortige Nutzbarkeit der neuen Date/t und Time/t-Reg-Settings erst ab XP

set regkey="HKEY_CURRENT_USER\Control Panel\International"  
call :SaveOldValue sShortdate
call :SaveOldValue s1159
call :SaveOldValue s2359
call :SaveOldValue sTimeFormat
REM unused call :SaveOldValue iDate
REM unused call :SaveOldValue iTime
For %%i in (sShortDate s1159 s2359 sTimeformat) do @(
       if not defined old_%%i ( 
          @echo Fehler: %regkey% value "%%i" nicht gefunden  
          pause 
          goto :eof
       )   
)

:: set old_  <--- uncomment here for debug
:: würde diese nächsten Zeilen anzeigen
:: old_sShortdate=dd.MM.yyyy
:: old_iDate=1
:: old_s1159=AM
:: old_s2359=PM
:: old_sTimeFormat=HH:mm:ss


:: Originaldatum/zeit sichern
For /f "delims=" %%i in ('time/t') do set "xyTime=%%i"  
For /f "delims=" %%i in ('date/t') do set "xyDate=%%i"  

:: mal M$ einen freundlichen Gruß senden :-P
:: ..."coden wie ein Redmonder" ....muahaha... 
call :SetNewValue   sShortdate "ddd"  
For /f %%i in ('date/t') do set "WoTach=%%i"  
:: na...mitbekommen, was ich eben gemacht habe??


If "%WoTach%" equ "Mo" set "WoTaDe=Montag"     & set "WoTaEn=Monday"   
If "%WoTach%" equ "Di" set "WoTaDe=Dienstag"   & set "WoTaEn=Tuesday"  
If "%WoTach%" equ "Mi" set "WoTaDe=Mittwoch"   & set "WoTaEn=Wednesday"  
If "%WoTach%" equ "Do" set "WoTaDe=Donnerstag" & set "WoTaEn=Thursday"  
If "%WoTach%" equ "Fr" set "WoTaDe=Freitag"    & set "WoTaEn=Friday"  
If "%WoTach%" equ "Sa" set "WoTaDe=Samstag"    & set "WoTaEn=Saturday"  
If "%WoTach%" equ "So" set "WoTaDe=Sonntag"    & set "WoTaEn=Sunday"  
if defined WoTaDe goto :allesEasy
If "%WoTach%" equ "Mon" set "WoTaDe=Montag"     & set "WoTaEn=Monday"   
If "%WoTach%" equ "Thu" set "WoTaDe=Dienstag"   & set "WoTaEn=Tuesday"  
If "%WoTach%" equ "Wed" set "WoTaDe=Mittwoch"   & set "WoTaEn=Wednesday"  
If "%WoTach%" equ "Thu" set "WoTaDe=Donnerstag" & set "WoTaEn=Thursday"  
If "%WoTach%" equ "Fri" set "WoTaDe=Freitag"    & set "WoTaEn=Friday"  
If "%WoTach%" equ "Sat" set "WoTaDe=Samstag"    & set "WoTaEn=Saturday"  
If "%WoTach%" equ "Sun" set "WoTaDe=Sonntag"    & set "WoTaEn=Sunday"  
:allesEasy

:: auf deutsches XP-Date-Format setzen
:: unused call :SetNewValue    iDate
call :SetNewValue   sShortdate "dd.MM.yyyy"  
call :SetNewValue   s1159 ""  
call :SetNewValue   s2359 ""  
call :SetNewValue   sTimeFormat "HH:mm:ss"  

For /f "delims=" %%i in ('time/t') do set "deTime=%%i"  
For /f "delims=" %%i in ('date/t') do set "deDate=%%i"  

:; auf amerkanisches Date-Format setzen
:: unused call :SetNewValue    iDate
call :SetNewValue   sShortdate "MM-dd-yyyy"  
call :SetNewValue   s1159 "AM"  
call :SetNewValue   s2359 "PM"  
call :SetNewValue   sTimeFormat "hh:mm:ss tt"  

For /f "delims=" %%i in ('time/t') do set "enTime=%%i"  
For /f "delims=" %%i in ('date/t') do set "enDate=%%i"  

REM unused call :SetNewValue    iDate
call :SetNewValue  s1159 "%old_s1159%"  
call :SetNewValue  s2359 "%old_s2359%"  
call :SetNewValue  sTimeFormat "%old_sTimeFormat%"  
call :SetNewValue  sShortdate "%old_sShortDate%"  

:: optional ....Summertime.... and the living is easy...
:: Geht natürlich nur mit Rechten auf HKLM...
Set regkey="HKLM\System\CurrentControlSet\Control\TimeZoneInformation"  
call :SaveOldValue ActiveTimeBias
call :SaveOldValue DaylightBias
call :SaveOldValue StandardName
call :SaveOldValue DaylightName
call :SaveOldValue Bias
If defined old_Bias             Set /a GMTdiff= %old_Bias% / -60
If defined old_ActiveTimeBias   Set /a Actdiff= %old_ActiveTimeBias% / -60
If defined old_DayLightBias Set /a UTCdiff= %old_DaylightBias% / -60
:: -----------
Echo xyDate [xyTime]: %xyDate% [%xytime%]
Echo deDate [deTime]: %deDate% [%detime%]
Echo enDate [entime]: %enDate% [%entime%]
Echo WoTach: [%WoTach%] WoTaDe [%WoTaDe%] WoTaEn: [%WotaEn%]
If defined ActDiff echo Act-Differenz in Stunden plus/minus: [All+%ActDiff%]
if defined old_StandardName Echo Zeitzone: %old_StandardName%
if defined old_DaylightName Echo Sommerzeit: %old_DaylightName%
If defined GMTDiff echo GMT-Differenz in Stunden plus/minus: [GMT+%GMTDiff%]
If defined UTCDiff echo UTC-Differenz in Stunden plus/minus: [UTC+%UTCDiff%]
echo\
Echo @DaSilva:
echo say Heute ist %WoTach%, der %xyDate% um %xytime% in XY-Land
echo say Heute ist %WoTaDe%, der %deDate% um %time% Uhr in Deutschland
echo say Today is %WoTaEn%, %endate% %EnTime% in Germany

goto :eof


~~~~~~~~~ [End of bätschelchen]
:SetNewvalue param1=wert param2=value in Anfü-Zeichen
If %2=="""" (   
   reg add %regkey% /v "%~1" /f >nul  
) else (   
reg add %regkey% /v "%~1" /d "%~2" /f >nul  
)
goto :eof

:SaveOldValue param1=regValue 
For /f "tokens=2*" %%i in ('reg query %regkey% /v "%~1" ^2^>nul^|findstr  /i "%~1"') do (  
    If "%%j" Equ "" (set old_%1="") else set "old_%1=%%j"  
) 
goto :eof

>e:\schnipsel\GetEnDeCfg.cmd
xyDate [xyTime]: 20.06.08  [18:33]
deDate [deTime]: 20.06.2008  [18:33]
enDate [entime]: 06-20-2008  [06:33 PM]
WoTach: [Fr] WoTaDe [Freitag] WoTaEn: [Friday]
Act-Differenz in Stunden plus/minus: [All+2]
Zeitzone: Westeuropõische Normalzeit
Sommerzeit: Westeuropõische Normalzeit
GMT-Differenz in Stunden plus/minus: [GMT+1]
UTC-Differenz in Stunden plus/minus: [UTC+1]

@DaSilva:
say Heute ist Fr, der 20.06.08  um 18:33 in XY-Land
say Heute ist Freitag, der 20.06.2008  um 18:33:56,25 Uhr in Deutschland
say Today is Friday, 06-20-2008  06:33 PM in Germany

set regkey="HKEY_CURRENT_USER\Control Panel\International"   
reg add %regkey% /v s1159 /d "vm"  
reg add %regkey% /v s2359 /d "nm"  

reg query %regkey% /s

>time /t & echo %time%
 1:18
 1:18:38,97

.....
...
~~~~~~~~~ [End of bätschelchen]
:SetNewvalue param1=wert param2=value in Anfü-Zeichen

If %2=="""" (   
   reg add %regkey% /v "%~1" /f >nul  
) else (   
   reg add %regkey% /v "%~1" /d "%~2" /f >nul  
)
goto :eof

:SaveOldValue param1=regValue 
For /f "tokens=2*" %%i in ('reg query %regkey% /v "%~1" ^2^>nul^|findstr  /i "%~1"') do (  
    If "%%j" Equ "" (set old_%1="") else set "old_%1=%%j"  
) 
goto :eof