parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

(рука-лицо.жипег) спасибищще! :)

AK666 16.07 19:28 / 16.07 19:29

результирующий вариант:
@dd2dms[aDD][locals;result]
	$lSS(^math:ceiling(^math:abs($aDD) * 3600))
	$lDD($lSS \ 3600)
	$lMM(($lSS - $lDD * 3600) \ 60)
	$lSS(($lSS - $lDD * 3600 - $lMM * 60))
$result[
	$.DD($lDD)
	$.MM($lMM)
	$.SS($lSS)
	$.D(^if($aDD<0){-1}{1}) ^rem{direction}
]
а вот кстати: а есть возможность в result например както так сделать?
@dd2dms[aDD][locals;result]
	$lSS(^math:ceiling(^math:abs($aDD) * 3600))
$result[
	$.DD($lSS \ 3600)
	$.MM(($lSS - $.DD * 3600) \ 60)
	$.SS(($lSS - $.DD * 3600 - $.MM * 60))
	$.D(^if($aDD<0){-1}{1}) ^rem{direction}
]
или "ну фигли тутто оптимирировать то?" :)