Frage zu Win32

[pl]

und du bist um 1 daneben, weil ... ?

Keine Ahnung, nicht mein Gebiet. Liegt es am Vorzeichen?

Ja. Zeitzonen Bias ist vorzeichenbehaftet. Also ich denke auch daß man da 1 + 0xFFFFFFFF - $value; rechnen sollte um auf die 60 zu kommen. Bzw. auf 120 wenn SZ.

MfG

use strict;
use warnings;
use Win32::Registry;

my $hand;
my $path = quotemeta('SYSTEM\CurrentControlSet\Control\TimeZoneInformation');
$::HKEY_LOCAL_MACHINE->Open($path, $hand) or die $^E;
my ($type, $value);
$hand->QueryValueEx("ActiveTimeBias", $type, $value) or die $^E;

print 1 + 0xFFFFFFFF - $value;

.test ok