access資料庫中如何實現金額數字大小寫轉換如何實現

2022-10-30 18:35:25 字數 2927 閱讀 1471

1樓:匿名使用者

以下**可以實現你說的功能,如下:

para money

*辨別是否是數字金額

if type("money") #"n"

=messagebox(" 金額型別出錯",0,_screen.caption)

return " "

endif

*轉換金額為字元型

if money>9999999999999.99=messagebox(" 數值太大,無法處理",0,_screen.caption)

return " "

endif

cmoney=allt(str(money,16,2))

2樓:匿名使用者

樓主是用access做

還是用其他的工具去處理然後存放到裡面了

3樓:匿名使用者

不知道樓主的意思是不是說把「1」變成「壹」,是的話就寫個函式替換一下就行了

4樓:匿名使用者

你是說把數字用大寫的表示嗎 這好像沒的啊

5樓:匿名使用者

你沒必要在access中實現那個功能啊,你可以藉助前臺的開發工具實現啊

access中怎麼讓從小寫數字轉換成的大寫直接儲存到表中(新手初學麻煩懂的老師給介紹下,學習了 謝謝)

6樓:匿名使用者

docmd.runsql "update 表 set 金額=" & chr(34) & text金額 & chr 34

按鈕點選事件執行該語句。

7樓:匿名使用者

需要使用函式了,還有一些vba了,

asp**如何把數字金額轉換成大寫金額:把access資料庫中讀出的數值(totalprice)轉換成大寫金額。 10

8樓:勁捷電子資訊

function int2chn(n)

dim i,j,k,strlen,retval,x,y,z,str

z=array("零","壹","貳","參","肆","伍","陸","柒","捌","玖")

y=array("","十","佰","仟")

x=array("","萬","億","萬萬億")

strlen=len(n)

str1=n

for i= 1 to strlen

j=mid(str1,i,1)

retval=retval&z(j)

if j>如果大於零,加入十進位字元

出現兩個零後只留一個

if ((strlen-i) mod 4)=0 and right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'每四位加入進階

把最後的零去掉

next

int2chn=retval

end function

把讀出來的數字用這個函式轉一下~

9樓:

public function bignum(xiaoxie as currency)

dim fuhao as string

dim snum as string

dim i as integer

fuhao = ""

if xiaoxie < 0 then

xiaoxie = -xiaoxie

fuhao = "負"

end if

if xiaoxie = 0 then

bignum = "零元整"

else

const cnum = "零壹貳叄肆伍陸柒捌玖-萬仟佰拾億仟佰拾萬仟佰拾元角分"

const ccha = "零仟零佰零拾零零零零零億零萬零元億萬零角零分零整-零零零零零億萬元億零整整"

bignum = ""

snum = trim(str(int(round(xiaoxie, 2) * 100)))

for i = 1 to len(snum)

bignum = bignum + mid(cnum, (mid(snum, i, 1)) + 1, 1) + mid(cnum, 26 - len(snum) + i, 1)

next i

for i = 0 to 11

bignum = replace(bignum, mid(ccha, i * 2 + 1, 2), mid(ccha, i + 26, 1))

next i

bignum = fuhao + bignum

end if

'申明:以上部分也是偷的人家的.下面是自己加的,上面的不解釋(不懂)下面的**的意思是按元取整

dim x

x = len(bignum)

if mid(bignum, x - 1) = "角整" then

bignum = mid(bignum, 1, x - 1)

else

bignum = bignum

end if

end function

10樓:

你要是想轉換為中文數字大寫,你還是自己寫一個吧,簡單的迴圈裡寫一個10個數字的轉換,再拼接在一起。很簡單的。

11樓:匿名使用者

自己寫一個函式轉化吧,

怎樣實現access資料庫中的查詢

1.選擇 建立 中的 其他 中的 查詢設計 2.此時彈出一個對話方塊,選中要查詢的表,然後 新增 3.此時注意到最下方的那個視窗。裡面就是指定查詢條件以及要返回的資訊的。4.欄位 這一項就是要選擇要返回的資訊項。這裡我全部選擇了。5.表 這一項就是要選擇要查詢的表。6.排序 這一項就是要選擇顯示資訊...

如何批量刪除Access資料庫中符合條件的記錄

delete from 表名 where 條件 in 條件 1,條件2 條件3 access 資料庫中,如何批量刪除記錄中指定的內容?1.點選選單欄上面的建立 查詢設計。2.然後再彈出的顯示錶的對話方塊中,我們選擇訂單表,然後點選新增按鈕。3.接著點選選單欄上面的 刪除 開啟刪除設計。4.將員工id...

access資料庫查詢中函式between的返回值是什麼

首先襲說明一下,access中沒有baibetween函式,在它支援的sql語句中有between語句,表示du介於a與b之間,可做 between a and b,用法如下zhi 舉個例子 假設dao需要查詢表中日期在starttime 和endtime之間的記錄,欄位名addtime,表名inf...