用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
Di...[ 查看全文 ]
