关于年假公式

zhpcnd

<1>连续工作满1未满5年，每年可以享受5天年休假。自第5年起每年增加1天，最高不超过9天；
<2>连续工作满10-20年，每年可以享受10天年休假；
<3>工作满20年以上，每年可以享受15天年休假。

可以折算的，

姓名	入职日期	截止日期	工龄	当年内可用年假	当年内可折算
	2017-9-10	2018-12-31	1.03		5天
	2012-10-10	2018-12-31	5.94		6天
	2017-10-10	2018-12-31	0.94		1天

李兴德

　不满１年有１天　　

zhpcnd

李兴德 发表于 2018-9-19 13:31
　不满１年有１天　　

不是，2017-9-10到2018-9-10满一年，那么2018-12-31还剩2个月，那么折算下有个1天

zhpcnd

李兴德 发表于 2018-9-19 13:31
　不满１年有１天　　

2个月可能不够，就是如果满1年，截止2018-12-31还剩3个月的话可以折算1天

李兴德

zhpcnd 发表于 2018-9-19 13:34
2个月可能不够，就是如果满1年，截止2018-12-31还剩3个月的话可以折算1天

折算规则是什么?

zhpcnd

李兴德 发表于 2018-9-19 13:43
折算规则是什么?

                        NOW                       
姓名        入职日期        截止日期            工龄        当年内可用年假        当年内可折算       
        2017-9-22        2018-12-31        0.99                 1.25            折算为1天
                                        截止2018-12-31会有3个月       

melville

Public Function AnLeaveDay1(HireDate As Date, Optional EndDate As Date = 0) As Double '精确到天数

Dim i, j As Double
Dim s As Date
Dim y, m, t, d As Integer

If EndDate = 0 Then
EndDate = Date '当前日期
End If
'EndDate = CDate(WorksheetFunction.EoMonth(Date, 0)) '本月的最后一天
y = Year(EndDate) - Year(HireDate)
m = Month(HireDate) - Month(EndDate)
d = Day(HireDate) - Day(EndDate)
i = DateDiff("m", HireDate, EndDate) / 12
t = Year(HireDate) + 1
s = t & "/01/01"
j = DateDiff("d", HireDate, s) / 365
AnLeaveDay1 = 0

If (i >= 21) Or (y = 21 And m > 0) Then

AnLeaveDay1 = 15
Else
If (i > 20 And i < 21) Or (i = 20 And d <= 0) Then
AnLeaveDay1 = 5 * j + 10
Else
If (i >= 11) Or (y = 11 And m > 0) Or (i = 20 And d > 0) Then
AnLeaveDay1 = 10
Else
If (i > 10 And i < 11) Or (i = 10 And d <= 0) Then
AnLeaveDay1 = 5 * j + 5
Else
If (i >= 2) Or (y = 2 And m > 0) Or (i = 10 And d > 0) Then
AnLeaveDay1 = 5
Else
If (i > 1 And i < 2) Or (i = 1 And d <= 0) Then
AnLeaveDay1 = 5 * j
End If
End If
End If
End If
End If
End If

AnLeaveDay1 = Round(AnLeaveDay1, 0)

'AnLeaveDay1 = Int(AnLeaveDay1)

End Function

自定义函数，第一个参数是入职日期，第二个参数是核算截止日期，截止日期为空，则为当前日期，最终可休年假天数四舍五入取整。