Fórum Como colocar em um Label a quantidade em dias da diferença entre a data atual e a data de validade? #563475
03/10/2016
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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
Luiz Santos
Responder
Gostei + 1
Mais Posts
03/10/2016
Joelson
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?
Responder
Gostei + 0
03/10/2016
Joelson
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)