Data não válida
09/12/2005
0
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
Posts
09/12/2005
Massuda
If (qCertPrepBatismoDATAINICIO.AsString = ´´) or (qCertPrepBatismoDATAFINAL.AsString = ´´) Then Begin ...
If qCertPrepBatismoDATAINICIO.IsNull or qCertPrepBatismoDATAFINAL.IsNull Then Begin ...
09/12/2005
Rodrigorpb
Este jeito que uso é errado, pode dar problemas?
Obrigado novamente,
Rodrigo.
09/12/2005
Rodrigorpb
If (qCertPrepBatismoDATAINICIO.AsString [b]<>[/b] ´´) or (qCertPrepBatismoDATAFINAL.AsString [b]<>[/b] ´´) Then Begin ...
Caso eu queira usar <> como faço do seu modo?
Rodrigo.
09/12/2005
Massuda
09/12/2005
Rodrigorpb
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.
Clique aqui para fazer login e interagir na Comunidade :)