Fração de horas ( estacionamento )

MySQL

Delphi

FireMonkey

11/04/2019

Estou criando um sistema e travei no calculo do tempo que o cliente ficou no estabelecimento.
tenho um tabela de preço por hora que tem
1hr = 20,00
2hr = 25,00
3hr = 30,00
noite = 40,00

eu quero que verifique a entrada bata com a saida e verificar se o valor é correspondente a 1hr, 2 ou 3 horas.
estou usando esse código, ele busca a hora certinha, o valor, mas na hora de jogar o resultado ele pula para o fim.

var
TempoTotal,
dHoraIni,
dHoraFim : TTime;

PrecoUma_Hora
PrecoDuas_Hora : Double;

begin
//Hora Inicial
dHoraIni := StrToTime(Fmenu.labHora.Text);
//Hora Final
dHoraFim := now;
//Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
TempoTotal := dHoraFim - dHoraIni;

//Encontrar Valor que irá pagar pelo tempo que ficou
PrecoUma_Hora := Modelconexao.tb_precoUMA_HORA.AsCurrency;
PrecoDuas_Hora := Modelconexao.tb_precoDUAS_HORA.AsCurrency;
//Se o tempo total for menor igual a 1hr ele me dá o preço de 1hr
if (TempoTotal <= StrToTime('01:00:00')) then
begin
lblPrecoHora.Text := PrecoUma_Hora;
end
else
begin
//Se não for menor ou igual me deixa o campo com está
lblPrecoHora.Text := '0,00';

begin
//Se o tempo total for maior a 1hr e menor que 2hr, me dá o preço de 2hr
if (TempoTotal > StrToTime('01:00:00')) and (TempoTotal <= StrToTime('02:00:00')) then
begin
lblPrecoHora.Text := PrecoDuas_Hora
end
else
begin
lblPrecoHora.Text := '0,00';

end;
end;
end;
end;

Tem alguém possa me ajudar?!
Gilson

Gilson

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

11/04/2019

Veja se assim funciona:
var
	TempoTotal, 
	dHoraIni,
	dHoraFim : TTime;
	PrecoUma_Hora,
	PrecoDuas_Hora,
	PrecoTres_Hora : Double;
begin
	//Hora Inicial
	dHoraIni := StrToTime(Fmenu.labHora.Text);
	//Hora Final
	dHoraFim := now;
	//Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
	TempoTotal := dHoraFim - dHoraIni;

	// inicialmente, atribui zero para o valor cobrado
	lblPrecoHora.Text := '0,00';

	//Encontrar Valor que irá pagar pelo tempo que ficou
	PrecoUma_Hora := Modelconexao.tb_precoUMA_HORA.AsCurrency;
	PrecoDuas_Hora := Modelconexao.tb_precoDUAS_HORA.AsCurrency;
	PrecoTres_Hora := Modelconexao.tb_precoTRES_HORA.AsCurrency;

	if (TempoTotal <= StrToTime('01:00:00')) then
		//Se o tempo total for menor ou igual a 1hr ele me dá o preço de 1hr
		lblPrecoHora.Text := PrecoUma_Hora
	else
	if (TempoTotal <= StrToTime('02:00:00')) then
		//Se o tempo total for maior que 1hr e menor que 2hr, me dá o preço de 2hr
		lblPrecoHora.Text := PrecoDuas_Hora
	else
	if (TempoTotal <= StrToTime('03:00:00')) then
		//Se o tempo total for maior que 2hr e menor que 3hr, me dá o preço de 3hr
		lblPrecoHora.Text := PrecoTres_Hora;

end;
GOSTEI 0
Gilson

Gilson

11/04/2019

Veja se assim funciona:
var
	TempoTotal, 
	dHoraIni,
	dHoraFim : TTime;
	PrecoUma_Hora,
	PrecoDuas_Hora,
	PrecoTres_Hora : Double;
begin
	//Hora Inicial
	dHoraIni := StrToTime(Fmenu.labHora.Text);
	//Hora Final
	dHoraFim := now;
	//Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
	TempoTotal := dHoraFim - dHoraIni;

	// inicialmente, atribui zero para o valor cobrado
	lblPrecoHora.Text := '0,00';

	//Encontrar Valor que irá pagar pelo tempo que ficou
	PrecoUma_Hora := Modelconexao.tb_precoUMA_HORA.AsCurrency;
	PrecoDuas_Hora := Modelconexao.tb_precoDUAS_HORA.AsCurrency;
	PrecoTres_Hora := Modelconexao.tb_precoTRES_HORA.AsCurrency;

	if (TempoTotal <= StrToTime('01:00:00')) then
		//Se o tempo total for menor ou igual a 1hr ele me dá o preço de 1hr
		lblPrecoHora.Text := PrecoUma_Hora
	else
	if (TempoTotal <= StrToTime('02:00:00')) then
		//Se o tempo total for maior que 1hr e menor que 2hr, me dá o preço de 2hr
		lblPrecoHora.Text := PrecoDuas_Hora
	else
	if (TempoTotal <= StrToTime('03:00:00')) then
		//Se o tempo total for maior que 2hr e menor que 3hr, me dá o preço de 3hr
		lblPrecoHora.Text := PrecoTres_Hora;

end;


Vou testar agora, mano sei que não tem nada ver com esse post, mas você entende de enviar anexo pelo delphi 10.3, porque tenho todo código, adicionei os componentes, habilitei o gmail, mas quando ele roda, tenta conectar e vai direto pra disconnect.

Se souber me ajuda!
segue meu whats 79 99108-2648 Email gilson.oliver13@gmail.com
GOSTEI 0
Gilson

Gilson

11/04/2019

Veja se assim funciona:
var
	TempoTotal, 
	dHoraIni,
	dHoraFim : TTime;
	PrecoUma_Hora,
	PrecoDuas_Hora,
	PrecoTres_Hora : Double;
begin
	//Hora Inicial
	dHoraIni := StrToTime(Fmenu.labHora.Text);
	//Hora Final
	dHoraFim := now;
	//Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
	TempoTotal := dHoraFim - dHoraIni;

	// inicialmente, atribui zero para o valor cobrado
	lblPrecoHora.Text := '0,00';

	//Encontrar Valor que irá pagar pelo tempo que ficou
	PrecoUma_Hora := Modelconexao.tb_precoUMA_HORA.AsCurrency;
	PrecoDuas_Hora := Modelconexao.tb_precoDUAS_HORA.AsCurrency;
	PrecoTres_Hora := Modelconexao.tb_precoTRES_HORA.AsCurrency;

	if (TempoTotal <= StrToTime('01:00:00')) then
		//Se o tempo total for menor ou igual a 1hr ele me dá o preço de 1hr
		lblPrecoHora.Text := PrecoUma_Hora
	else
	if (TempoTotal <= StrToTime('02:00:00')) then
		//Se o tempo total for maior que 1hr e menor que 2hr, me dá o preço de 2hr
		lblPrecoHora.Text := PrecoDuas_Hora
	else
	if (TempoTotal <= StrToTime('03:00:00')) then
		//Se o tempo total for maior que 2hr e menor que 3hr, me dá o preço de 3hr
		lblPrecoHora.Text := PrecoTres_Hora;

end;


Boa tarde, cara não pegou!
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

11/04/2019

Fiz assim e funcionou:
var
    TempoTotal,
    dHoraIni,
    dHoraFim : TTime;
    PrecoUma_Hora,
    PrecoDuas_Hora,
    PrecoTres_Hora : Double;
begin
    //Hora Inicial
    dHoraIni := StrToTime(Edit1.Text);
    //Hora Final
    dHoraFim := Time;
    //Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
    TempoTotal := dHoraFim - dHoraIni;

    // inicialmente, atribui zero para o valor cobrado
    lblPrecoHora.Caption := '0,00';

    //Encontrar Valor que irá pagar pelo tempo que ficou
    PrecoUma_Hora := 20;//Modelconexao.tb_precoUMA_HORA.AsCurrency;
    PrecoDuas_Hora := 25;//Modelconexao.tb_precoDUAS_HORA.AsCurrency;
    PrecoTres_Hora := 30;//Modelconexao.tb_precoTRES_HORA.AsCurrency;

    if (TempoTotal > StrToTime('02:00:00')) then
        //Se o tempo total for maior que 2hr e menor que 3hr, me dá o preço de 3hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoTres_Hora)
    else
    if (TempoTotal > StrToTime('01:00:00')) then
        //Se o tempo total for maior que 1hr e menor que 2hr, me dá o preço de 2hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoDuas_Hora)
    else
        //Se o tempo total for menor ou igual a 1hr ele me dá o preço de 1hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoUma_Hora);

end;


GOSTEI 0
Gilson

Gilson

11/04/2019

Fiz assim e funcionou:
var
    TempoTotal,
    dHoraIni,
    dHoraFim : TTime;
    PrecoUma_Hora,
    PrecoDuas_Hora,
    PrecoTres_Hora : Double;
begin
    //Hora Inicial
    dHoraIni := StrToTime(Edit1.Text);
    //Hora Final
    dHoraFim := Time;
    //Tempo total que ficou no estabelecimento, Hora Inicial - menos Hora Final
    TempoTotal := dHoraFim - dHoraIni;

    // inicialmente, atribui zero para o valor cobrado
    lblPrecoHora.Caption := '0,00';

    //Encontrar Valor que irá pagar pelo tempo que ficou
    PrecoUma_Hora := 20;//Modelconexao.tb_precoUMA_HORA.AsCurrency;
    PrecoDuas_Hora := 25;//Modelconexao.tb_precoDUAS_HORA.AsCurrency;
    PrecoTres_Hora := 30;//Modelconexao.tb_precoTRES_HORA.AsCurrency;

    if (TempoTotal > StrToTime('02:00:00')) then
        //Se o tempo total for maior que 2hr e menor que 3hr, me dá o preço de 3hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoTres_Hora)
    else
    if (TempoTotal > StrToTime('01:00:00')) then
        //Se o tempo total for maior que 1hr e menor que 2hr, me dá o preço de 2hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoDuas_Hora)
    else
        //Se o tempo total for menor ou igual a 1hr ele me dá o preço de 1hr
        lblPrecoHora.Caption := FormatFloat(',#0.00',PrecoUma_Hora);

end;




O mano obrigado por me responder, mas dessa formar ai não pega, mas te tanto pesquisar acabei achando uma solução, diminuir hora inicial com hora final, depois usei decodeTime pra quebrar a hora e depois transformei em minutos, ai funcionou o > e <, não entendo o porquê mas ele só pegou quando tranaformei tudo em minutos e deixei como número inteiro, em time ele não pega!

Mas obrigado novamente, sim ainda estou com aquela dúvida sobre enviar anexo pdf pelo e-mail, já usei vários códigos e nenhum pegou!
GOSTEI 0
POSTAR