Pegar data de registro cadastrado no banco de dados

Delphi

20/02/2004

como eu faço pra pegar o dia e o mês de uma data cadastrada no banco de dados?

Uso o Paradox 7


Facc

Facc

Curtidas 0

Respostas

Vieira_alex

Vieira_alex

20/02/2004

Exemplo:

Dia := FormatDateTime(´DD´,Table1.FieldByName(´DataNascimento´).AsDateTime);
Mes := FormatDateTime(´MM´,Table1.FieldByName(´DataNascimento´).AsDateTime);
DiaMes := FormatDateTime(´DDMM´,Table1.FieldByName(´DataNascimento´).AsDateTime);
Label4.Caption := Dia;
Label5.Caption := Mes;
Label6.Caption := DiaMes;

Ñ esqueça de criar as variaveis Dia, Mes ou DiaMes esta já junta o dia+mes.


blz..


GOSTEI 0
Facc

Facc

20/02/2004

Exemplo: Dia := FormatDateTime(´DD´,Table1.FieldByName(´DataNascimento´).AsDateTime); Mes := FormatDateTime(´MM´,Table1.FieldByName(´DataNascimento´).AsDateTime); DiaMes := FormatDateTime(´DDMM´,Table1.FieldByName(´DataNascimento´).AsDateTime); Label4.Caption := Dia; Label5.Caption := Mes; Label6.Caption := DiaMes; Ñ esqueça de criar as variaveis Dia, Mes ou DiaMes esta já junta o dia+mes. blz..


Valeu pela dica, outra coisa tem como extrair o dia e o mês da data do computador?


GOSTEI 0
Sremulador

Sremulador

20/02/2004

Dia := FormatDateTime(´DD´,DATE);
Mes := FormatDateTime(´MM´,DATE);
DiaMes := FormatDateTime(´DDMM´,DATE);
Label4.Caption := Dia;
Label5.Caption := Mes;
Label6.Caption := DiaMes;

:wink:


GOSTEI 0
Facc

Facc

20/02/2004

Dia := FormatDateTime(´DD´,DATE); Mes := FormatDateTime(´MM´,DATE); DiaMes := FormatDateTime(´DDMM´,DATE); Label4.Caption := Dia; Label5.Caption := Mes; Label6.Caption := DiaMes; :wink:


Valeu, estou tendo problemas nessa Procedure, vc poderia me ajudar?
procedure TForm1.Button1Click(Sender: TObject); Var DiaBd, MesBd, Dia, Mes : String; Cont : Integer; begin Cont := 0; Dia := FormatDateTime(´DD´, date); Mes := FormatDateTime(´MM´, date); While not DataModule1.Tbl_Clientes.Eof do Begin DiaBd := FormatDateTime(´DD´, DataModule1.Tbl_ClientesDt_Nascimento.AsDateTime); MesBd := FormatDateTime(´MM´, DataModule1.Tbl_ClientesDt_Nascimento.AsDateTime); if (DiaBd = IntToStr(3+(StrToInt(Dia)))) and (MesBd = Mes) then begin Cont := Cont + 1; end else DataModule1.Tbl_Clientes.Next; end; ShowMessage(´Existe(m) ´+ IntToStr(Cont) + ´ clientes fazendo aniversário´); end;

Ela entra num loop infinito, gostaria de saber onde está errado.


GOSTEI 0
Facc

Facc

20/02/2004

[quote:bd1dfd5f3b=´sremulador´]Dia := FormatDateTime(´DD´,DATE); Mes := FormatDateTime(´MM´,DATE); DiaMes := FormatDateTime(´DDMM´,DATE); Label4.Caption := Dia; Label5.Caption := Mes; Label6.Caption := DiaMes; :wink:


Valeu, estou tendo problemas nessa Procedure, vc poderia me ajudar?
procedure TForm1.Button1Click(Sender: TObject); Var DiaBd, MesBd, Dia, Mes : String; Cont : Integer; begin Cont := 0; Dia := FormatDateTime(´DD´, date); Mes := FormatDateTime(´MM´, date); While not DataModule1.Tbl_Clientes.Eof do Begin DiaBd := FormatDateTime(´DD´, DataModule1.Tbl_ClientesDt_Nascimento.AsDateTime); MesBd := FormatDateTime(´MM´, DataModule1.Tbl_ClientesDt_Nascimento.AsDateTime); if (DiaBd = IntToStr(3+(StrToInt(Dia)))) and (MesBd = Mes) then begin Cont := Cont + 1; end else DataModule1.Tbl_Clientes.Next; end; ShowMessage(´Existe(m) ´+ IntToStr(Cont) + ´ clientes fazendo aniversário´); end;

Ela entra num loop infinito, gostaria de saber onde está errado.[/quote:bd1dfd5f3b]


[b:bd1dfd5f3b]Problema resolvido, foi acrescentado Table.Next logo após o Cont := Cont +1[/b:bd1dfd5f3b]


GOSTEI 0
POSTAR