EXCEL如何判定法定节假日、工作日、休息日

micch

翻出旧帖子的人都是肯用心的人

mmlzh

micch 发表于 2018-6-16 12:52
翻出旧帖子的人都是肯用心的人

你这是在自我肯定，自我表扬

micch

rw820 发表于 2018-3-2 16:59
大神，2018年的工作日表格有么？

日历.rar (18.69 KB, 下载次数: 783)

2018-6-16 13:51 上传

点击文件名下载附件

双木林老师说的我都不好意思了，这样吧，就用就用系统的日历做个节假日日历吧
在法定节假日表里手动增加想放假的日期，日历上条件格式表示出来

不知道做的好不好，试试能不能用吧

zxtianxia

我也来挖个坟

'接口：0工作日；1休息日；2节假日。
'包含2017年起的中国法定节假日数据，数据来源国务院发布的公告，每年更新
Function strFncWorkDay(strDay As String) As String

    strFncWorkDay = "错误"

    Dim strWebReturn As String
    strWebReturn = strFncGetWebData("http://api.goseek.cn/Tools/holiday?date=" & strDay)
   
    Dim arr
    arr = Split(strWebReturn, ":")
    Dim nFncDay As Integer
    nFncDay = Left(arr(2), 1)
   
    If nFncDay = 0 Then
        strFncWorkDay = "工作日"
    Else
        strFncWorkDay = "节假日"
    End If
   
End Function


Function strFncGetWebData(strUrl As String) As String

    Dim objHttp As Object
   
    Set objHttp = CreateObject("MSXML2.XMLHTTP.3.0")
    objHttp.Open "GET", strUrl, False
    objHttp.send
   
    strFncGetWebData = objHttp.responseText

End Function

yuxuan1277

micch 发表于 2018-6-16 13:52
双木林老师说的我都不好意思了，这样吧，就用就用系统的日历做个节假日日历吧
在法定节假日表里手动 ...

感谢分享，谢谢

micch

yuxuan1277 发表于 2019-3-6 16:56
感谢分享，谢谢

晕了，这都能翻出来，我自己都找不到以前的旧贴了，现在翻出来看，这一年确实有所进步了

0428_hai

都是用到了才翻出来，excelhome是真的牛逼

poiu1998

谢谢楼主分享

zhkworld

zxtianxia 发表于 2018-10-25 17:30
我也来挖个坟

'接口：0工作日；1休息日；2节假日。

这个接口不能用了吧？

雨后阳光79

编程还需要继续深造