burun2004
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Необходимо градусы (угловые), минуты, секунды в формате Г.ммсс перевести в градусы с долями градусов. составил программу:
Dim G As Single
Dim mm As Single
Dim ss As Single
G = 45.3
Print G
f = (G - Int(G)) * 100
Print f
mm = Int(f) / 60
Print mm
ss = (f - Int(f)) / 36
Print ss
G = Val(Int(G)) + Val(mm) + Val(ss)
Print G
G = 45.3 - для примера, так VB6 выдает значение G=47, вместо 45,5, mm=0.48777...., вместо 0,5. Может быть кто то пояснит, в чем причина? VB6 скачан из NET.
C уважением, burun2004/ |
