'############################################################### '函数作用:币种转换 '############################################################### Function curr(curr_code, price) If curr_code = "RMB" Then curr = Application.WorksheetFunction.Round(price / 1.06, 2) ElseIf curr_code = "HKD$" Or curr_code = "HKD" Then curr = price ElseIf curr_code = "USD$" Or curr_code = "USD" Then curr = Application.WorksheetFunction.Round(price * 7.8, 2) ElseIf curr_code = "YEN$" Or curr_code = "YEN" Then curr = Application.WorksheetFunction.Round(price * 0.065, 2) End If End Function |
|