I'm trying to do something for the first time and falling flat on my face. I'd like to figure the average hours of operation per day for a business. Here's what I have: Private Sub Form_BeforeInsert(Cancel As Integer) Dim CurYr As Integer Const conLeapYrWks = [url removed, login to view] Const conLeapYrDays = 366 Const conWksYr = [url removed, login to view] Const conDaysYr = conLeapYrDays CurYr = DatePart("yyyy", Date) If CurYr Mod 4 = 0 Then me.AvgHrs=(Sum([CloseTime]-[OpenTime])_ *conLeapYrWks/conLeapYrDays)-(([CaysClsd]/ _ conLeapYrDays)*(Sum([CloseTime]- _ [OpenTime])*conLeapYrWks/conLeapYrDays)) Else me.AvgHrs=(Sum([CloseTime]-[OpenTime]) _ *conWksYr/conDaysYr)-(([DaysClsd]/ _ conDaysYr)*(Sum([CloseTime]- _ [OpenTime])*conWksYr/conDaysYr)) EndIF End Sub CloseTime, OpenTime are controlss on the fsub. DaysClsd is a control on the main form. Please let me know if I have explained this in sufficient detail. E Wilson
1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done.
2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request.
3) Exclusive and complete copyrights to all work purchased. (No GPL, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site).
Windows XP with Access 2002