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

--
Adios,
Clay Harryman

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)


"Clayman" wrote:

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

--
Adios,
Clay Harryman

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.
--
Adios,
Clay Harryman


"Joel" wrote:

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)


"Clayman" wrote:

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

--
Adios,
Clay Harryman

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.

"Clayman" wrote:

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.
--
Adios,
Clay Harryman


"Joel" wrote:

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)


"Clayman" wrote:

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

--
Adios,
Clay Harryman

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.
--
Adios,
Clay Harryman


"Joel" wrote:

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.

"Clayman" wrote:

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.
--
Adios,
Clay Harryman


"Joel" wrote:

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)


"Clayman" wrote:

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

--
Adios,
Clay Harryman