- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¦Ûq¨ç¼Æ¦p¦ó
Function fare(x As Double) As Double
If x <= 33.33 Then '¤Ö©ó500
fare = 500
ElseIf x <= 40 Then '¤¶©ó501-600
fare = x * 15 * 1.1
ElseIf x <= 66.67 Then '¤¶©ó601-1000
fare = x * 15 * 1.15
Else '¤j©ó1001
fare = x * 15 * 1.2
End If
End Function
¨Ï¥Î¤èªk:
B1=fare(A1) |
|