Currency format Display number

Currency | show

The following is the source code: function Formatcur (cur,v) Dim curd If InStr (cur, ".") >0 Then Curd = Split (cur, ".") (1) cur = split (cur, ".") (0) Else Curd = "00" End If If V=0 Then If Cur=0 Then formatcur= "<font color= ' #cccccc ' >-</font>" Else v9=cur& "" Va=len (V9) If Va<4 Then V2=v9 Else Yi=fix (VA/3) Y2= (yi+1) *3 t1=3-(Y2-VA) +1 If YI&LT;&GT;VA/3 Then E2= "" For I=1 to Yi V2= "," &mid (v9,t1+3* (i-1), 3) E2=e2+v2 Next V2=mid (v9,1, (va-3*yi)) &e2 Else E2= "" For y=2 to Yi V2= "," &mid (V9, (y-1) *3+1,3) E2=e2+v2 Next V2=mid (v9,1,3) &e2 End If End If Formatcur=v2 End If Else If Cur=0 Then formatcur= "<font color= ' #cccccc ' >-</font>" Else Formatcur=formatcurrency (cur) End If End If If curd<> "" and cur<>0 Then If Len (curd) <2 Then Curd = curd & "0" End If Formatcur = Formatcur & "." & Curd End If End Function