《一个医药收费系统》请帮一下忙

beibeijia

要求如下：

[此贴子已经被作者于2004-1-10 10:09:51编辑过]

beibeijia

注意
1、每个项目有若干品种：如西药有上百个品种。

2、开单后此表中各项显示为该类(如西药——开出西药的合计款)合计款。

3、单据编号为：时间和序列号生成。

[此贴子已经被作者于2004-1-9 16:52:32编辑过]

sxgaobo

含糊！

beibeijia

附一个简单的大写转换函数：

一个大写转换的小程序。
Function Dx(ysz) As String
Dim dxxz As String
Dim dws As String
Dim lss As String
Dim ss As String
Dim i, ii As Long
ysz = Int(ysz * 10) / 10

If ysz = 0 Then

Dx = "零"
GoTo dx_exit
End If
ss = ""
i = 1
lss = Right(Str(100000000 + ysz * 10), 8)
dxxz = "零壹贰叁肆伍陆柒捌玖"
dws = "佰拾万仟佰拾元角"
Do
ii = Val(Mid(lss, i, 1))
If ii <> 0 Then Exit Do
If ii = 0 Then
i = i + 1
End If
Loop
Do While i <= 8
ss = ss + Mid(dxxz, Val(Mid(lss, i, 1)) + 1, 1) + Mid(dws, i, 1)
i = i + 1
Loop
Dx = ss + "整"
dx_exit:
End Function

beibeijia

感谢中……

编号前8位为时间转换而成，
——————————————
随日期变化而变化……

不知该用哪一个转换函数？？