Calculo de datas (quando data em branco)

Question

Bom o outro topico com rela��o aos valores esta resolvido obrigado a todosMais o de data resolvi abrir outro topico e passar o codigo que eu usoVeja so:var venc, Pagto: Tdate;    difdias :double;begin...

F�rum Vini · Answer

Ol�,tente usar esse c�digo:[code:1:7f377103fd]var  venc, Pagto: Tdate;   difdias :double; begin   try    venc:=StrToDate(dbEdit5.Text);   except    Showmessage(�Data de vencimento inv�lida!!�);  end;  try    Pagto:=StrToDate(dbEdit7.Text);   except    Showmessage(�Data de pagamento inv�lida!!�);  end;  difdias :=(Pagto - venc);   dbedit12.text:=FloatToStr(difdias); [/code:1:7f377103fd]Espero ter ajudado.Vinicius....

Lucas Silva · Answer

no evento onSetText do campo coloque:[code:1:f31ea7032b]procedure .queryCampoSetText(Sender: TField;  const Text: String);begin     if Text = �  /  /    � then       Sender.AsString := ��     else       Sender.AsString := Text;end;[/code:1:f31ea7032b]...

Wagner · Answer

Valeu .viniMais teu condigo n�o funciona para mim porque muitas vezes eu tenho que ter o campo data de pagamento em branco (se o cliente n�o pagou ainda) o que eu quero o evitar o erro quando dt.pag=nada. :lol: Oh! lucas eu acho que � por ai, mais tambem continua com a mensagem :lol:...

Lucas Silva · Answer

Qual a m�scara que voc� colocou no campo?...

F�rum Vini · Answer

[quote:2d35659c1d=�Wagner�]Valeu .viniMais teu condigo n�o funciona para mim porque muitas vezes eu tenho que ter o campo data de pagamento em branco (se o cliente n�o pagou ainda) o que eu quero o evitar o erro quando dt.pag=nada. :lol: Oh! lucas eu acho que � por ai, mais tambem continua com a mensagem :lol:[/quote:2d35659c1d]Ok Wagner,dei a dica usando o try..except porque ele j� � tamb�m uma forma de se verificar se a data est� v�lida. Mas no seu caso a dica do Lucas � melhor.T+,Vinicius....

Wagner · Answer

Dessa forma__/__/____no editmask 99/99/9999...

Wagner · Answer

[b:7a383dccc9]If[/b:7a383dccc9] nada [b:7a383dccc9]then[/b:7a383dccc9] sobe...

Paulo_amorim · Answer

Ol�Se o campo for vazio, o que deveria acontecer??o difdias deve retornar o que especificamente?At�+...

Wagner · Answer

Nada! eu apenas quero uma maneira de n�o mostrar a mensagem de erro �essa n�o � uma data valida � / / � � quando n�o informo a data de pagamento mais veja bem muitas vezes eu vou precisar do campo data de pagamento em branco (se o cliente n�o pagou ainda) so que como e um campo onde eu uso uma soma de datas ele da a mensagem quando n�o informo a data exegindo que eu bote a data mais so que como eu j� disse �muitas vezes n�o ter que preencher o campo data de pagamento�

Lucas Silva · Answer

[quote:0edb2deb6b=�Lucas Alves Silva�]no evento onSetText do campo coloque:

procedure .queryCampoSetText(Sender: TField;
  const Text: String);
begin
     if Text = �  /  /    � then
       Sender.AsString := ��
     else
       Sender.AsString := Text;
end;

[/quote:0edb2deb6b]

Wagner,
Este c�digo n�o funcionou???

Continua dando o erro do mesmo jeito?

Marco Salles · Answer

S� Uma Opini�o. Claro Que Todas as Opini�es Anteriores S�o De Muita Validade(Tanto No Uso Do Bloco Try Except, Tanto ao Testar o Campo No Evento OnSetTexte), Mas Eu Estou Achando Que o Nosso Amigo Wagner, Quer Evitar Que a Mensagem De Erro Apare�a , Caso a Data De Pagamento N�o Seja Informada(Como Ele Mesmo Disse, Pode Ser Que Ainda N� Houve o Pagamento)..Ent�o Olhando Por Este Prisma, Porque N�o Efetuar Um Simples Teste , Dentro Da Rotina Que Ele Mesmo Escreveu :?: :?: ...

var venc, Pagto: Tdate;
difdias :double;
begin
venc:=StrToDate(dbEdit5.Text);
if DbEdit7.Text <> �� Then  // Simples Teste
  begin
     Pagto:=StrToDate(dbEdit7.Text);
     difdias :=(Pagto - venc);
  end
else
  difdias:=0;
dbedit12.text:=FloatToStr(difdias);

F�rum Calculo de datas (quando data em branco) #214824