Pegar data de registro cadastrado no banco de dados

Question

como eu fa�o pra pegar o dia e o m�s de uma data cadastrada no banco de dados?Uso o Paradox 7...

Vieira_alex · Answer

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.....

Facc · Answer

[quote:9547b11c65=�vieira_alex�]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..[/quote:9547b11c65]Valeu pela dica, outra coisa tem como extrair o dia e o m�s da data do computador?...

Sremulador · Answer

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

:wink:

Facc · Answer

[quote:99d7060653=�sremulador�]Dia := FormatDateTime(�DD�,DATE); Mes := FormatDateTime(�MM�,DATE); DiaMes := FormatDateTime(�DDMM�,DATE); Label4.Caption := Dia; Label5.Caption := Mes; Label6.Caption := DiaMes;  :wink:[/quote:99d7060653]Valeu, estou tendo problemas nessa Procedure, vc poderia me ajudar?[quote:99d7060653]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;[/quote:99d7060653]  Ela entra num loop infinito, gostaria de saber onde est� errado....

Facc · Answer

[quote:bd1dfd5f3b=�Facc�][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:[/quote:bd1dfd5f3b]Valeu, estou tendo problemas nessa Procedure, vc poderia me ajudar?[quote:bd1dfd5f3b]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;[/quote:bd1dfd5f3b]  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]...

F�rum Pegar data de registro cadastrado no banco de dados #215582