beregning af dato

http://www.eksperten.dk/spm/186492

Kan du også fortælle hvordan jeg gør min checkbox afhængig af alder ??
eks. dags dato-fødselsdato>25 then checkbox (value)=yes

??

if alder>25 then
me.checkbox = 1
end if

looking at the link which mugs refers to and link there too I see there is a general error! DateSerial take three parameters Year, Month, Day
NOT Year, Day, Month!
--------------------

So try this!



Function TestYearDiff() As Integer

'Format of date here is MONTH/DAY/YEAR
MsgBox "Age " & YearDiff(#9/6/2002#, Date)


End Function


Public Function YearDiff(startDt As Date, stopDt As Date)
 
  If DateSerial(Year(stopDt), Month(startDt), Day(startDt)) > stopDt Then
        YearDiff = DateDiff("yyyy", startDt, stopDt) - 1
  Else
        YearDiff = DateDiff("yyyy", startDt, stopDt)
  End If
End Function


Then

if YearDiff(#9/6/1963#, Date) > 25 Then
Me.YourCheckbox = True
else
me.YourCheckbox = False
end if

!

Hej Terry
I'll give you the points, although I did it another way your script gave me an idea.
Thanks.

I wonder if someone wanted to make the value between ## a variable how would the script then look like, or if you wanted to check up against a date in another field (i.e birthdate(dd-mm-yyyy)) ??

If you have a field om your form which is formatted as a date then this should work.

YearDiff(me.YourDateField, Date)