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...