Function price1(area, type1, weight)
If type1 = "doc" Then
Select Case area
Case Is = "LHR"
If weight <= 0.5 Then
price1 = 90
Else
price1 = 90 + Round((weight - 0.5), 1) * 2 * 30
End If
Case Is = "DXB"
If weight <= 0.5 Then
price1 = 45
Else
price1 = 45 + Round((weight - 0.5), 1) * 2 * 45
End If
Case Is = "CDG"
If weight <= 0.5 Then
price1 = 60
Else
price1 = 90 + Round((weight - 0.5), 1) * 2 * 25
End If
Case Else
price1 = MsgBox("请检查目的地是否输入正确", vbOKCancel)
If price1 = vbOK Then
price1 = area
Else
price1 = "错误"
End If
End Select
Else
Select Case area
Case Is = "LHR"
If weight <= 0.5 Then
price1 = 125
Else
price1 = 125 + Round((weight - 0.5), 1) * 2 * 30
End If
Case Is = "DXB"
If weight <= 0.5 Then
price1 = 60
Else
price1 = 60 + Round((weight - 0.5), 1) * 2 * 45
End If
Case Is = "CDG"
If weight <= 0.5 Then
price1 = 90
Else
price1 = 90 + Round((weight - 0.5), 1) * 2 * 25
End If
Case Else
price1 = msgbox("请检查目的地是否输入正确",vbokcancel)