PB中经度分秒转换为十进制的函数

本文主要是介绍PB中经度分秒转换为十进制的函数，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

//******************************************************

// 返回类型为double，参数为string   ii_dufenmiao

// 调用格式为:uf_dfm_to_sz(ls_dufenmiao)

//*******************************************************

i_posj1 = len(ii_dufenmiao)
for i_j = 1 to i_posj1
 ls_bit = mid(ii_dufenmiao,i_j,1)
 if  not isnumber(ls_bit) then
  i_dfm = i_dfm + 1
  if i_dfm = 1 then
   ls_du = ls_result
   ls_result = ''
  end if
  if i_dfm = 3 then
   ls_fen = ls_result
   ls_result = ''
  end if
  if i_dfm = 5 then
   ls_miao = ls_result
   ls_result = ''
  end if
 continue
 end if
 //表示遇到不是数字，继续执行，不是汉字往下执行     
 if i_j < i_posj1 then
  ls_bit = mid(ii_dufenmiao,i_j,1)
 end if
 ls_result += ls_bit
next
return double(ls_du) + double(ls_fen)/60 + double(ls_miao)/3600

这篇关于PB中经度分秒转换为十进制的函数的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---