'-----------------------------------------------------------------------------------------------------
'
' 截取GPS数据的处理过程
'
' WYY 2006年4月
'
' 入口:strInfo
' 出口: uGPSInfo变量中
'
'说明:$GPRMC,100119.999,A,2236.8226,N,11403.7299,E,0.62,120.87,220506,,*00
' 100119.999 --十分秒(格林威治时间)
' 2236.8226,N --北纬坐标(2236.8226) 2236.8226,S ----南纬坐标
' 11403.7299,E --东京坐标(11403.7299) 11403.7299,E ----西京坐标
' 0.62 --gps的移动速度
' 120.87 --地面的方位角
' 220506 --日期
'-----------------------------------------------------------------------------------------------------
Public Function TransGPSData(strInfo As String) As Boolean
Dim strTemp As String '字符串缓存
Dim sTemp As String '暂存
Dim strTime &n