module1.bas

用于GPS数据采集

Attribute VB_Name = "Module1"
Public strGPS As String
Public strLng As String, strLat As String
Public strStationName As String
Public filename As String
Public UpLng(256) As Byte, UpLat(256) As Byte
Public DownLng(256) As Byte, DownLat(256) As Byte

Public Function DFMExchange(wd As Single) As Single
 Dim WdD As Single
 Dim WdF As Single
 
   WdD = Int(wd / 100)
   WdF = (wd / 100 - WdD) / 60 * 100
   DFMExchange = WdD + WdF
End Function

Public Function vtoc(a As Integer) As String
If a >= 0 And a <= 9 Then
vtoc = Chr(a + &H30)
End If

If a >= 10 And a <= 15 Then
vtoc = Chr(a + 55)
End If

End Function
Public Function translateTime(strTime As String, strDate As String) As String
Dim strHour As String, strMinute As String, strSecond As String
Dim strYear As String, strMonth As String, strDay As String
strHour = Mid(strTime, 1, 2)
strHour = CStr((CInt(strHour) + 8))
strMinute = Mid(strTime, 3, 2)
strSecond = Mid(strTime, 5, 2)
strMonth = Mid(strDate, 1, 2)
strDay = Mid(strDate, 3, 2)
strYear = Mid(strDate, 5, 2)

If CInt(strHour) >= 24 Then
   strHour = CStr(CInt(strHour) Mod 24)
   strDay = CStr(CInt(strDay) + 1)
End If

If (CInt(strMonth) = 1 Or CInt(strMonth) = 3 Or CInt(strMonth) = 5 Or CInt(strMonth) = 7 Or CInt(strMonth) = 8 Or CInt(strMonth) = 10 Or CInt(strMonth) = 12) And CInt(strDay) > 31 Then
   strDay = "1"
   strMonth = CStr(CInt(strMonth) + 1)
End If

If (CInt(strMonth) = 4 Or CInt(strMonth) = 6 Or CInt(strMonth) = 9 Or CInt(strMonth) = 11) And CInt(strDay) > 30 Then
   strDay = "1"
   strMonth = CStr(CInt(strMonth) + 1)
End If

If CInt(strMonth) = 2 And CInt(strDay) > 28 Then
   strDay = "1"
   strMonth = CStr(CInt(strMonth) + 1)
End If
translateTime = strHour & ":" & strMinute & ":" & strSecond & Space(2) & strMonth & "-" & strDay & "-" & strYear
End Function