用函数吧:
Function 应购没购(月份 As Date, 入职日期 As Date, 离职日期 As Variant, 社保金额 As Variant, 身份证 As String) As Boolean
'这里假定月份为日期,且是月末(因为一般都是月末结算,当然你也可以统一按照月初或月中的某天,只要包含年月日就行)
'根据身份证号码计算是否达到退休年龄
Dim 出生日期 As Date
出生日期 = CDate(Mid(身份证, 7, 4) & "-" & Mid(身份证, 11, 2) & "-" & Mid(身份证, 13, 2))
Dim 达到退休年龄 As Boolean
If CInt(Mid(身份证, 17, 1)) Mod 2 = 0 Then
达到退休年龄 = DateDiff("yyyy", 出生日期, 月份) > 60
Else
达到退休年龄 = DateDiff("yyyy", 出生日期, 月份) > 50
End If
If IsNull(离职日期) = True Then
If IsNull(社保金额) = True Then
If DateDiff("d", 入职日期, 月份) >= 30 Then
应购没购 = Not 达到退休年龄
Else '入职不足30天,不给购买社保
应购没购 = False
End If
Else '已经存在社保金额
应购没购 = False
End If
Else '已经离职
应购没购 = False
End If
End Function
