Ответ

coel 16.09.2014 15:08

Да, стоит самому, конечно же, но уж очень я туплю с вычислением дат. Даже такие простые вещи не столь очевидны. :( Вот например пытаюсь использовать этот пример и упираюсь в endless loop:

@_floatDay[m;wd]
$tCal[^date:calendar[rus]($dNow.year;$m)]
^tCal.offset[set](-1)
^while(!def $tCal.$wd){
	^if(!def $lCal.0 && !def $lCal.6){
		$result[$tCal.2]
	}{
		^tCal.offset[cur](-1)
	}
}
$result[$tCal.$wd]

---