O que fazer quando a data fica em branco?

Delphi

20/03/2004

Atualmente faço o seguinte:

// tratando datas
EdEntrada.Text := FormatDateTime(´dd/mm/yyyy´,Dm.TqTramitacaoENTRADA.AsDateTime);
EdSaida.Text := FormatDateTime(´dd/mm/yyyy´,Dm.TqTramitacaoSAIDA.AsDateTime);
EdDataDigitacao.Text := FormatDateTime(´dd/mm/yyyy´,Dm.TqTramitacaoDATA_DIGITACAO.AsDateTime);
EdProrrogacao.Text := FormatDateTime(´dd/mm/yyyy´,Dm.TqTramitacaoPRORROGACAO.AsDateTime);
// limpando datas
if EdSaida.Text = ´30/12/1899´ then EdSaida.Text := ´ / / ´;
if EdDataDigitacao.Text = ´30/12/1899´ then EdDataDigitacao.Text := ´ / / ´;
if EdProrrogacao.Text = ´30/12/1899´ then EdProrrogacao.Text := ´ / / ´;

Gostaria de saber se existe uma maneira mais direta para manipular os campos com data... tipo:
EdData := Dm.TqTramitacaoDATAENTRADA.Value // fica branco se ñ exist


Jonnymarques

Jonnymarques

Curtidas 0

Respostas

Marco Salles

Marco Salles

20/03/2004

Na Leitura Dos Dados Utilize a Propiedade AsString Dos Campos..
EdData.Text := Dm.TqTramitacaoDATAENTRADA.AsString

// fica branco se Não Existir

Na Inserção De Dados Ou Edição
Dm.TqTramitacaoDATAENTRADA.AsString :=EdData.Text;

P:S Considerando Edit1.Text Uma Data Válida

obs: A Função FormatDateTime Retorna a Data 30/12/1899 Caso a Data
a Ser Formatada For Igual a Zero Ou Nula....Então Tem Que Ter
Alguns Cuidados Para Manipular Esta Função...E Clássico Aqui No
Forum as Pessoas Comentarem Sobre Erros Estranhos De Datas
Experimente:
ShowMessage(FormatDateTime(´dd/mm/yyyy´,0));



GOSTEI 0
POSTAR