Calculo de Años

[DarkByte]

procedure TForm1.Button1Click(Sender: TObject);
 
  function Edad(FechaNacimiento:string):integer;
  var 
     iTemp,iTemp2,Nada:word;
     Fecha:TDate;
  begin 
    Fecha:=StrToDate(FechaNacimiento);
    DecodeDate(Date,itemp,Nada,Nada);
    DecodeDate(Fecha,itemp2,Nada,Nada);
     if FormatDateTime('mmdd',Date) <
        FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1
                                     else Result:=iTemp-iTemp2;
  end; 
 
begin 
  Label1.Caption:=intToStr(Edad('07/09/1969'));
end;

Te da la edad en años. Ese procedure está en el truco 628 de trucomanía

[__cadetill]

se supone que

ModeloDatos.TblMueble.FieldValues['Añocompra']

es de tipo DateTime, no?
Pues entonces has de hacer lo que te proponia en el mensaje anterior

var
  D, M, AIni, AFin : Word;
begin
  DecodeDate(AFin, M, D, Date);
  DecodeDate(AIni, M, D, ModeloDatos.TblMueble.FieldValues['Añocompra']);
  ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni));
end;

[maruenda]

que ocurre si compro algo el 31/12/03 y lo vendo el 01/01/04. ?
que resultado debe dar? deberia dar 0 años. no? creo que no habria querestar solo los años, sino tener en cuenta toda la fecha.

[DarkByte]

manrueda... yo intento poner mi granito de arena conforme a mis conocimientos (o capacidad de búsqueda de información), es verdad lo que dices, debería de dar la fecha completa, el caso es que no se :d

[[eduarcol]]

 
function Edad(FecNac, FecAct: tDateTime): Integer;
var
   nAnoAct, nMesAct, nDiaAct: word;
   nAnoNac, nMesNac, nDiaNac: word;
   Edad: Integer;
begin
   //Calcula la edad en años
   //Desglosa la Fecha
   DecodeDate(FecNac, nAnoNac, nMesNac, nDiaNac);
   DecodeDate(FecAct, nAnoAct, nMesAct, nDiaAct);
   //Verifica una fecha
   if FecNac = 0 then
   begin
      Result := 0;
      Exit;
   end;
   //Edad en años
   Edad := nAnoAct - nAnoNac;
   //Calculo del mes
   if nMesAct = nMesNac then
   begin
      //Para el Dia
      if nDiaAct < nDiaNac then Edad := Edad - 1;
   end
   else if nMesAct < nMesNac then Edad := Edad - 1;
   //Devuelve el valor
   Result := Edad;
end;

para el qiue la necesite es unafuncion que devuelve la edad exacta en años tomando en cuenta hasta el dia.

FecNac: Fecha de Nacimiento
FecAct: Fecha Actual o fecha a la cual se quiere calcular la edad

Cualquier duda pregunten, esta funcion esta 100% operativa

[maruenda]

darkbyte, no tenia intencion de infravalorar tus conocimientos . Seguro que son superiores a los mios. solamente que anoche viendo esta pregunta se me ocurrio que podria tener esa pega. Que ademas es muy comun , no solo en programacion sino en cualquier ambito de la vida, cuando calculamos el tiempo transcurrido entre dos fechas. Solo di mi punto de vista. Espero no ofender a nadie. Aqui estamos para aprender y compartir conocimientos, ya que 4 ojos ven mas que 2. Son muchas las veces que alguien de este foro me ha ayudado con algun problema, o me ha aclarado alguno duda. un saludo.

[marcoszorrilla]

Me alegro de la aclaración hecha pues DarkByte es un asiduo coloborador del Club, por otra parte añadir que si restamos 2 fechas es decir dos variables del tipo Tdate, obtenemos días:

procedure TForm1.Button1Click(Sender: TObject);
var
dIni,dFin:Tdate;
nDias:Double;
begin
dIni:=Date - 10;
dFin:=Date;
nDias:=dFin - dIni;
ShowMessage(FormatFloat(',0.0000',n));
end;

En cuanto al ejemplo que propones, creo que habría que matizar, un bien adquirido el dia 20-08-1999 al día de hoy de 2004 no tendría 5 años y esto sería importante por ejemplo si pretendemos calcular la amortización del mismo.

Lo que propongo como solución sería restar los 2 fechas y dividirlas entre 365 si es que es posible es decir si el resultante fuera > 365

Un Saludo.

[DarkByte]

Empezado por maruenda

darkbyte, no tenia intencion de infravalorar tus conocimientos .

Jeje, que yo sepa nunca lo has hecho, me alegra que me corrijan, pues así veo cuales de mis teorías son erróneas y me ayuda a mejorar, por lo tanto quedo agradecido a los que me corrijen. Aquí tienes tú y todos los del foro un amigo para cuando lo necesitéis

Empezado por maruenda

Seguro que son superiores a los mios.

Eso lo dudo

Empezado por maruenda

solamente que anoche viendo esta pregunta se me ocurrio que podria tener esa pega.

Has hecho lo correcto, pues para eso está el foro...

Empezado por maruenda

Aqui estamos para aprender y compartir conocimientos, ya que 4 ojos ven mas que 2.

Pues claro!!, para eso está el foro!! , yo estoy aquí por lo mismo, aunque no puedo compartir mucho... pues no tengo el qué

Empezado por maruenda

un saludo.

Otro para tí...