Ir ao conteúdo
  • Cadastre-se

Problema com Aviso diario, (variaveis não recebem os Edits)


NMarques

Posts recomendados

aí Pessoal...estou fazendo um projeto aqui...

E estou com alguns probleminhas para finalizar esse projeto...

Estou fazendo uma rotina q chama uma outra tela a cada X dias....só que o usuario que deve definir esse X...então fiz assim!

_____________________________

procedure aviso;
var
datainicial : TDatetime;
intervalo : integer;
begin
datainicial := strtodate(hoje);
intervalo := strtoint(dias);
if ((trunc(date - datainicial) MOD intervalo) = 0) then
try
Application.CreateForm(TMainform,Mainform);
MainForm.Showmodal;
finally
FreeAndNil(MainForm);
end

end;

___________________________

O maior problema é o seguinte....coloquei dois Edits que o usuario coloca o dia de hoje e daqui quanto tempo deseja receber o aviso(Mainform)....então cries as variaveis 'hoje' e 'dias' para receber estes, só que esta dando erro, quando executo o programa aparece a mensagem data não valida....

Qual seria a forma certa de fazer isso???

Desde já agradeço!!

Abrass...

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.