Future request — сдвиг даты по часам, минутам, секундам

^date::roll[hour](+1)
^date::roll[minute](+1)
^date::roll[second](+1)

ну да, было бы полезно :) (дополнение от 2010-11-22)

@getNewDate[date;timeout;value]
$result[$date]
^switch[timeout]{
	^case[year;month;day]{^date.roll[$timeout]($value)}
	^case[hour;minute;second]{
		^switch[[$timeout]{
			^case[hour]{$date[^date::create($date+1/24)]}
			^case[minute]{$date[^date::create($date+1/24/60)]}
			^case[second]{$date[^date::create($date+1/24/60/60)]}
		}
	}
}
$result[$date]

@getNewDate[date;timeout;value]
$result($date[^date.roll[$timeout]($value))

^date::create($date+1/24)
^date::create($date+1/24/60)
^date::create($date+1/24/60/60)

Ага, спасибо.