财务人员都知道，转账支票的出票日期是需要大写的。如果用手写，当然可以直接填写成大写，但如果设计专用软件进行套打，每张支票都在固定位置填写大写会很麻烦，也没有必要。这里仅以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) = "玖"