-sub timeconvert
-{
- my $orgtime=shift;
- my $type=shift;
- my $newtime;
- my ($hour,$min) = split (":", $orgtime);
- my @locar = localtime(time);
- my @gmtar = gmtime();
- my $oldtime = $hour*60 + $min;
- my $gmt = $gmtar[2]*60 + $gmtar[1];
- my $loc = $locar[2]*60 + $locar[1];
- my $diff;
- my $newtime;
- if ($gmt > $loc)
- {
- $diff = $gmt - $loc;
- if ($type eq '2utc')
- {
- print"umrechnen nach UTC<br>";
- $newtime = $oldtime + $diff;
- }else{
- $newtime = $oldtime - $diff;
- }
- }else{
- $diff = $loc - $gmt;
- if ($type eq '2utc')
- {
- $newtime = $oldtime - $diff;
- }else{
- $newtime = $oldtime + $diff;
- }
- }
- if ($newtime < 0 ){
- $newtime += 1440;
- }
- if ($newtime >= 1440){
- $newtime -= 1440;
- }
- my $newhour =sprintf"%02d", $newtime/60;
- my $newmin = sprintf"%02d",$newtime % 60;
- $newtime = "$newhour:$newmin";
- return $newtime;
-}