Como colocar em um Label a quantidade em dias da diferença entre a data atual e a data de validade?
Olá pessoal, estero encontrar alguém que possa me ajudar aqui no fórum, já pesquisei mais não achei nada. No meu estoque eu tenho a data de validade do produto e eu gostaria de mostrar em um Label a quantidade em dias que faltam para o produto vencer. Alguém pode me ajudar?
Joelson
Curtidas 0
Melhor post
Luiz Santos
03/10/2016
Boa tarde Joelson.
Se você for fazer em DELPHI, você tem a função Date, que retorna a data e DaysBetween que retorna a diferença em dias entre 2 datas.
Nesse site tem um exemplo. (http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween).
Pra você exibir isso em um Label, só precisa atribuir o resultado da função nele.
Grande abraço
Se você for fazer em DELPHI, você tem a função Date, que retorna a data e DaysBetween que retorna a diferença em dias entre 2 datas.
Nesse site tem um exemplo. (http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween).
Pra você exibir isso em um Label, só precisa atribuir o resultado da função nele.
Grande abraço
GOSTEI 1
Mais Respostas
Joelson
03/10/2016
Olá Luiz, não consigo usar o DaysBetween. Aparece esse erro: Undeclared identifier: 'daysbetween', é por que não consigo declarar a unit DateUtils no uses, pois estou usando o delphi 5 e pelo que pesquisei aqui a unit DateUtil só funciona a partir do delphi 6. E agora?
GOSTEI 0
Joelson
03/10/2016
Olá Luiz, eu fiz dessa forma e deu certo. Muito obrigado você me ajudou bastante.
procedure TfrmEstoque.btn1Click(Sender: TObject);
var data1, data2 : TdateTime;
begin
data1 := Date;
data2 := dm_dados.tblEstoqueEST_VALIDADE.Value;
lbl1.Caption:=IntToStr(Round(data2 - data1));
end;
procedure TfrmEstoque.btn1Click(Sender: TObject);
var data1, data2 : TdateTime;
begin
data1 := Date;
data2 := dm_dados.tblEstoqueEST_VALIDADE.Value;
lbl1.Caption:=IntToStr(Round(data2 - data1));
end;
GOSTEI 0