Tenure - Anniversary Year

[TheLeafs]

Good day,

I am trying to determine if Employee's are in a 5th anniversary year of there tenure. For example, employees's that started with the company on Aug 8, 2001; are in there anniversary year for there 5th year, so there vacation time will increase. I understand how to get Length of Service but cannot figure out this part. I was also thinking of trying to determine the End of Year date from sDate and maybe figure out from here but not sure.
Any help would be great.

Dim sDate as Date
sDate = Sheets("Main").Cells(5, 4)
Dim LOS As Integer
LOS = (Year(Now) - Year(sDate)) * 12 + Month(Now) - Month(sDate)

Chris

[Tom Ogilvy]

http://www.cpearson.com/excel/datedif.htm
Chip Pearson's page on datedif (the worksheet function) and datediff (the
vba function. )

Read the whole page and I think it will provide you the information you
need.

--
Regards,
Tom Ogilvy


"TheLeafs" <[email protected]> wrote in
message news:[email protected]...
>
> Good day,
>
> I am trying to determine if Employee's are in a 5th anniversary year of
> there tenure. For example, employees's that started with the company on
> Aug 8, 2001; are in there anniversary year for there 5th year, so there
> vacation time will increase. I understand how to get Length of Service
> but cannot figure out this part. I was also thinking of trying to
> determine the End of Year date from sDate and maybe figure out from
> here but not sure.
> Any help would be great.
>
> Dim sDate as Date
> sDate = Sheets("Main").Cells(5, 4)
> Dim LOS As Integer
> LOS = (Year(Now) - Year(sDate)) * 12 + Month(Now) - Month(sDate)
>
> Chris
>
>
> --
> TheLeafs
> ------------------------------------------------------------------------
> TheLeafs's Profile:
http://www.excelforum.com/member.php...o&userid=10131
> View this thread: http://www.excelforum.com/showthread...hreadid=514494
>

[Toppers]

Look at VBA DateAdd function: code below is modified from VBA help

Dim FirstDate As Date ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "yyyy" ' "yyyy" specifies years as interval.
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of years to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg


HTH

"TheLeafs" wrote:

>
> Good day,
>
> I am trying to determine if Employee's are in a 5th anniversary year of
> there tenure. For example, employees's that started with the company on
> Aug 8, 2001; are in there anniversary year for there 5th year, so there
> vacation time will increase. I understand how to get Length of Service
> but cannot figure out this part. I was also thinking of trying to
> determine the End of Year date from sDate and maybe figure out from
> here but not sure.
> Any help would be great.
>
> Dim sDate as Date
> sDate = Sheets("Main").Cells(5, 4)
> Dim LOS As Integer
> LOS = (Year(Now) - Year(sDate)) * 12 + Month(Now) - Month(sDate)
>
> Chris
>
>
> --
> TheLeafs
> ------------------------------------------------------------------------
> TheLeafs's Profile: http://www.excelforum.com/member.php...o&userid=10131
> View this thread: http://www.excelforum.com/showthread...hreadid=514494
>
>