十进制的经纬度转成度分秒的形式 

Format( Int (  [lon]  ))+"度"+
Format(Int ( ([lon]- Int ( [lon] ))*60))+"分"+
Format( Int (([lon]- Int ( [lon] )-Int (([lon]- Int ( [lon] ))*60 )/60)*3600 ))+"秒"


Format( Int (  [lat]  ))+"度"+
Format(Int ( ([lat]- Int ( [lat] ))*60))+"分"+
Format( Int (([lat]- Int ( [lat] )-Int (([lat]- Int ( [lat] ))*60 )/60)*3600 ))+"秒"




[lon]- Int ( [lon] )
121.521132-121


([lon]- Int ( [lon] ))*60     0.521132*60=31.2697


Int (([lon]- Int ( [lon] ))*60 )   31

Int (([lon]- Int ( [lon] ))*60 )/60   0.5166666

[lon]- Int ( [lon] )-Int (([lon]- Int ( [lon] ))*60 )/60  121.521132-121-0.5166666

([lon]- Int ( [lon] )-Int (([lon]- Int ( [lon] ))*60 )/60)*3600 秒



Int (([lon]- Int ( [lon] )-Int (([lon]- Int ( [lon] ))*60 )/60)*3600 )    0.0032*60*60 取整


Format( Int (([lon]- Int ( [lon] )-Int (([lon]- Int ( [lon] ))*60 )/60)*3600 ))+"度"

 

posted @ 2015-11-19 13:01  helloworld1314  阅读(1872)  评论(0)  编辑  收藏  举报