Fórum O que fazer quando a data fica em branco? #221187
20/03/2004
0
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
// 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
Curtir tópico
+ 0
Responder
Posts
20/03/2004
Marco Salles
Na Leitura Dos Dados Utilize a Propiedade AsString Dos Campos..
// fica branco se Não Existir
Na Inserção De Dados Ou Edição
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:
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));
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)