Public Function FormatDMSH( _
ByVal vValue As Variant _
) As Variant FormatDMSH("1234321W") = "123" + Chr$(176) + " 43"" 21' W"
FormatDMSH(" 654321N") = "65" + Chr$(176) + " 43"" 21' N"where Chr$(176) is the small-circle symbol representing degrees. DecimalToHMS Function
HMSToDecimal FunctionvValue: The 7 or 8 character string containing the latitude or longitude reading to which formatting characters will be added. Function returns Null if vValue is Null or cannot be fixed up to a String. Function returns vValue unchanged if it is not 7 or 8 characters long.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.