求货币型的字段转大写字符型过程(50分)

求如23.12转换成贰拾叁元壹角贰分的过程。
最快答问者，最精确者各得25大元。

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=192656

gxg8816得40大元。

谁提供Access的原代码，那10打元就是他的。
懒。

你看中了哪个答案,我帮你翻译成Access的

Function upper_HZ(amount)

On Error Resume Next

s_amount = CStr(Format(Abs(amount), "####.00"))
s_len = Len(s_amount)
s_amount = String(12 - s_len, "0") & s_amount

hz = num_to_hz(Mid(s_amount, 12, 1)) & "分整"
hz = num_to_hz(Mid(s_amount, 11, 1)) & "角" & hz
hz = num_to_hz(Mid(s_amount, 9, 1)) & "元" & hz
hz = num_to_hz(Mid(s_amount, 8, 1)) & "拾" & hz
hz = num_to_hz(Mid(s_amount, 7, 1)) & "佰" & hz
hz = num_to_hz(Mid(s_amount, 6, 1)) & "仟" & hz
hz = num_to_hz(Mid(s_amount, 5, 1)) & "万" & hz
hz = num_to_hz(Mid(s_amount, 4, 1)) & "拾" & hz
hz = num_to_hz(Mid(s_amount, 3, 1)) & "佰" & hz
hz = num_to_hz(Mid(s_amount, 2, 1)) & "仟" & hz
hz = num_to_hz(Mid(s_amount, 1, 1)) & "亿" & hz

hz = Right(hz, (s_len - 1) * 4 + 2)

upper_HZ = hz

End Function
我自己写的一个,没他们的好,用于发票上.

呵呵，好象一粘进去编译就说变量没有定义。
看来，不能偷懒了。好宜心领了。10打元这里。

接受答案了.

去掉 Option Explict
或者自己定义变量