2012-03-23
支票打印的日期大写问题解决方法(Access2007软件)
财务人员都知道,转账支票的出票日期是需要大写的。如果用手写,当然可以直接填写成大写,但如果设计专用软件进行套打,每张支票都在固定位置填写大写会很麻烦,也没有必要。这里仅以Access2007设计为例,给这方面的爱好者提供一个思路。
一、先设计一个Access2007表,加入转账支票可能需要的字段,比如付款人名称、付款人账号、收款人名称、付款金额、出票日期等等。其中的“出票日期”设成“日期”类型,默认值可以设成“date()”(即当天日期)。表设计好后命名保存备用。
二、新建模块,并输入以下内容
Public Function Udate(mDATE As Date, mYMD As Integer) As String
'用法 Udate(#1/2/2005#, i)
'i=1 贰零零伍
'i=2 零壹
'i=3 零贰
'i=0 贰零零伍年零壹月零贰日
Dim i As Integer, iD As Integer
Dim strDT(2) As String, strS As String
Dim strD(0 To 9) As String * 1
strD(0) = "零"
strD(1) = "壹"
strD(2) = "贰"
strD(3) = "叁"
strD(4) = "肆"
strD(5) = "伍"
strD(6) = "陆"
strD(7) = "柒"
strD(8) = "捌"
strD(9) = "玖"
For i = mYMD + (mYMD 0) To mYMD + (mYMD 0) - (mYMD = 0) * 2
If i = 0 Then
iD = Year(mDATE)
strDT(i) = strD(iD 1000) strD((iD 100) Mod 10) strD((iD 10) Mod 10) strD(iD Mod 10)
Else
If i = 1 Then iD = Month(mDATE) Else iD = Day(mDATE)
If iD 9 Then strS = "拾" Else strS = ""
strDT(i) = strD(iD 10) strS strD(iD Mod 10)
If iD 9 And iD Mod 10 = 0 Then strDT(i) = "零" Left$(strDT(i), 2)
End If
Next
Select Case mYMD
Case 0
Udate = strDT(0) "年" strDT(1) "月" strDT(2) "日"
Case Else
Udate = strDT(mYMD - 1)
End Select
End Function
三、以第一步建的表为基础新建一个查询,加入必要的字段。另在一个空白字段写表达式:“大写: Udate([出票日期],0)”。保存这个查询。
四、在原表中录入将要打印的支票信息,“出票日期”字段必须录入正确的日期。
五、运行查询,就会看到有一个大写的日期字段。有了这个结果,无论设计窗体,还是设计报表,都可以自由引用了。
趣游捕鱼高爆版官方最新版下载v12.0 安卓版
休闲益智 120.2M
下载趣游捕鱼官方正版手游下载v12.0 安卓最新版
休闲益智 117.1M
下载永夜降临复苏游戏下载v3.5.7 安卓最新版
卡牌对战 537.6M
下载创世战车手游下载v1.45.1.98037 安卓版
射击枪战 2.36G
下载dokkan七龙珠爆裂激战国际版手游下载v5.28.6 安卓版
动作闯关 97.6M
下载这就是江湖官方版下载v12.6.6 安卓最新版本
卡牌对战 211.6M
下载热血美职篮手游下载v1.19020.1722.0 安卓版
体育运动 1.62G
下载斗罗大陆魂师对决手游官方版下载v2.31.1 安卓版
卡牌对战 1.55G
下载坦克大决战游戏下载v1.9462 安卓官方正版
下载
孤胆车神维加斯官方正版(Gangstar Vegas)下载v8.5.1c 安卓手机版
下载
孤胆车神维加斯僵尸城版本下载v8.5.1c 安卓版
下载
英雄联盟云顶之弈手机版本下载v14.8.5768838 安卓最新版本
下载
苍蓝前线手游下载v1.1.0 安卓版
下载
崩坏学园2手游下载v12.2.8 安卓最新版本
下载
彩虹联萌手游下载v7.3.23015 安卓官方版
下载
花花填色苹果版下载v2.2.5 iPhone版
下载