Data não válida

Delphi

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

Rodrigorpb

Curtidas 0

Respostas

Massuda

Massuda

09/12/2005

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



GOSTEI 0
Rodrigorpb

Rodrigorpb

09/12/2005

Obrigado Massuda,

Este jeito que uso é errado, pode dar problemas?


Obrigado novamente,
Rodrigo.


GOSTEI 0
Rodrigorpb

Rodrigorpb

09/12/2005

Outra coisa e caso eu queira colocar assim:

If (qCertPrepBatismoDATAINICIO.AsString [b]<>[/b] ´´) or (qCertPrepBatismoDATAFINAL.AsString [b]<>[/b] ´´) Then
Begin
...


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

Rodrigo.


GOSTEI 0
Massuda

Massuda

09/12/2005

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


GOSTEI 0
Rodrigorpb

Rodrigorpb

09/12/2005

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.


GOSTEI 0
Massuda

Massuda

09/12/2005

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



GOSTEI 0
Rodrigorpb

Rodrigorpb

09/12/2005

Valeu mesmo Massuda


GOSTEI 0
POSTAR