- SWITCH: {
- $monat eq "1" && do {
- $form->{fromdate}="1.1.$jahr";
- $form->{todate}="31.1.$jahr";
- last SWITCH;
- };
- $monat eq "2" && do {
- $form->{fromdate}="1.2.$jahr";
- #this works from 1901 to 2099, 1900 and 2100 fail.
- $leap=($jahr % 4 == 0) ? "29" : "28";
- $form->{todate}="$leap.2.$jahr";
- last SWITCH;
- };
- $monat eq "3" && do {
- $form->{fromdate}="1.3.$jahr";
- $form->{todate}="31.3.$jahr";
- last SWITCH;
- };
- $monat eq "4" && do {
- $form->{fromdate}="1.4.$jahr";
- $form->{todate}="30.4.$jahr";
- last SWITCH;
- };
- $monat eq "5" && do {
- $form->{fromdate}="1.5.$jahr";
- $form->{todate}="31.5.$jahr";
- last SWITCH;
- };
- $monat eq "6" && do {
- $form->{fromdate}="1.6.$jahr";
- $form->{todate}="30.6.$jahr";
- last SWITCH;
- };
- $monat eq "7" && do {
- $form->{fromdate}="1.7.$jahr";
- $form->{todate}="31.7.$jahr";
- last SWITCH;
- };
- $monat eq "8" && do {
- $form->{fromdate}="1.8.$jahr";
- $form->{todate}="31.8.$jahr";
- last SWITCH;
- };
- $monat eq "9" && do {
- $form->{fromdate}="1.9.$jahr";
- $form->{todate}="30.9.$jahr";
- last SWITCH;
- };
- $monat eq "10" && do {
- $form->{fromdate}="1.10.$jahr";
- $form->{todate}="31.10.$jahr";
- last SWITCH;
- };
- $monat eq "11" && do {
- $form->{fromdate}="1.11.$jahr";
- $form->{todate}="30.11.$jahr";
- last SWITCH;
- };
- $monat eq "12" && do {
- $form->{fromdate}="1.12.$jahr";
- $form->{todate}="31.12.$jahr";
- last SWITCH;
- };
- }
- $fromto .= "'".$form->{fromdate}."' and transdate <= '".$form->{todate}."'";
+ SWITCH: {
+ $monat eq "1" && do {
+ $form->{fromdate} = "1.1.$jahr";
+ $form->{todate} = "31.1.$jahr";
+ last SWITCH;
+ };
+ $monat eq "2" && do {
+ $form->{fromdate} = "1.2.$jahr";
+
+ #this works from 1901 to 2099, 1900 and 2100 fail.
+ $leap = ($jahr % 4 == 0) ? "29" : "28";
+ $form->{todate} = "$leap.2.$jahr";
+ last SWITCH;
+ };
+ $monat eq "3" && do {
+ $form->{fromdate} = "1.3.$jahr";
+ $form->{todate} = "31.3.$jahr";
+ last SWITCH;
+ };
+ $monat eq "4" && do {
+ $form->{fromdate} = "1.4.$jahr";
+ $form->{todate} = "30.4.$jahr";
+ last SWITCH;
+ };
+ $monat eq "5" && do {
+ $form->{fromdate} = "1.5.$jahr";
+ $form->{todate} = "31.5.$jahr";
+ last SWITCH;
+ };
+ $monat eq "6" && do {
+ $form->{fromdate} = "1.6.$jahr";
+ $form->{todate} = "30.6.$jahr";
+ last SWITCH;
+ };
+ $monat eq "7" && do {
+ $form->{fromdate} = "1.7.$jahr";
+ $form->{todate} = "31.7.$jahr";
+ last SWITCH;
+ };
+ $monat eq "8" && do {
+ $form->{fromdate} = "1.8.$jahr";
+ $form->{todate} = "31.8.$jahr";
+ last SWITCH;
+ };
+ $monat eq "9" && do {
+ $form->{fromdate} = "1.9.$jahr";
+ $form->{todate} = "30.9.$jahr";
+ last SWITCH;
+ };
+ $monat eq "10" && do {
+ $form->{fromdate} = "1.10.$jahr";
+ $form->{todate} = "31.10.$jahr";
+ last SWITCH;
+ };
+ $monat eq "11" && do {
+ $form->{fromdate} = "1.11.$jahr";
+ $form->{todate} = "30.11.$jahr";
+ last SWITCH;
+ };
+ $monat eq "12" && do {
+ $form->{fromdate} = "1.12.$jahr";
+ $form->{todate} = "31.12.$jahr";
+ last SWITCH;
+ };
+ }
+ $fromto .=
+ "'" . $form->{fromdate} . "' and transdate <= '" . $form->{todate} . "'";