Geometri vinklar
Nu har jag fått hjärnsläpp.
Jag vill skriva en enkel algoritm som omvandlar tex. "60:30:48" till ett decimalt tal.
Dvs 60 gr 30 min 48 sek. bör bli något på 60,5.......
Jag har ju löst det men !
Det ser så himla klumpigt ut så att jag nästan är säker på att det finns smartare sätt.
Svara
Sv: Geometri vinklar
du har
g = 60
m = 30
s = 48
Och får då
G = g + m/60 + s/(60^2) = g + m/60 + s/(3600)
Svara
Sv:Geometri vinklar
Tack ungefär så jag har gjort.Trodde det fanns något smartare med Sin och Cos.
Din algorim är smartare än min. Missade helt det där med division 60 och 60^2 Tack
Så här blev det i Vb6 efter jag Splitat Stringen i 3 delar
<code>
Private Function ConvToDec(ByVal arg As String) As Single
'G = g + m/60 + s/(60^2) = g + m/60 + s/(3600)
Dim dec As Single, strArray() As String
strArray = Split(arg, ":")
dec = Int(strArray(0)) + Int(strArray(1)) / 60 + Int(strArray(2)) / 3600
ConvToDec = dec
End Function
</code>
Med tack till Niklas
Svara