求日期分类自定义函数

a1guan

如附件所示，需要将A栏日期按照C栏规则，分类列在B栏。
规则如下：
PAST， 日期<本周一
Order，日期>=本周一 且<=下月底
Open， 日期>下月底

OT.zip (12.19 KB, 下载次数: 4)

2016-6-16 12:59 上传

点击文件名下载附件

小花鹿

本周的第一天是星期几，中国是周一为第一天，外国是周日是第一天.............................................

a1guan

小花鹿 发表于 2016-6-16 13:15
本周的第一天是星期几，中国是周一为第一天，外国是周日是第一天........................................ ...

中国的周，周一为第一天，谢谢

longe1013

=IF(A2<TODAY()-WEEKDAY(TODAY(),2)+1,"PAST",IF(A2<=DATE(YEAR(NOW()),MONTH(NOW())+2,),"Order",IF(A2>DATE(YEAR(NOW()),MONTH(NOW())+1,),"open",0)))

a1guan

longe1013 发表于 2016-6-16 13:27
=IF(A2

谢谢，函数的方式太绕了，所以我想求一个VBA自定义函数

a1guan

Function ot(x)
Application.Volatile
a = [today()-weekday(today(),2)]
b = [eomonth(today(),1)]
If x <= a Then
    ot = "PAST"   
ElseIf x <= b Then
    ot = "Order"
Else
    ot = "OPEN"
End If
End Function

YZC51

请参考
Function ot(x)
Application.Volatile
a = Date - Weekday(Date, 2)
b = Application.EoMonth(Date, 1)
If x <= a Then
    ot = "PAST"
ElseIf x <= b Then
    ot = "Order"
Else
    ot = "OPEN"
End If
End Function
'需要将A栏日期按照C栏规则，分类列在B栏。
'规则如下:
'PAST， 日期<本周一
'Order，日期>=本周一 且<=下月底
'Open， 日期>下月底