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.

du har
g = 60
m = 30
s = 48

Och får då
G = g + m/60 + s/(60^2) = g + m/60 + s/(3600)

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