Ir para conteúdo
Fórum Script Brasil
  • 0

Aviso a cada X dias...


Nino Marques

Pergunta

Estou fazendo um aviso q vai ser mostrado a cada X dias...

o dia de hoje e o tempo para mostrar a mensagem eu quero q seja definida pelo usuario, então criei duas variaveis e coloquei +- assim...

_______________________________________________

procedure TFhd1.FormCreate(Sender: TObject);

var

hoje2 : string;

diash1: string;

begin

hoje2 := dhoje.Text;

diash1:= diasf.Text;

end;

procedure aviso;

var

datainicial : TDatetime;

intervalo : integer;

begin

datainicial := strtodate(hoje2);

intervalo := strtoint(diash1);

if ((trunc(date - datainicial) MOD intervalo) = 0) then

try

Application.CreateForm(TMainform,Mainform);

MainForm.Showmodal;

finally

FreeAndNil(MainForm);

end

end;

____________________________

Mas não está dando certoo...

Qual seria a forma certa de fazer isso?

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Opa, cria um campo no banco chamado Hoje, no seu programa faz um dbedit puxando esse campo hoje, insira uma data! e salve no banco é claro, rsrs

Depois no oncreate do seu form, faça o seguinte:

clientdataset.open;

if date := clientdataset.fieldbyname('Hoje').asdatetime + 2 then

ShowMessage('è hojeeee, uhuhuhuu');

clientdataset.fieldbyname('Hoje').asdatetime := date;

clientdataset.applyupdate(0);

Observação, o + 2 é o numero de dias é o tempo que quer q exiba, você pode trocar por uma variavel ou criar um campo no banco tambem para ele!

creio que é isso

Abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Douglas_Soares a ideia q você deu é boa, mas dá forma q eu estou fazendo está fazendo exatamente oque eu quero, se:

ao invés de colocar uma variavel eu der um valor já fixo:

exemplo

datainicial := strtodate(hoje2); datainicial := strtodate('11/08/2009');

intervalo := strtoint(diash1); >>>>> intervalo := strtoint('10');

Então assim... criei dois Edit's um que você registra o dia de hojee....e outro q registra quantos dias o usuario quer para ver o aviso!!

Queria que o que o usuario escrevesse no edit fosse registrado em datainicial e intervalo....Mas da forma q fiz não deu certo..

Encima disso alguma sugestão?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...