- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]发放工资所需面额 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108236)
-- 发布时间：2017/10/18 20:18:00
-- [求助]发放工资所需面额
请教：有一列实际应发工资，然后分别有表达式列：一百元、五十元、二十元、一十元、五元、一元。请教如何实现在相应的列显示所需张数？比如应发工资为1999元，一百元列显示19，五十元列显示1，二十元列显示2，五元列显示1，一元列显示4；再例如应发工资为888元，一百元列显示8，五十元列显示1，二十元列显示1，一十元显示为1，五元列显示1，一元列显示3。
-- 发布时间：2017/10/18 21:09:00
--
参考代码
Dim num As Integer = 1999
Dim ms() As Integer = {100, 50, 20, 10, 5, 1}
Dim ls As new List(Of Integer)
For Each m As Integer In ms
Dim c As Integer = num \\ m
Dim y As Integer = num Mod m
If y = 0 Then
Exit For
Else
num = y
ls.add(c)
End If
Next
For i As Integer = 0 To ls.count-1
msgbox(ls(i) & "*" & ms(i))
Next
-- 发布时间：2017/10/20 17:27:00
--
我不懂编程，
下列是Excel的函数表达式，我想实现这种效果，请帮我写具体代码，谢谢！
百元 =INT(B3/100)
五十元 =INT((B3-C3*100)/50)二十元 =INT((B3-C3*100-D3*50)/20)
十元 =INT((B3-C3*100-D3*50-E3*20)/10)
五元 =INT((B3-C3*100-D3*50-E3*20-F3*10)/5)
一元 =B3-C3*100-D3*50-E3*20-F3*10-G3*5
-- 发布时间：2017/10/20 18:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目16.table |