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.