geboortedatum omzetten in leeftijd

• 

  Jan

  19-11-2004 15:01

  Hallo iedereen,

  Ik heb ik het formulier leden een veld met geboortedatum en een veld met leeftijd. Is het mogelijk dat als ik in het veld geb. datum de datum invoer dat dan in het veld leeftijd de leeftijd automatisch komt te staan.

  Heb vanalles geprobeerd en kom er niet uit.

  Alvast bedankt

  Jan
• 

  Makaai

  19-11-2004 16:54

  Met de volgende functie zou je de leeftijd kunnen bepalen (bijv. bij de gebeurtenis ‘Bij verlaten’ en dan het veld leeftijd hiermee kunnen vullen):

  Function Age(GeboorteDatum As Date) As Integer

  If Month(Date) < Month(GeboorteDatum) Or _

  (Month(Date) = Month( GeboorteDatum) And _

  Day(Date) < Day(GeboorteDatum)) Then

  Age = Year(Date) - Year(GeboorteDatum) - 1

  Else

  Age = Year(Date) - Year(GeboorteDatum)

  End If

  End Function

  Succes!

  Makkie
• 

  Eric

  19-11-2004 19:02

  Overgens ander routine werkt ook, niks mis mee Deze is wat fraaier en lost gelijk het probleem op om iemands leeftijd te bepalen op een bepaalde datum. Zet hem in de module en je kan hem overal aanroepen

  aanroep :

  dim leeftijd as integer

  leeftijd = AGE( “1-1-94”, date)

  ' je kan i.p.v. date ook een willekeurige datum invullen

  '===========================================================

  'Function AGE(BirthDate As Date, compdate As Date) As Integer

  'Age of a person on a certain date

  'Birthdate Date of birth

  'compdate Compare date

  'AGE Returns the age of the person

  '============================================================Function AGE(BirthDate As Date, compdate As Date) As Integer

  Dim ret As Integer

  ret = DateDiff(“yyyy”, BirthDate, compdate)

  If compdate < DateSerial(Year(compdate), Month(BirthDate), Day(BirthDate)) Then

  ret = ret - 1

  End If

  AGE = ret

  End Function
• 

  Jan

  25-11-2004 13:55

  Eric en Makaai,

  Bedankt voor de hulp.

  Jan
• 

  Wielke

  05-12-2004 20:39

  Maak van je veld Leeftijd een ongebonden tekstveld aan in het formulier.

  zet hier de code

  =Int((Now()-)/365,25) of

  =Int((Date()-)/365,25)

  m.a.w.

  huidige datum - Geboortedatum delen door 365,25 dagen

  De int zorgt dat de leeftijd wordt afgerond in gehele getallen.

  Groetjes Wielke Oet Mestreech