?? module1.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -