Office中国论坛/Access中国论坛

标题: 那位朋友能指教. 金额大写转换. [打印本页]

作者: zv1185 时间: 2005-2-28 00:01
标题: 那位朋友能指教. 金额大写转换.
其它网站上说的不能用,高手帮助修一下好吗,谢谢

作者: 老鬼 时间: 2005-2-28 01:47
http://www.office-cn.net/forum.php?mod=viewthread&tid=24422

作者: 红池坝 时间: 2005-5-23 22:41
试试这个公式：=IF(A1=0,"零元整",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,"零"))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))

作者: dengyf 时间: 2005-5-24 00:34
Function dxje(q)

   ybb = Round(q * 100) '将输入的数值扩大100倍，进行四舍五入

   y = Int(ybb / 100) '截取出整数部分

   j = Int(ybb / 10) - y * 10 '截取出十分位

   f = ybb - y * 100 - j * 10 '截取出百分位

zy = Application.WorksheetFunction.Text(y, "[dbnum2]")

zj = Application.WorksheetFunction.Text(j, "[dbnum2]")

zf = Application.WorksheetFunction.Text(f, "[dbnum2]")

dxje = zy & "元" & "整"

   d1 = zy & "元"

   If f <> 0 And j <> 0 Then

   dxje = d1 & zj & "角" & zf & "分"

   If y = 0 Then

      dxje = zj & "角" & zf & "分"

   End If

   End If

   If f = 0 And j <> 0 Then

   dxje = d1 & zj & "角" & "整"

   If y = 0 Then

      dxje = zj & "角" & "整"

   End If

   End If

   If f <> 0 And j = 0 Then

   dxje = d1 & zj & zf & "分"

   If y = 0 Then

      dxje = zf & "分"

   End If

   End If

   If q = "" Then

   dxje = 0 '如没有输入任何数值为0

   End If

End Function

作者: 红池坝 时间: 2005-5-24 03:25
如果是普通应用，我上面的公式就行了如果真要用函数，还是老鬼哥哥推荐的那个好，简洁明了但是如果要说功能强大，还是下面这个好：http://www.office-cn.net/Article/Class5/Class16/200411/644.html

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)