наверное надо отталкиваться от того, для чего был написан подобный код...

Misha v.3 26.04.2007 19:18

например, если точность времени не так важна, то можно так:

@roll[dt;sType;iValue]
^try{
	^dt.roll[$sType]($iValue)
	$result[$dt]
}{
	$exception.handled(1)
	$result[^roll($dt-1/24)[$sType]($iValue)]
}

P.S. это набросок, надо проверить и сделать чтобы он не зациклился например на 1970-01-15 %-)

---