Date Question

Private Function tellMeTheDMY(dateJoined)



Dim totalYears

Dim totalMonths

Dim totalDays

Dim splitDate

Dim tempDate

Dim tempNum



' Get the total years this user has been a member

totalYears = dateDiff("yyyy", dateJoined, date())



' Now split the date joined variable

splitDate = split(dateJoined, "/")



' Now create a temporary date with the current year in there

tempDate = splitDate(0) & "/" & splitDate(1) & "/" & year(now())



' Now if the tempDate is before the current date we know for definate that they have been here

' for totalYears years (if that makes sense) If not subtract a year.

If cDate(tempDate) > date() then totalYears = totalYears - 1



' Now we need to get the total amount of months this user has been a member

totalMonths = DateDiff("m", dateJoined, date())



' If this user has been a member for over one year then obviously there will be some confusion

' setting in as the amount of months will be over 12 (which isn't practicle for our needs)



' So what we need to do now is calculate the amount of months the user has actually been with us

' For each year the user has been a member take away 12 months from the value

If totalMonths > 12 then

Do until totalMonths < 12

totalMonths = totalMonths - 12

Loop

End If



' Now to work out the days the user has been signed up to the site



tempNum = (totalYears * 12) + totalMonths



' First of all using the months/years the user has been on the site and add them together 

' to form a date

tempDate = DateAdd("m", tempNum, dateJoined)



' Now work out the amount of days between the tempdate variable and the current date

totalDays = DateDiff("d", tempDate, now())



tellMeTheDMY = "This user has been a member for " & totalYears & " and " & totalMonths & " and " &totalDays



End Function

totalDays = DateDiff("d", tempDate, now())

If day(tempdate) < day(date()) then

totalDays = DateDiff("d", tempDate, date())

Else

totalDays = DateDiff("d", date(), tempDate)

End If