Calculating the time in days between two dates

[Sidney]

Hello

I have two fields with dates on my database that I need calculate between:

Field 1 - Date of Referral
Field 2 - Date of Discharge

I need the results to be displayed on a form.

Can somebody help?

Many Thanks
Sidney

 

[Linq Adams via AccessMonster.com]

Something like this, where TreatmentDays is the field holding the difference :


Private Sub DischargeDate_AfterUpdate()
If Not IsNull(Me.ReferralDate) Then
Me.TreatmentDays = DateDiff("d", Me.ReferralDate, Me.DischargeDate)
Else
MsgBox "You Must Have a Referral Date Entered!"
ReferralDate.SetFocus
End If
End Sub

Private Sub ReferralDate_AfterUpdate()
If Not IsNull(Me.DischargeDate) Then
Me.TreatmentDays = DateDiff("d", Me.ReferralDate, Me.DischargeDate)
End If
End Sub

This assumes ReferralDate will be entered first, but allows for the event
that the user enters a DischargeDate before entering the ReferralDate first.

 

[Daniel Pineault]

take a look at the DateDiff() Function

DateDiff("d", "05/23/2008","05/31/2008")
DateDiff("d", Me.ControlName1, Me.ControlName2)

--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.com/index.php
Please rate this post using the vote buttons if it was helpful.