| | |
| | | ' IRPrice=99
|
| | | ' IRlimit1=5
|
| | | ' IRDtPrice=6
|
| | | elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区" Or StartArea="番禺区" Or StartArea="黄埔区" Or StartArea="白云区" Then
|
| | | elseIf StartArea="越秀区" Or StartArea="荔湾区" Or StartArea="海珠区" Or StartArea="天河区" Or StartArea="黄埔区" Or StartArea="白云区" Then
|
| | | IRPrice=169
|
| | | IRlimit1=5
|
| | | IRDtPrice=6
|
| | | elseif StartArea="番禺区" Then
|
| | | IRPrice=219
|
| | | IRlimit1=5
|
| | | IRDtPrice=6
|
| | | ElseIf StartArea="花都区" Then
|
| | | IRPrice=319
|
| | | IRPrice=169
|
| | | IRlimit1=5
|
| | | IRDtPrice=6
|
| | | ElseIf StartArea="增城区" Then
|
| | | IRPrice=359
|
| | | ElseIf StartArea="增城区" And Isluxury="0" Then
|
| | | IRPrice=99
|
| | | IRlimit1=5
|
| | | IRDtPrice=6
|
| | | IsOrdinary="1"
|
| | | Elseif StartArea="增城区" And Isluxury="1" Then
|
| | | IRPrice=99
|
| | | IRlimit1=5
|
| | | IRDtPrice=6
|
| | | IsOrdinary="1"
|
| | | ElseIf StartArea="从化区" Then
|
| | | IRPrice=359
|
| | | IRlimit1=5
|
| | |
| | | OrderPriceFRM = OrderPriceFRM & "+"&WaitingInt&"*"&IRWaitingCost
|
| | | OrderPriceTXT = OrderPriceTXT&"等待费用:"&WaitingInt*IRWaitingCost&"元\n"
|
| | | End If
|
| | | If ServiceOrdApptDate<>"" Then '非工作时间服务费用,周一~五的0800-2000 1.3倍
|
| | | If ServiceOrdApptDate<>"" Then '非工作时间服务费用20250624,周一~周五晚上22点后至早上7点整前为1.3倍
|
| | | sql="select SpecialRatio from SpecialDates where SpecialDates='"&formatdatetime(ServiceOrdApptDate,2)&"'"
|
| | | rs.open sql,objConn,1,1
|
| | | if not rs.Eof Then
|
| | |
| | | OrderPriceFRM = OrderPriceFRM & OrderPrice*(SpecialRatio-1)
|
| | | OrderPriceTXT = OrderPriceTXT&"节假日时间服务费用:"&OrderPrice*(SpecialRatio-1)&"元\n"
|
| | | OrderPrice=OrderPrice*SpecialRatio
|
| | | ElseIf (hour(ServiceOrdApptDate)<=8 Or hour(ServiceOrdApptDate)>=20) Then
|
| | | ElseIf (hour(ServiceOrdApptDate)>=22 Or hour(ServiceOrdApptDate)<7) Then
|
| | | OrderPriceFRM = OrderPriceFRM & OrderPrice*0.3
|
| | | OrderPriceTXT = OrderPriceTXT&"非工作时间服务费用:"&OrderPrice*0.3&"元\n"
|
| | | OrderPrice=OrderPrice*1.3
|