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

Avisar a data de vencimento


Mesfistofeles

Pergunta

Bom dia Amigos.

Acabei fazendo está variável só que quando vou compílar dá certo mas quando vou executar o programa ele abre só que quando vai entrar no form principal da o seguiine erro: "Is not valid date" "isto não é uma data válida" uso BD Access e acabei até mudandop o campo que era texto para "data/hora" mas ainda assim dá o mesmo erro "is not date valid"

Resumindo: Eu preciso que quando o programa abrir ele mostre em um DBGRID as contas que estão vencendo naquele dia ou seja comparar a data do computador com as datas que foram cadastradas no sistema desde já muito obrigado pela ajuda.Como poderia fazer isso?

var 
data,atual :TdateTime; 
begin 
Maskedit1.Text:=DateToStr(now); 
data:=StrToDate(datamodule1.VouReceberdatarecebimento.Text); 
atual:=StrToDate(Maskedit1.Text); 
if (atual = data) then 
DBGrid1.Visible:=true; 
JvNavPaneToolPanel1.Visible:=true; 
end; 
end.

Editado por Jonathan Queiroz
Adcionar tag's (Jonathan)
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
da o seguiine erro: "Is not valid date" "isto não é uma data válida" uso BD Access e acabei até mudandop o campo que era texto para "data/hora" mas ainda assim dá o mesmo erro "is not date valid"
Só para exemplificar o motivo do erro no seu código:

datamodule1.VouReceberdatarecebimento.Text

se o valor não estiver assim '20/10/2009' dará erro "is not date valid"

Fiz uma alteração no código somente para exemplificar

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   data,atual :Tdate;
   VouReceberdatarecebimento : String;
begin
   VouReceberdatarecebimento := '20/10/2009';

   Maskedit1.Text:=DateToStr(now);
   data:=StrToDate(VouReceberdatarecebimento);
   atual:=StrToDate(Maskedit1.Text);
   if (atual = data) then
      DBGrid1.Visible:=true;
   JvNavPaneToolPanel1.Visible:=true;
end;

Resumindo: Eu preciso que quando o programa abrir ele mostre em um DBGRID as contas que estão vencendo naquele dia ou seja comparar a data do computador com as datas que foram cadastradas no sistema desde já muito obrigado pela ajuda.Como poderia fazer isso?

Entretanto a maneira de fazer isso está errado ...

Faça uma busca no forum sobre sentenças SQL para pesquisa de datas no banco

http://scriptbrasil.com.br/forum/index.php...ite=select+data

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
da o seguiine erro: "Is not valid date" "isto não é uma data válida" uso BD Access e acabei até mudandop o campo que era texto para "data/hora" mas ainda assim dá o mesmo erro "is not date valid"
Só para exemplificar o motivo do erro no seu código:

datamodule1.VouReceberdatarecebimento.Text

se o valor não estiver assim '20/10/2009' dará erro "is not date valid"

Fiz uma alteração no código somente para exemplificar

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   data,atual :Tdate;
   VouReceberdatarecebimento : String;
begin
   VouReceberdatarecebimento := '20/10/2009';

   Maskedit1.Text:=DateToStr(now);
   data:=StrToDate(VouReceberdatarecebimento);
   atual:=StrToDate(Maskedit1.Text);
   if (atual = data) then
      DBGrid1.Visible:=true;
   JvNavPaneToolPanel1.Visible:=true;
end;

Resumindo: Eu preciso que quando o programa abrir ele mostre em um DBGRID as contas que estão vencendo naquele dia ou seja comparar a data do computador com as datas que foram cadastradas no sistema desde já muito obrigado pela ajuda.Como poderia fazer isso?
Entretanto a maneira de fazer isso está errado ...

Faça uma busca no forum sobre sentenças SQL para pesquisa de datas no banco

http://scriptbrasil.com.br/forum/index.php...ite=select+data

abraço

Ok dei uma olhada nas sentenças, no caso uso o Between? como poderia fazer usando as sentenças SQL?

Editado por Mesfistofeles
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,3k
×
×
  • Criar Novo...