Aad,
dit is zoals ik hem momenteel gebruik
=diensttijd([indienst])
(plaats je in een ongebonden tekstveld op een formulier)
met Alt+F11 open je de VBA editor
daar zie je links boven dan je dbase staan met daaronder ook de naam van het
formulier
open deze middels een dubbelklik
je zult dan het volgende zien staan
Option Compare Database
daaronder plaats je het volgende (even knippen en plakken)
Function Leeftijd(indienst As Variant) As Byte
If IsNull(indienst) Then
Leeftijd = 0
Else
If IsDate(indienst) Then
If Format(indienst, "mmdd") > Format(Date, "mmdd") Then
Leeftijd = DateDiff("yyyy", indienst, Date) - 1
Else
Leeftijd = DateDiff("yyyy", indienst, Date)
End If
Else
Leeftijd = 0
End If
End If
End Function
Deze checkt of er een datum indienst is, en of de huidige datum (maand en
dag) voor of na de maand en dag van indienst treding licht.
Met deze functie krijg je alleen tezien hoeveel gehele jaren iemand in
dienst is
zal even zoeken hoe je deze opmaak kunt veranderen tot wat jij wil,
maar ik denk dat je al wel een eindje opweg bent hiermee
suc6
Hank
Post by AadIk heb daar denk te weing kennis voor om dat dan ook te kunnen. Ik heb
gekeken naar een eerder beantwoord bericht, waarin gevraagd om zo'n zelfde
soort te vraag te beantwoorden. Het resultaat is echter niet het exact
berekenende bij dagen. Zie de vraag van 16-05-2005 over het aantal dagen.
Heb je overigens een voorbeeld van berekening met het voorbeeld van de
functie DateDiff
Post by XPS35Post by AadIk wil graag berekenen hoeveel dagen, maanden, jaren er zitten tussen een
datum in dienst en de huidige datum. Bijvoorbeeld iemand is indienst per 1
januari 2003. Dan zou het systeem per 25 oktober 2005 moeten geven 25 dagen
10 maanden en 2 jaren.
Kan iemand mij hierin helpen? Alvast bedankt
De functie DateDiff kan hierin uitstekende diensten bewijzen.
--
Groeten,
Peter