OpenOffice.info

Function WechselnD(ByVal DMS As String)
	ar = Split(DMS, " ")
	for i = 0 to 2
       faktor = choose(i+1, 1, 60, 3600)
       x = x + val(ar(i)) / faktor
	next
	WechselnD = x
End function

Morgen,

wenn da immer Leerzeichen dazwischen stehen sollte so etwas ausreichen.

Übrigens, der VBA Code funktioniert so nicht, da fehlt eine Zeile, oder?

cu, Bernd
--
[code]Function WechselnD(ByVal DMS As String)
ar = Split(DMS, " ")
for i = 0 to 2
faktor = choose(i+1, 1, 60, 3600)
x = x + val(ar(i)) / faktor
next
WechselnD = x
End function
[/code]

Hallo

Gib bitte Bescheid ob [url]http://www.oooforum.org/forum/viewtopic.phtml?p=472420#472420[/url] geholfen hat!

Karo