excel如何将小数表示的角度转换成度分秒格式,求代码

发布网友 发布时间：2022-04-24 09:37

我来回答

共3个回答

热心网友 时间：2022-06-18 13:44

B1=INT(A1)&"度"&INT((A1-INT(A1))*100)&"分"&INT((A1*100-INT(A1*100))*100)&"秒"

C1=INT(A1)+INT((A1-INT(A1))*100)/60+INT((A1*100-INT(A1*100))*100)/3600

B1是转换为度分秒
C1是转换为度

热心网友 时间：2022-06-18 13:44

利用时间转换函数(60进制）试试
'VBA函数
= Format(1.234/24, "h度m分s秒") ' 返回 1度14分2秒
= Format(1.234/24, "hh度mm分ss秒") ' 返回 01度14分02秒

工作表函数

Format改为TEXT()

热心网友 时间：2022-06-18 13:45

=TEXT(INT(A2),"0")&"."&TEXT(INT((A2-INT(A2))*60),"00")&"."&TEXT(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60*10000,"0000")

说明：A2是A列第2行