Question

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

Answer 1

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是转换为度

Answer 2

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

工作表函数

Format改为TEXT()

Answer 3

=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行