#!/usr/bin/perl -w
use strict;
use warnings;
my %test = (
	1	=> {
		von		=> '02.05.2011',
		bis		=> '30.06.2011',
		soll	=> 58,
	},
	2	=> {
		von		=> '02.05.2011',
		bis		=> '30.07.2011',
		soll	=> 88,
	},
	3	=> {
		von		=> '02.05.2011',
		bis		=> '30.01.2012',
		soll	=> 268,
	},
	4	=> {
		von		=> '02.05.2011',
		bis		=> '30.07.2012',
		soll	=> 448,
	},
	5	=> {
		von		=> '02.05.2011',
		bis		=> '28.05.2011',
		soll	=> 26,
	},
	6	=> {
		von		=> '02.05.2011',
		bis		=> '01.04.2011',
		soll	=> -31,
	},
);
foreach my $lfdnr (sort {$a <=> $b} keys %test) {
	my %callback = (
		von	=> $test{$lfdnr}{von},
		bis	=> $test{$lfdnr}{bis},
	);
	zinstage(\%callback);
	print "$lfdnr - $test{$lfdnr}{von} - $test{$lfdnr}{bis} soll $test{$lfdnr}{soll}: $callback{tage} ".($callback{tage} == $test{$lfdnr}{soll} ? 'OK' : 'FEHLER!'.chr(7))."\n";
}
############################
sub zinstage {
	my ($callback) = @_;
	my @von = split /\./,$callback->{von};
	my @bis = split /\./,$callback->{bis};
	$von[0] = 30 if $von[0] > 30;
	$bis[0] = 30 if $bis[0] > 30;
	$callback->{tage} = 30 - $von[0] + $bis[0];
	if ($von[1] + 1 != $bis[1]) {
		$callback->{tage} += ($bis[1] - $von[1] - 1) * 30;
	}
	if ($bis[2] > $von[2]) {
		$callback->{tage} += ($bis[2] - $von[2]) * 360;
	}
}