| Respuesta: Calculo Edad Exacta VB6 con Access
Hola, esta fórmula funciona creando dos campos una llamado [F_Inicial]= Fecha Inicial y otro llamado [F_Final]= Fecha Final o si quieres solo remplaza el nombre de los campos en la formula por el que tu uses, y un tercero donde calculará el resultado final.
=SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,DifFecha("aaaa",[F_Inicial],[F_Final])-1,DifFecha("aaaa",[F_Inicial],[F_Final])) & SiInm((SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,DifFecha("aaaa",[F_Inicial],[F_Final])-1,DifFecha("aaaa",[F_Inicial],[F_Final])))>1," Años "," Año ") & SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,"11",SiInm((Día([F_Final])-Día([F_Inicial]))<0,(DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))-1,DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))) & SiInm((SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,"11",SiInm((Día([F_Final])-Día([F_Inicial]))<0,(DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))-1,DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))))>1," Meses "," Mes ") & SiInm((Día([F_Final])-Día([F_Inicial]))<0,Día([F_Final])-Día([F_Inicial])+Día(AgregFecha("d",Día([F_Final])*-1,[F_Final])),Día([F_Final])-Día([F_Inicial]))
Saludos. |