Data não válida

09/12/2005

Olá amigos,
Gostaria de saber como faço para verificar pelo delphi se o campo data é branco (Null) no banco de dados. Exemplo: Gostaria de quando a data fosse branco fizesse outra coisa.

procedure TFCertPrepBatismo.ppDetailBand1BeforeGenerate(Sender: TObject);
begin
If (qCertPrepBatismoDATAINICIO.AsString = ´´) or (qCertPrepBatismoDATAFINAL.AsString = ´´) Then
Begin
//Abort;
End
Else
Begin
  ppLabel9.Caption := LowerCase(formatdatetime(´dd´,(StrToDate(qCertPrepBatismoDATAINICIO.AsString)))+´ DE ´+formatdatetime(´MMMM´,(StrToDate(qCertPrepBatismoDATAINICIO.AsString)))
  +´ DE ´+formatdatetime(´YYYY´,(StrToDate(qCertPrepBatismoDATAINICIO.AsString))))+´.´;

  ppLabel10.Caption := LowerCase(formatdatetime(´dd´,(StrToDate(qCertPrepBatismoDATAFINAL.AsString)))+´ DE ´+formatdatetime(´MMMM´,(StrToDate(qCertPrepBatismoDATAFINAL.AsString)))
  +´ DE ´+formatdatetime(´YYYY´,(StrToDate(qCertPrepBatismoDATAFINAL.AsString))))+´.´;
End;
End;


No código o que quero fazer é se não tiver data ele não escreve por extenso (Componente Extenso), pois se escrever dá erro de data inválida. Como posso fazer isso melhor.


Rodrigo.
Obrigado


Rodrigorpb

Respostas

09/12/2005

Massuda

If (qCertPrepBatismoDATAINICIO.AsString = ´´) or (qCertPrepBatismoDATAFINAL.AsString = ´´) Then
Begin
...
Use .IsNull...
If qCertPrepBatismoDATAINICIO.IsNull or qCertPrepBatismoDATAFINAL.IsNull Then
Begin
...



Responder Citar

09/12/2005

Rodrigorpb

Obrigado Massuda,

Este jeito que uso é errado, pode dar problemas?


Obrigado novamente,
Rodrigo.


Responder Citar

09/12/2005

Rodrigorpb

Outra coisa e caso eu queira colocar assim:

If (qCertPrepBatismoDATAINICIO.AsString [b&93;<>&91;/b&93; ´´) or (qCertPrepBatismoDATAFINAL.AsString &91;b&93;<>&91;/b&93; ´´) Then
Begin
...


Caso eu queira usar <> como faço do seu modo?

Rodrigo.


Responder Citar

09/12/2005

Massuda

Não tenho certeza, mas acho que quando a data é nula, qCertPrepBatismoDATAINICIO.AsString retorna ´31/12/1899´.


Responder Citar

09/12/2005

Rodrigorpb

Como uso isNull para <> (diferente). Exemplo

Em vez de.

If qCadastroDATA.asString <> ´ ´ Them
Begin
....

Caso queira usar do outro modo com IsNull (existe NoIsNull) como faço.

If qCadastroDATA.NotIsNull Them
Begin
....

Em vez de <> (diferente). Como fazer.


Rodrigo.
Obrigado.


Responder Citar

09/12/2005

Massuda

Entendi...
If not  qCadastroDATA.IsNull Then ...



Responder Citar

09/12/2005

Rodrigorpb

Valeu mesmo Massuda


Responder Citar