working out some ones age

[kevin lazell]

hi all
i am i need of some expert help please, i want to work out some ones age in years and months
lets say in a1 i have todays date and in cell b1 i have the birthday of 22/07/1954 the result in c1 should be 66.9
so when may arrives the result in c1 should be 66.10 in june result will be 66.11
prefer the answer in vba if possible
thanks in advance for any help

 

[Fluff]

How about

+Fluff 1.xlsm
	A	B	C
1
2	29/04/2021	22/07/1954	66.09
Main

Cell Formulas
Range	Formula
C2	C2	=DOLLARFR(DATEDIF(B2,A2,"m")/12,12)

 

[kevin lazell]

Hi Fluff
sorry about the delay in responding to you answer i tried your formula but alas the result was not correct.
column c is your formula results and column d is the expected results thank you for helping with this

30/04/2021	26/01/1954	67.03	66.09 66 years and 9 months old
	26/02/1954	67.02	66.10
	26/03/1954	67.01	66.11
	26/04/1954	67.00	67.00
	26/05/1954	66.11	67.01
	26/06/1954	66.10	67.02
	26/07/1954	66.09	67.03
	26/08/1954	66.08	67.04
	26/09/1954	66.07	67.05
	26/10/1954	66.06	67.06
	26/11/1954	66.05	67.07
	26/12/1954	66.04	67.08

 

[Michael M]

How about

=DATEDIF(B2,$A$2,"Y")&" Years, "&DATEDIF(B2,$A$2,"YM")&" Months, "&DATEDIF(B2,$A$2,"MD")&" Days"

 

[footoo]

Hi Fluff
sorry about the delay in responding to you answer i tried your formula but alas the result was not correct.
column c is your formula results and column d is the expected results thank you for helping with this

30/04/2021	26/01/1954	67.03	66.09 66 years and 9 months old
	26/02/1954	67.02	66.10
	26/03/1954	67.01	66.11
	26/04/1954	67.00	67.00
	26/05/1954	66.11	67.01
	26/06/1954	66.10	67.02
	26/07/1954	66.09	67.03
	26/08/1954	66.08	67.04
	26/09/1954	66.07	67.05
	26/10/1954	66.06	67.06
	26/11/1954	66.05	67.07
	26/12/1954	66.04	67.08

Column C is correct. Look at column D. How can someone born 26/12/1954 be older than someone born 26/1/1954 ?

 

[kevin lazell]

oh my god how did i miss that ,i think i had best run away to the circus as i will make a great clown lol
can fluffs formula be written as vba code if so can you covert it for me please tia

 

[footoo]

With Range([C2], Cells(Rows.Count, "B").End(3)(1, 2))
    .Formula = "=DOLLARFR(DATEDIF(B2,A$2,""m"")/12,12)"
    .Value = .Value
End With

 

[kevin lazell]

thank you footoo , fluff, michael m for your help on this
it is now working

 

[Fluff]

Glad we could help & thanks for the feedback.