Avisar a data de vencimento

[Mesfistofeles]

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 Setembro 27, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[Jhonas]

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

[Mesfistofeles]

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 Setembro 27, 2009 por Mesfistofeles

[Jhonas]

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

A lista de tópicos que te passei está direcionada a sua dúvida, se voce procurar voce acha....

http://scriptbrasil.com.br/forum/index.php...st&p=490532

abraço