Výpočet Důchodového věku

<?php
$rok=(int)$_POST['roknarozeni'];
$poh=$_POST['pohlaví'];
$deti=(int)$_POST['deti'];
$mesic=(int)$_POST['mesicnarozeni'];
$mesiceS=Array(1=>'leden','únor','březen','duben','květen','červen','červenec','srpen','září','říjen','listopad','prosinec');
If($rok>0){
	$odchod=null;
	$vek=vek($poh,$rok,$mesic,$deti);
}
?>
<!Doctype HTML>
<html>
<head>
	<title> Výpočet Důchodového věku </title>
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
	<style type="text/css">
		body{background-color:#FF1493;font-size:16px}
		td {border:1px inset black}
	</style>
 </head>

 <body>
<h1 style="text-align:center"> Výpočet Důchodového věku </h1>
 <form action="duchod.php" method="POST">
 <table style="border:12px outset black;width:67%;margin:0 auto 0 auto">
 <tr>
	<td>Rok narození: </td>
	<td>
		<select id="roknarozeni" name="roknarozeni"><?php For($i=1931;$i<=Date('Y');$i++)echo "<option value='{$i}'".($rok==$i?' selected':'').">{$i}</option>";?></select>
	</td>
</tr>
<tr>
	<td>Měsíc narození</td>
	<td>
		<select id="mesicnarozeni" name="mesicnarozeni"><?php ForEach($mesiceS as $i=>$m) echo "<option value='{$i}'".($i==$mesic?' selected':'').">{$m}</option>"?></select>
	</td>
</tr>

 <tr>
 <td>Pohlaví:</td>
 <td>
	<select name="pohlaví" size="1"> 
		<option value="žena"<? If($poh=='žena')echo ' selected'?>>Žena </option>
		<option value="muž"<?  If($poh=='muž') echo ' selected'?>> Muž </option>
	</select> 
 </td>
 </tr>

 <tr>
 <td>Počet dětí:</td>
 <td> 
	<select id="pocetdeti" name="deti">
	 <option value="0"<? If($deti==0)echo ' selected'?>>Bez dětí</option>
	 <option value="1"<? If($deti==1)echo ' selected'?>>1 dítě</option>
	 <option value="2"<? If($deti==2)echo ' selected'?>>2 děti</option>
	 <option value="3"<? If($deti==3)echo ' selected'?>>3 děti</option>
	 <option value="4"<? If($deti==4)echo ' selected'?>>4 děti</option>
	 <option value="5"<? If($deti==5)echo ' selected'?>>5 a více dětí</option>
	</select> 
 </td>
 </tr>


 <tr>
 <td colspan="2" style="text-align:center"><input type="submit" value="Spočitej důchodový věk"></td>
 </tr>

 <tr>
 <td>Důchodový věk:</td>
 <td><input type="text" name="duchodovyvek" size="35"<? If(IsSet($vek))echo" value='{$vek}'";?>></td>
 </tr>

 <tr>
 <td>Odchod do důchodu:</td>
 <td><input type="text" name="odchod" size="35"<? If($rok>0)echo" value='".$odchod."'";?>></td>
 </tr>

 </table> 
 </form>
 </body>
</html>

<?php

function vek($poh,$rok,$mesic,$deti=0)
{
  If($poh=='muž'){
    If($rok<1936)
      $ret='60';
    ElseIf($rok<=1977){
      $muzi=Array(
        1936=>'60+2','60+4','60+6','60+8','60+10','61','61+2','61+4','61+6','61+8','61+10','62','62+2','62+4','62+6','62+8','62+10','63','63+2','63+4','63+6','63+8','63+10','64','64+2','64+4','64+6','64+8','64+10','65','65+2','65+4','65+6','65+8','65+10','66','66+2','66+4','66+6','66+8','66+10','67'
      );
      $ret=$muzi[$rok];
    }
    Else{
      $mesice=(2*($rok-1977));
      $zaklad=67 + (int)($mesice/12);
      $ret=$zaklad;   If($mesice>0) $ret.='+'.(int)($mesice%12);
    }
  }
  ElseIf($poh=='žena'){

	If($rok==0)
		return $ret='Špatné zadání';
    ElseIf($rok<=1977){
      If($deti==4)  $deti=3;
      ElseIf($deti>5) $deti=5;

      $zeny=Array(
        0=>Array(1931=>57,1932=>57,1933=>57,1934=>57,1935=>57,'57','57','57','57+4','57+8','58','58+4','58+8','59','59+4','59+8','60','60+4','60+8','61','61+4','61+8','62','62+4','62+8','63+2','63+8','63+10','64','64+2','64+4','64+6','64+8','64+10','65','65+2','65+4','65+6','65+8','65+10','66','66+2','66+4','66+6','66+8','66+10','67'),
        1=>Array(1931=>56,1932=>56,1933=>56,1934=>56,1935=>56,'56','56','56','56','56+4','56+8','57','57+4','57+8','58','58+4','58+8','59','59+4','59+8','60','60+4','60+87','61','61+4','61+8','62+2','62+8','63+2','63+8','64+2','64+6','64+8','64+10','65','65+2','65+4','65+6','65+8','65+10','66','66+2','66+4','66+6','66+8','66+10','67'),
        2=>Array(1931=>55,1932=>55,1933=>55,1934=>55,1935=>55,'55','55','55','55','55','55+4','55+8','56','56+4','56+8','57','57+4','57+8','58','58+4','58+8','59','59+4','59+8','60','60+4','60+8','61+2','61+8','62+2','62+8','63+2','63+8','64+2','64+8','65+2','65+4','65+6','65+8','65+10','66','66+2','66+4','66+6','66+8','66+10','67'),
        3=>Array(1931=>54,1932=>54,1933=>54,1934=>54,1935=>54,'54','54','54','54','54','54','54+4','54+8','55','55+4','55+8','56','56+4','56+8','57','57+4','57+8','58','58+4','58+8','59','59+4','59+8','60+2','60+8','61+2','61+8','62+2','62+8','63+2','63+8','64+2','64+8','65+8','65+10','66','66+2','66+4','66+6','66+8','66+10','67'),
        5=>Array(1931=>53,1932=>53,1933=>53,1934=>53,1935=>53,'53','53','53','53','53','53','53','53+4','53+8','54','54+4','54+8','55','55+4','55+8','56','56+4','56+8','57','57+4','57+8','58','58+4','58+8','59+2','59+8','60+2','60+8','61+2','61+8','62+2','62+8','63+2','63+8','64+2','64+8','65+2','65+8','66+2','66+8','66+10','67')
      );

      $ret=$zeny[$deti][$rok];
    }
    Else{
      $mesice=(2*($rok-1977));
      $zaklad=67 + (int)($mesice/12);
      $ret=$zaklad;   If($mesice>0) $ret.='+'.(int)($mesice%12);
    }
  }
	global $vek,$odchod,$mesiceS;
	$mesicu=Explode('+',$ret);
	$mesicu=$mesicu[0]*12+@$mesicu[1];
	
	$dat=Date_Create($rok.'-'.$mesic.'-01');
	Date_Modify($dat,'+'.$mesicu.' months');
	$odchod=$mesiceS[date_format($dat,'n')].' '.date_format($dat,'Y');
	$vek=$ret;
	If(StrPos($ret,'+')>-1)
		$ret=Str_Replace('+',' let a ',$ret). ' měsíců';
	Else
		$ret.=' let';
    return $ret;
}

ec?>
Rok narození:
Měsíc narození
Pohlaví:
Počet dětí:

Důchodový věk:
Odchod do důchodu: