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

AK666 16.07.2020 19:28 / 16.07.2020 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}
]

или "ну фигли тутто оптимирировать то?" :)

---