Leeftijd berekenen

[Faay]

Om de leeftijd te berekenen gebruik ik:

GetAsText ( Year ( Get ( CurrentDate ) )  - Year ( C_Geboortejaar ) - If ( Get ( CurrentDate ) <  Date ( Month ( C_Geboortejaar ) ; Day ( C_Geboortejaar  ) ; Year ( Get ( CurrentDate ) ) ) ; 1 ; 0 ) ) & " Jaar, " & GetAsText ( Mod ( Month ( Get ( CurrentDate ) ) - Month ( C_Geboortejaar ) + 12 - If ( Day ( Get ( CurrentDate ) ) < Day ( C_Geboortejaar ) ; 1 ; 0 ) ; 12 ) ) & " Maanden, " & GetAsText ( Day ( Get ( CurrentDate ) ) - Day ( C_Geboortejaar  )  + If ( Day ( Get ( CurrentDate ) )  ≥ Day ( C_Geboortejaar   ) ; 0 ; If ( Day ( Get ( CurrentDate ) - Day ( Get ( CurrentDate ) ) ) < Day ( C_Geboortejaar  ) ; Day ( C_Geboortejaar ) ; Day ( Get ( CurrentDate ) - Day ( Get ( CurrentDate ) ) ) ) ) ) & " Dagen "

 

Maar nu wil ik berekenen hoe oud iemand geworden is die reeds overleden is. Ook met jaren, maanden en dagen.

Ik heb geprobeerd om alle (Get (CurrentDate)) te vervangen door het veld (Jaar van Overlijden), maar dat werkt niet.

Zie ik iets over het hoofd?

Bedankt voor het meedenken.

[bigbadwolf]

3 hours ago, Faay said:

(Jaar van Overlijden),

Als dit alleen een jaartal is kun je het nooit gebruiken om een datum te vervangen… dan zul je de datum van overlijden moeten gebruiken in plaats van de huidige datum.

[Banach]

Een mooie CF is die van Mike Mitchell in deze link. Gebruik als vlag "T" om jaar, maand en dag in tekstvorm te krijgen.

[menno]

Ik gebruik deze CF:

FullAge ( startDate ; endDate )

Let ( [ 

	dd = endDate ; 
	dob = startDate ; 

	ld = Day ( Date ( Month ( dd ) ; 0 ; Year ( dob ) ) ) ; 
	dy = Day ( dd ) - Day ( dob ) ; 
	mo = Month ( dd ) - Month ( dob ) - If ( dy < 0 ; 1 ) ; 
	yr = Year ( dd ) - Year ( dob ) ; 
                                                   
	years = yr + Case ( mo < 0 ; -1 ) ; 
	months = mo + If ( mo < 0 ; 12 ) ; 
	days = dy + If ( dy < 0 ; ld ) 

] ; 

	Substitute ( 
		If ( dd ≥ dob and dob > 0 ; 
			List ( 
				If ( Years ; Years & " jaar" ) ;  
				If ( months ; Months & " maand" & If ( months > 1 ; "en" ) ) ; 
				If ( days ; days & " dag" & If ( days > 1 ; "en" ) ) 
			)
		) ; 
	[ ¶ ; " " ] )

)

 

[Faay]

Hartelijk dank voor het meedenken. Ik heb gekozen voor de oplossing van Menno en het werkt uitstekend.  Thanks