Array
(
)

Data não válida

Rodrigorpb
   - 09 dez 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.

#Código

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


Massuda
   - 09 dez 2005


Citação:
#Código

If (qCertPrepBatismoDATAINICIO.AsString = ´´) or (qCertPrepBatismoDATAFINAL.AsString = ´´) Then
Begin
...
Use .IsNull...#Código
If qCertPrepBatismoDATAINICIO.IsNull or qCertPrepBatismoDATAFINAL.IsNull Then
Begin
...



Rodrigorpb
   - 09 dez 2005

Obrigado Massuda,

Este jeito que uso é errado, pode dar problemas?


Obrigado novamente,
Rodrigo.


Rodrigorpb
   - 09 dez 2005

Outra coisa e caso eu queira colocar assim:

#Código

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


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

Rodrigo.


Massuda
   - 09 dez 2005

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


Rodrigorpb
   - 09 dez 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.


Massuda
   - 09 dez 2005

Entendi...#Código

If not  qCadastroDATA.IsNull Then ...



Rodrigorpb
   - 09 dez 2005

Valeu mesmo Massuda