[求助]谁能帮兄弟用函数设计一下提前退休的提示

mengde001 · 发表于 2007-9-19 20:20

Re9w0UK6.rar (4.01 KB, 下载次数: 41)

sunya_0529 · 发表于 2007-9-21 16:47

条件太过复杂，普通公式做出来也不容易维护，给你做了一个自定义函数，在E3单元格内输入 =msgr(B3,C3,D3) 其余往下复制即可。自定义函数“msgr(级别,性别,出生日期)”的代码如下：Option ExplicitFunction msgr(strLevel As String, strGender As String, datBirthday As Date) As String  If Not IsDate(datBirthday) Then   msgr = "出生日期不正确"   Exit Function  End If    Dim datTemp As Date  Dim intWorkYears As Integer  Dim ntDays As Long, txDays As Long    datTemp = DateSerial(Year(Date), Month(datBirthday), Day(datBirthday))  If datTemp >= Date Then   intWorkYears = Year(Date) - Year(datBirthday)  Else   intWorkYears = Year(Date) - Year(datBirthday) - 1  End If    Select Case strGender   Case "男"    Select Case strLevel     Case "工人"      If intWorkYears < 55 Then       ntDays = Date - DateAdd("yyyy", 50, datBirthday)       txDays = Date - DateAdd("yyyy", 55, datBirthday)      Else       ntDays = 0       txDays = Date - DateAdd("yyyy", 55, datBirthday)      End If     Case "干部"      If intWorkYears < 60 Then       ntDays = Date - DateAdd("yyyy", 55, datBirthday)       txDays = Date - DateAdd("yyyy", 60, datBirthday)      Else       ntDays = 0       txDays = Date - DateAdd("yyyy", 60, datBirthday)      End If     Case Else      msgr = "级别无法识别"      Exit Function    End Select   Case "女"    Select Case strLevel     Case "工人"      If intWorkYears < 50 Then       ntDays = Date - DateAdd("yyyy", 45, datBirthday)       txDays = Date - DateAdd("yyyy", 50, datBirthday)      Else       ntDays = 0       txDays = Date - DateAdd("yyyy", 50, datBirthday)      End If     Case "干部"      If intWorkYears < 55 Then       ntDays = Date - DateAdd("yyyy", 50, datBirthday)       txDays = Date - DateAdd("yyyy", 55, datBirthday)      Else       ntDays = 0       txDays = Date - DateAdd("yyyy", 55, datBirthday)      End If     Case Else      msgr = "级别无法识别"      Exit Function    End Select   Case Else    msgr = "性别无法识别"    Exit Function  End Select    If ntDays > -60 And ntDays < 0 Then   msgr = "还有[" & Abs(ntDays) & "]天内退"  End If  If txDays > -60 And txDays < 0 Then   msgr = "还有[" & Abs(txDays) & "]天退休"  End If    '显示详细情况  'If ntDays <> 0 Then  ' msgr = "内退(" & ntDays & "天)，退休(" & txDays & "天)"  'Else  ' msgr = "退休(" & txDays & "天)"  'End If End Function

mQhtXbXK.rar (10.82 KB, 下载次数: 115)

[此贴子已经被作者于2007-9-21 17:04:20编辑过]

mengde001 · 发表于 2007-9-21 21:43

真是高手，小弟佩服死了

akm5800 · 发表于 2008-2-12 23:27

学习中~~~~~~~~~

bdyzf · 发表于 2008-2-23 09:33

高手

wangming1984 · 发表于 2009-3-31 12:48

sunya_0529的VBA代码精妙，学习中。不过VBA基本没有研究，用公式做一下，请楼主参考。
E3填写公式：
=IF(AND(TODAY()>=EDATE(D3,600+(C3="男")*60+(B3="干部")*60)-30,TODAY()<EDATE(D3,600+(C3="男")*60+(B3="干部")*60)),"还有"&EDATE(D3,600+(C3="男")*60+(B3="干部")*60)-TODAY()&"天退休",IF(AND(TODAY()>=EDATE(D3,540+(C3="男")*60+(B3="干部")*60)-30,TODAY()<EDATE(D3,540+(C3="男")*60+(B3="干部")*60)),"还有"&EDATE(D3,540+(C3="男")*60+(B3="干部")*60)-TODAY()&"天内退",""))

下拉即可。见附件。

提醒退休和内退.rar (4.27 KB, 下载次数: 104) 公式粗浅，望各位指教。

人力资源确实常用日期、查询类函数，大家共同学习！

越明 · 发表于 2009-4-2 18:10

太厉害啦！

		自动登录	找回密码
密码			免费注册