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

305180958

非常感谢!收下了!

LIYUHUA118

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

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

这事VB语言吗，VBA不能适用吧

1732426718

谢谢大佬们的分享

zxtianxia

LIYUHUA118 发表于 2021-1-1 21:27
这事VB语言吗，VBA不能适用吧

拷贝到excel VBA里面运行啊

AVEL

1. Function strFncWorkDay(strDay As String) As String
   
2.     Dim strWebReturn As String
   
3.     strWebReturn = strFncGetWebData("http://tool.bitefu.net/jiari/?d=" & strDay)
   
4.     If strWebReturn = 0 Then
   
5.         strFncWorkDay = "工作日"
   
6.     Else
   
7.         strFncWorkDay = "节假日"
   
8.     End If
   
9. End Function
   
10. 
    
11. Function strFncGetWebData(strUrl As String) As String
    
12.     Dim objHttp As Object
    
13.     Set objHttp = CreateObject("MSXML2.XMLHTTP.3.0")
    
14.     objHttp.Open "GET", strUrl, False
    
15.     objHttp.send
    
16.     strFncGetWebData = objHttp.responseText
    
17. End Function

复制代码

用这个函数吧。

strFncWorkDay("20210520")

比比机

AVEL 发表于 2021-5-20 10:32
用这个函数吧。

strFncWorkDay("20210520")

您好 您提供的strFncWorkDay 调用的api地址限制20次 http://timor.tech/api/holiday 这个网址限制是10000次1天 希望您能帮助修改一下

吴虾咪

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

我来自2023年的

Jophoo

AVEL 发表于 2021-5-20 10:32
用这个函数吧。

strFncWorkDay("20210520")

谢谢你的无私

Jophoo

AVEL 发表于 2021-5-20 10:32
用这个函数吧。

strFncWorkDay("20210520")

只能用一次？希望改下

Jophoo

比比机 发表于 2021-9-12 22:27
您好 您提供的strFncWorkDay 调用的api地址限制20次 http://timor.tech/api/holiday 这个网址限制是10000 ...

我也希望他改下，他的只用了一次