Uma outra duvida sobre datas!!

Delphi

08/03/2005

Ola tenho os campos na tabela DATA:

entrada: 08/03/2005
tempo: 10
validade: 18/03/2005

quero as seguintes rotinas:

* se mudar a data do sistema mostra erro, a data do sistema tem q ser igual a data de entrada.

* se for igual ou maior que 18/03/2005 mostre mensagem de q a validade acabou!

ps: porem acho q vai chocar a segunda rotina com a primeira, como enta resolver este problema?


Njuniorba

Njuniorba

Curtidas 0

Respostas

Kapak

Kapak

08/03/2005

Olá colega,
procedure TimeChange(var Msg:TMessage); message WM_TimeChange;

procedure TForm1.TimeChange(var Msg:TMessage);
begin
  // mudou data e/ou hora do sistema
end;



GOSTEI 0
POSTAR