博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2007年1月10日

摘要: '经纬度的十进制转换unction zbzh(x As String) As StringDim k As Stringk = Int(x) + Int((x - Int(x)) * 100) / 60 + Int((x * 100 - Int(x * 100)) * 100) / 3600zbzh = kEnd Function Private Sub UIButtonControl2_Cli... 阅读全文

posted @ 2007-01-10 11:53 疯狂大师 阅读(180) 评论(0) 推荐(0) 编辑