How to determine if a day is within a defined period

**EricofPendom** · 03-05-2012, 07:22 PM

Hi All,

I have a particular challenge that I am really struggling with. I am putting together an employee attendance spreadsheet and I need to apply different conditions to absence days depending on how many absences the employee has taken in a given period.

The rule is that on their first day of absence a 56 day period starts. The first three days of this period are unpaid waiting days and then subsequent days within 56 days from the first day are paid in full. The next absence after the 56th day triggers the start of a new 56 day period. I can figure out the way to tackle the absence days within the first 56 day period but I am struggling to determine if it is a waiting or paid day within the next 56 day period. I think I need a little routine that runs each time I change the "Absence Reason" cell and return a value to a cell on the same row but the next column so that I can do calculations with regards their salary.

I have attached a sample sheet that I hope will help.

Thank you in advance for any help.

Eric...

**rylo** · 03-05-2012, 10:10 PM

Hi

See how this goes. I've put a result in column O to determine the pay type for the time being to test things.

Sub aaa()
  periodlen = 20
  perend = Range("A10").Value
  For Each ce In Range("K10:K" & Cells(Rows.Count, "K").End(xlUp).Row)
    If Len(ce) > 0 Then
      If Cells(ce.Row, 1) > DateValue(perend) Then
        perend = Cells(ce.Row, 1) + periodlen
        cntr = 1
      ElseIf Cells(ce.Row, 1) <= perend Then
        cntr = cntr + 1
      End If
      If cntr > 3 Then
        Cells(ce.Row, "O").Value = "Paid"
      Else
        Cells(ce.Row, "O").Value = "Waiting"
      End If
    End If
  
  
  Next ce
End Sub

rylo

**EricofPendom** · 03-06-2012, 05:11 AM

Hi Rylo,
You are a lifesaver, your code works great. I get very confused with nested if's and I often look for a less elegant way of doing things or give up. I was close to giving up!! Thank you very much for your time and expertise.
Eric...