'金钱转换.12;-.12==>0.12;-0.12函数

'金钱转换.12;-.12==>0.12;-0.12
Function MoneyChange(str)
if instr(str,".")=1 then
 str="0"&str
elseif instr(str,".")=2 then
 str="-0"&mid(str,2)
end if
 MoneyChange=str
End Function
MsgBox MoneyChange(.12),65,"input .12 out ↓"
MsgBox MoneyChange(-.12),65,"input -.12 out ↓"

存为.vbs试试看