function jwd(x as double)
dim du as number
dim fen as number
dim miao as number
dim tempmiao as number
du=Truncate (x)
fen=Truncate((x-du)*60)
tempmiao=Truncate(((x-du)*60-fen)*60)
If tempmiao<=7.5 Then miao=0
if (tempmiao<=22.5) and (tempmiao>7.5) then miao=15
if (tempmiao<=37.5) and (tempmiao>22.5) then miao=30
if (tempmiao<=52.5) and (tempmiao>37.5) then miao=45
if (tempmiao>52.5) then
miao=0
fen=fen+1
if(fen>=60) then
fen=0
du=du+1
end if
end if
jwd=totext(Int(du),0)+"°"+totext(fen,"00")+"′"+totext(miao,"00")+"″"
end function
工作中需要使用水晶报表,这里是自定义的一个函数
然后再定义一个formula fields就可以了