Dim ws As New notesuiworkspace
Dim ud As notesuidocument
Set ud = ws.currentdocument
sr = ud.fieldgettext("a"
If Left(sr,1)="￥" Then
sr = Right(sr,Len(sr)-1)
End If
If Left(sr,1)="-" Then
sr = Right(sr,Len(sr)-1)
End If
inputval = Val(sr)*100
filter:
If inputval >=1000000000 Then
qw = Fix(inputval/1000000000)
inputval = inputval - qw*1000000000
Else
If inputval >=100000000 Then
bw = Fix(inputval/100000000)
inputval = inputval - bw*100000000
Else
If inputval >=10000000 Then
sw = Fix(inputval/10000000)
inputval = inputval - sw*10000000
Else
If inputval >=1000000 Then
w = Fix(inputval/1000000)
inputval = inputval - w*1000000
Else
If inputval >=100000 Then
q = Fix(inputval/100000)
inputval = inputval - q*100000
Else
If inputval >=10000 Then
b = Fix(inputval/10000)
inputval = inputval - b*10000
Else
If inputval>=1000 Then
s = Fix(inputval/1000)
inputval = inputval - s*1000
Else
If inputval>=100 Then
g = Fix(inputval/100)
inputval = inputval - g*100
Else
If inputval >= 10 Then
j = Fix(inputval/10)
inputval = inputval - j*10
Else
If inputval >= 1 Then
f = Fix(inputval)
inputval = 0
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
If inputval >=1 Then Goto filter
sumstring = ""
If qw0 Then sumstring = sumstring + Convert(qw) +"仟"
If bw0 Then sumstring = sumstring + Convert(bw) +"佰"
If sw0 Then sumstring = sumstring + Convert(sw) +"拾"
If w0 Then
sumstring = sumstring + Convert(w) +"万"
Else
If sw0 Or bw0 Or qw0 Then sumstring = sumstring +"万"
End If
If q0 Then sumstring = sumstring + Convert(q) +"仟"
If b0 Then sumstring = sumstring + Convert(b) +"佰 "
If s0 Then sumstring = sumstring + Convert(s) +"拾"
If g0 Then sumstring = sumstring + Convert(g) +"元" Else sumstring = sumstring +"元"
If j0 Then sumstring = sumstring + Convert(j) +"角 "
If f0 Then sumstring = sumstring + Convert(f) +"分"
