推 fumizuki:請善用推文系統@@ 03/26 20:03
還是老大細膩啊﹐嘿嘿
果然不一樣
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: Chr(13) 是不正確的，windows的換行符號一定要13(cr)+10(lf)
: strMsg = "應找金額為" & total & "元" & vbCrLf
: strMsg = strMsg & "以下為找零明細" & vbCrLf & vbCrLf
: Dim unit(1)
: unit(0) = Split("一千,一百,五十,十元,五元,一元", ",")
: unit(1) = Split("張,張,個,個,個,個", ",")
: For i = 0 To UBound(unit(0))
: strMsg = strMsg & unit(0)(i) & money(i) & unit(1)(i) & vbCrLf
: Next
: MsgBox strMsg
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 81.156.102.162