Действительно, стыдно ;))

mimimi 20.04.2007 21:58

Бывает ещё олимпиада раз в 4 года ;)

@yearLeft[birth][now;daysLeft;bissextileYears]
$now[^date::now[]]

$daysLeft($now - $birth)

$bissextileYears(0)
^for[year]($birth.year;$now.year){
	^if((($year % 4 == 0) && ($year % 100 != 0)) || ($year % 400 == 0)){
		$bissextileYears($bissextileYears + 1)
	}
}

$daysLeft($daysLeft - ($bissextileYears * 366))

$result($bissextileYears + ($daysLeft / 365))

---