本文主要是介绍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中经度分秒转换为十进制的函数的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
