How to represent degrees minutes and seconds with a decimal number?

[eng-1a]

Hi, I'm having trouble representing degrees, minutes and seconds using a decimal number. Could you help me?

it would be something like: 31,2°=31°12'00''

[marcostrmuniz]

This is what I can thing right now. This macro may need more work to be really effective.

#def dms$(ang$)
#hide
d = floor(ang$)
m = ang$ - d|′
#show
#val
'Result = 'd'° 'm'′
#equ
#end def
dms$(31.2°)

[eng-1a]

thanks.with your code i tried something like: (including seconds)

#def dms$(dec$)
#hide
d = floor(dec$)
m = floor((dec$ - d)*60)
s = (((dec$ - d)*60) - m)*60
#show
#val
'Result = 'd'° 'm' ′'s'″'

#end def
dms$(31.12)

met my needs.

[marcostrmuniz]

@eng-1a , check out this updated code

#def dms$(ang$)
#hide
d = floor(ang$)
x = (ang$ - d)|′
m = floor((x))
s = if((x - m) < 0.0001″; 0″; (x - m))|″
#show
#novar
d' 'm' 's
#nosub
#end def
"Random tests
#repeat 10
'<hr/>
θ = random(360°)
dms$(θ)
'<hr/> 
#loop

[eng-1a]

valeu irmão, vou implementar no meu código.