Access 支票打印的日期大寫問題解決方法
財務人員都知道,轉賬支票的出票日期是需要大寫的。如果用手寫,當然可以直接填寫成大寫,但如果設計專用軟件進行套打,每張支票都在固定位置填寫大寫會很麻煩,也沒有必要。這裏僅以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)”。保存這個查詢。
四、在原表中錄入將要打印的支票信息,“出票日期”字段必須錄入正確的日期。
五、運行查詢,就會看到有一個大寫的日期字段。有了這個結果,無論設計窗體,還是設計報表,都可以自由引用了。
相關文章
-
iOS8.3越獄後修復Cydia Substrate不兼容問題解決方法
小編下面給大家帶來的.是iOS8.3越獄後修復升級補丁,可以修復Cydia Substrate不兼容問題,希望可以幫助到大家。iOS8.3越獄很多人反饋安裝插件後無法正常的問題,其實屬於越獄工具導致CS(cydia Substrate)依賴不兼容iOS8.3 -
Asp Response.CharSet解決方法
Microsoft VBScript runtime error 800a01b6Object doesnt support this property or method: set檢查出錯代碼:Set = "GB2312"這行代碼主要是爲了解決ajax用get獲得數據時,中文亂碼的問題。刪除這行代碼後netbox正常運 -
解決Dreamweaver關於應用CSS的小問題
導語:Dreamweaver是集網頁製作和管理網站於一身的所見即所得網頁編輯器。由於DW的功能之強大,所以可以在他裏面直接定義css(樣式表),而就是這css給我出了個小難題。下面就由小編爲大家介紹一下解決Dreamweaver關於應用CSS -
解決Dreamweaver中關於應用CSS的小問題
Dreamweaver是集網頁製作和管理網站於一身的所見即所得網頁編輯器。由於DW的功能之強大,所以可以在他裏面直接定義css(樣式表),而就是這css給我出了個小難題。事情是這樣的, 我用css主要是改變一下我的超級連接的顏色和 -
excel數據導入access後提示字段類型轉換失敗怎樣解決
excel中有一列,單元格格式是 日期類型,導入到access時卻提示這個字段“類型轉換失敗”,這該怎麼辦?下面小編就爲大家詳細介紹一下,來看看吧!步驟1、以個人本次經驗來談,導致這個問題的原因是我導入時修改了該字段的數據類型2 -
js控制excel打印解決方案參考
做web開發大家都遇到過打印的問題,對於複雜的表格打印着實令人頭痛,這片文章介紹一下使用excel打印的解決方法。 首先,如果客戶端調用excel必須降低ie安全級別,這樣一些非法的控件,如3721什麼的都自動安裝了,所以我這樣解決 -
Connect to Idle Instance問題的解決方法
解決Connect to Idle Instance問題 第一步查看Oracle_SID.[oracle@linuxserver ~]$ echo $ORACLE_SIDcjdl這裏的'SID要和初始化文件裏的一樣才行。[oracle@linuxserver ~]$ cd $ORACLE_HOME[oracle@linuxserver -
計算機二級Access輔導:Access軟件應用指南
本文是本站小編搜索整理的關於計算機二級Access輔導:Access軟件應用指南,供參考學習,希望對大家有所幫助!想了解更多相關信息請持續關注我們應屆畢業生考試網! 一、光盤安裝及使用說明如下:(一)打開光盤打開光盤。點擊 -
Sql Server、Access數據排名的實現方法
但是,在SQL SERVER 2005 之前,SQL SERVER 2000 並沒有提供這個直接的.函數供我們使用,同樣 ACCESS 也是如此。下面我們分2種情況,來寫出數據排名的實現過程。測試數據如下:Access複製代碼 代碼如下:select name, score, (s -
關於打印時提示您不是administrator無法打印問題的解決方法
幼兒園中班第二學期德育工作總結 篇1雨果曾說過:花的事業是尊貴的,果實的事業是甜美的,讓我們做葉的事業吧,因爲葉的事業是平凡而謙遜的。教師就像那默默奉獻的綠葉,時時刻刻襯托着鮮花的嬌豔。師者,所以傳道、授業、解惑也