Como fazer pra saber se a garantia é valida 3 meses depois?
Pessoal, bom dia...
Gente, eu tenho um banco de dados para cadastro do cliente de uma loja de conserto de aparelhos eletrônicos. Nesse banco eu tenho um campo onde eu coloco a data do conserto do aparelho e essa data me é mostrada em um DBEDIT...
Imaginem que eu tenho um cliente:
Paulo Neves e que sua TV ficou pronta dia 01/06/2004
O que eu quero é criar um código que me retorne a seguinte informação no EDIT
Como eu tenho um DBEDIT que me mostra essa data (01/06/2004) acho que o seria algo do tipo:
IF (a data sistema for 3 meses maior que a data do DBEDIT1) Then EDIT1.text = Garantia Expirada
ELSE
EDIT1.text = Garantia Válida
Seria mais ou menos isso... o que eu quero é que o programa me mostre se a garantia de um cliente, que será de 3 meses, já expirou ou não.
Se alguém puder me ajudar desde já eu agradeço!
Gente, eu tenho um banco de dados para cadastro do cliente de uma loja de conserto de aparelhos eletrônicos. Nesse banco eu tenho um campo onde eu coloco a data do conserto do aparelho e essa data me é mostrada em um DBEDIT...
Imaginem que eu tenho um cliente:
Paulo Neves e que sua TV ficou pronta dia 01/06/2004
O que eu quero é criar um código que me retorne a seguinte informação no EDIT
Como eu tenho um DBEDIT que me mostra essa data (01/06/2004) acho que o seria algo do tipo:
IF (a data sistema for 3 meses maior que a data do DBEDIT1) Then EDIT1.text = Garantia Expirada
ELSE
EDIT1.text = Garantia Válida
Seria mais ou menos isso... o que eu quero é que o programa me mostre se a garantia de um cliente, que será de 3 meses, já expirou ou não.
Se alguém puder me ajudar desde já eu agradeço!
Dark Knight
Curtidas 0
Respostas
Reginaldo174
28/06/2004
use esta função para saber a quantidade de dias decorridos
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
GOSTEI 0