Zeitzone ermitteln

[hotti]

Hi,

untenstehend, siehe Perl. Frage: geht das auch einfacher?

Hotti

== schnip ==

  
###########################################################################  
# like +0100 (1 Stunde vor GMT) oder -0430 (4 Stunden, 30 Minuten nach GMT)  
sub timezone{  
	my @lct = localtime(time);  
	my @gmt = gmtime(time);  
	  
	$lct[4]++;  
	$lct[5] += 1900;  
	$gmt[4]++;  
	$gmt[5] += 1900;  
  
	# Bezug auf 1.1.1970 2440588  
	my $mLocal = 1440 * (julianday($lct[3],$lct[4],$lct[5]) - 2440588) + $lct[1] + 60 * $lct[2];  
	my $mGreen = 1440 * (julianday($gmt[3],$gmt[4],$gmt[5]) - 2440588) + $gmt[1] + 60 * $gmt[2];  
  
	my $d = $mLocal - $mGreen;  
  
	my $sign = '+';  
	if($d < 0){  
		$sign = '-';  
		$d *= -1;  
	}  
	return sprintf("%s%02u%02u", $sign, $d / 60, $d % 60);  
}  
###########################################################################