小型出租汽车起租价为1112元,中型出租汽车起租价为16元。起租里程都是3公里,超起租里程单价每公里2.12.4元。
载客运距超过10公里(不含10公里),超过部分按超起租里程单价加价50%3.6元。
当日23时(含23时)至次日5时(不含5时)时段内,起租费、超起租里程运价上浮30%依次为16元、3.1元、4.7元。
计价器车资金额显示以人民币“元”为单位,“元”以下不显示。
元以下尾数小于等于0.50元舍去,大于等于0.51元进“1元”。
出租汽车实行计时、计程并用的计价方式。在载客营运途中因非承运人责任时速低于12公里或应乘客要求停车等候时,每5分钟计收1公里超起租里程运价。由于承运人原因停驶时,承运人应暂停计费。
计算费用的asp代码(原计算方法):
Dim isAtNight
Dim fltDistance, fltWaitTime
Dim fltResult
Dim fltFirstLent, fltInRange, fltOutRange
fltFirstLent = 11
fltInRange = 2.1
fltDistance = Request(“distance”)
fltWaitTime = Request(“waittime”)
isAtNight = Request(“atnight”)
if isAtNight = “true” then
fltFirstLent = fltFirstLent * 1.3
fltInRange = fltInRange * 1.3
end if
fltOutRange = fltInRange * 1.5
fltResult = fltFirstLent
if fltDistance > 3 then
if fltDistance > 10 then
fltResult = fltResult + (10 – 3) * fltInRange + (fltDistance – 10) * fltOutRange
else
fltResult = fltResult + (fltDistance – 3) * fltInRange
end if
end if
if fltWaitTime <> “” then
fltResult = fltResult + int(fltWaitTime / 5) * fltInRange
end if
fltResult = int(fltResult + 0.5)
试估算(计算结果比实际打表可能少几块钱,不知是不是有猫腻)