Fórum Estacionamento #368772
03/03/2009
0
Galera, estou desenvolvendo um sistema para um estacionamento a valor cobrado varia com a fração:
>5 min livre
<5 >15 min 0,75
<15 >45 min 1,00
<45 >60 min 1,50
alguém tem alguma idéia de como fazer isso?
Desde já obrigado!
>5 min livre
<5 >15 min 0,75
<15 >45 min 1,00
<45 >60 min 1,50
alguém tem alguma idéia de como fazer isso?
Desde já obrigado!
Leorez
Curtir tópico
+ 0
Responder
Posts
03/03/2009
Leorez
Galera, estou desenvolvendo um sistema para um estacionamento a valor cobrado varia com a fração:
<5 min livre
>5 <=15 min 0,75
>15 <=45 min 1,00
>45 <=60 min 1,50
alguém tem alguma idéia de como fazer isso?
Desde já obrigado!
<5 min livre
>5 <=15 min 0,75
>15 <=45 min 1,00
>45 <=60 min 1,50
alguém tem alguma idéia de como fazer isso?
Desde já obrigado!
Responder
Gostei + 0
03/03/2009
Dedi
Horario da entrada He=18:05
Horario de saida Hs=18:09
permanencia pe= HS-He
se pe<=5 então //livre
se pe>5 and pe<=15 então //tarifa 0,75
se pe>15 and pe<=45 então //tarifa 1,00
se pe>45 and pe<=60 então //tarifa 1,50
se pe>60 então //tarifa 1,00
vamos ao codigo
Horario de saida Hs=18:09
permanencia pe= HS-He
se pe<=5 então //livre
se pe>5 and pe<=15 então //tarifa 0,75
se pe>15 and pe<=45 então //tarifa 1,00
se pe>45 and pe<=60 então //tarifa 1,50
se pe>60 então //tarifa 1,00
vamos ao codigo
procedure TForm1.Button1Click(Sender: TObject);
var He,Hs:TTime;
Pe:Double;
begin
He:= StrToDateTime(Edit1.Text);
Hs:= StrToDateTime(Edit2.Text);
Pe:=Hs-He;
pe:=pe*1000;
if (Pe <5) then label1.caption:=´Livre´;
if (Pe >5) and (Pe <=15) then label1.caption:=´Tarifa 0,75´;
if (Pe >15) and (Pe <=45) then label1.caption:=´Tarifa 1,00´;
if (Pe >45) and (Pe <=60) then label1.caption:=´1,50´;
if (Pe >50) then label1.caption:=´2,00´;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)