Calculos com Data ?

Question

Ol� Pessoal !Preciso fazer algo como, o usu�rio digitaria o n�mero de Dias/Meses/Anos e apartir disso gostaria de saber a Data.Exemplo:O Paciente tem 5 dias de Nascido:Dia = 5Mes = 0Ano = 0Apartir dis...

Marco Salles · Answer

[quote:58635add5b]O Paciente tem 5 dias de Nascido: [/quote:58635add5b]A Conta pergunta � : Cinco dias de Nascido a contados a partir de que ????� claro que pela sua resposta [quote:58635add5b]Dia = 5 Mes = 0 Ano = 0 Apartir disso eu acharia a data  de Nascimento 14/05/2006 [/quote:58635add5b]chega-se a uma data inicial de 09/05/2006....[b:58635add5b]Mas qualquer logica para se determinar a data Final depende da Data Inicial... [/b:58635add5b]Qual � a sua regra para construir esta Data Inicial ?????.. Ela � informada ??? ele � armazenada ??? ela � cadastrada ???...

Paullsoftware · Answer

se for para comparar com a data atual pode-se Subtrair o valor da data......

Emerson Nascimento · Answer

algo assim deve funcionar:uses DateUtils;data := data_de_partida/date;data := IncYear(IncMonth(data - dias, meses * -1), anos * -1);...

Renatacoimbra · Answer

Obrigada emerson.en pela dica, funcionou direitinho !

Olha o codigo para quem quiser:


function CalculaIdade(A, M, D: Word) : TDateTime;
Var
  Data: TDateTime;
begin
  Data := Date;
  Data := IncYear(IncMonth(Data - D, M * -1), A * -1);
  Result := Data;
end;

[]�s

Emerson Nascimento · Answer

vc poderia fazer assim:[code:1:b828688dd9]function CalculaNascimento(A, M, D: Word; DataDePartida: TDateTime = 0): TDateTime;begin  if DataDePartida = 0 then DataDePartida := Date;  Result := IncYear(IncMonth(DataDePartida - D, M * -1), A * -1);end;[/code:1:b828688dd9]se voc� quiser partir de uma data espec�fica, passe-a para a fun��o.nascimento := CalculaNascimento(5, 2, 0, datadesejada);se voc� quiser partir da data do sistema, n�o passe data alguma.nascimento := CalculaNascimento(5, 2, 0);...

Renatacoimbra · Answer

Hum, legal !vou adaptar a function ent�o.Obrigada mais uma vez.[]�s...

F�rum Calculos com Data ? #321718