| | |
|---|
| | | 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
|
|---|
