Break on Calendar Year

C

Clayman

I posted this in July under "Calculating Vacation" without a resonse. I
thought I had it working, but was tripped up when we went live. Any
assistance would be greatly appreciated.

I'm trying to calculate vacation accrual with the following specs:
- No vacation accrued for first 180 days
- After 180 days, 1.54 hours per week until calendar year break
- From first calendar year break it's incremental.

I've got the incremental down and my system works great if the employee was
hired before January 1, 2006.

Here is the code I'm using:

Select Case anniv
Case Is < 2
LAccrualRate = 1.54
' Calculate day of last day of hire year
DtEndOfYear = CDate("12/31/" & CStr(Year(hiredate)))
LCountDays = Day(DtEndOfYear) - Day(hiredate)
' Check to see if 180 days elapsed between hiredate and end of hire year
If LCountDays > 180 Then
' if so, was employee hired last year?
If Year(hiredate) < Year(Now) Then
' if so, hours accrued = 80
LHoursRemain = 80
Else
' if not, hours accrued = weeks * 1.54
LWeeksWorked = LCountDays / 7
LHoursRemain = LWeeksWorked * 1.54
End If
Else
' if 180 days not elapsed, hours accrued=0
LHoursRemain = 0
End If
Case 2 To 4
LHoursRemain = 80
LAccrualRate = 1.54
Case 5 To 14
LHoursRemain = 120
LAccrualRate = 2.31
Case Is > 14
LHoursRemain = 160
LAccrualRate = 3.08
End Select
 
J

Joel

You have an error in this line

from:
LCountDays = day(DtEndOfYea)r - day(hiredate)
to:
LCountDays = DtEndOfYear - hiredate


If you wqant an integer then
LCountDays = int(DtEndOfYear - hiredate)
 
C

Clayman

Will the int(LCountDays) return a number of days that I can compare with 180?

I was thinking that day(x) would return the day of the year. After reading
your reply, I looked it up. It returns the day of the month.
 
J

Joel

Yes, int can be compared to 180 but it rounds the number down. Not sure if
you want to go up or down one day.
 
C

Clayman

Thank you, Joel.
Since I'll be dividing the number by 7 (the accrual rate is by week rather
than day), one day either way won't impact the end result too severely.

I've marked this as the answer.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top