水晶报表自定义函数

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就可以了