Converting and Calculating Dates on a Form
- From: "FA" <October.April@xxxxxxxxx>
- Date: 7 Dec 2005 08:08:27 -0800
Hi Freinds,
I have a TextBox- txtNumDays which is associated with TestStartDate and
TestEndDate. If you put Number of Days and TestStartDate, it calculates
the TestEndDate. I also have VacationBeginDate and VacationEndDate on a
different form and different table, I want the txtNumDays to calculate
the TestEndDate by Subtracting the number of days between
VacationBeginDate and
VacationEndDate. The number of days between VacationBeginDate and
VacationEndDate is provided by the users on TesterVacationForm.
I am using the following module to calculate the TestEndDate:
Public Function MyAdd(dtStart As Date, intDays As Integer) As Date
Dim dtEnd As Date
Dim I As Integer
Dim dtMiddle As Integer
Dim frmTesterVacation As Form_frmTesterVacation
Dim frmSystem As Form_frmSystem
Dim dbo_TESTERNME As TableDef
Dim NUMOFDAYS As Field
I = 0
dtEnd = dtStart
If intDays < 1 Then
Exit Function
End If
Do While I < intDays
If Nz(Form_frmSystem.TESTER_NME_ID) <> "" Then
dtMiddle = [Form_frmTesterVacation].NumberofDays
If dtMiddle = -1 Then
Exit Do
End If
End If
dtEnd = dtEnd + dtMiddle + 1
Select Case Weekday(dtEnd)
Case 2 To 6
' regular week day.MON - Fri..count one day
I = I + 1
End Select
Loop
MyAdd = dtEnd
End Function
If possible please solve this issue, i would really really appreciate
it.
.
- Prev by Date: Re: Form opens SLOW when "Allow Addtions" set to No
- Next by Date: Setting up a count to restrict registrations
- Previous by thread: RE: Converting and Calculating Dates on a Form
- Next by thread: Results in a form with DMax function
- Index(es):
Relevant Pages
|
