R语言：计算现金工资的币数

新入职的员工，有的没有相应银行卡，需要计算现金工资的币数。实发工资，一般取整数。

简化计算，纸币面值只有100、10、1。4278除以100等于42余78，78除以10等于7余8，8除以1等于8。

复杂计算，纸币面值有100、50、20、10、5、1。4278除以100等于42余78，78除以50等于1余28，28除以20等于1余8，8除以10等于0余8，8除以5等于1余3，3除以1等于3。

R语言中，向下取整为%/%，取余为%%。

思路一取整配合取余。

思路二取整配合减法。4278%/%100=42，4278%/%10-(4278%/%100)*10=7，4278%/%1-(4278%/%10)*10=8。

7%/%5=1，(7-1*5)%/%2=1，7-1*5-1*2=0。

8%/%5=1，(8-1*5)%/%1=3。

思路三取余配合减法。4278%%100=78，(4278%%100)%%50=28，((4278%%100)%%50)%%20=8，(((4278%%100)%%50)%%20)%%10=8，((((4278%%100)%%50)%%20)%%10)%%5=3。

(78-28)/50=1，(28-8)/20=1，(8-8)/10=0，(8-3)/5=1。

Excel中向下取整为int，取余为mod。

在腾讯电脑管家配套的软件管理中搜索，R语言版本为2016年4月的3.2.5。