通过 api 调用检查具体日期是否为法定节假日

之前一直郁闷不知如何知道某个日期是否为节假日或休息日,要自己写一套API又觉得可能会花费太多时间,因此找到一个网友写的靠谱的法定节假日就Mark一下。


通过测试2016年的中秋节放假安排,发现和实际情况相同。


原文博客地址:http://www.cnblogs.com/mamo/p/3790557.html

通过 api 调用检查具体日期是否为法定节假日


功能特点

  • 检查具体日期是否为节假日,工作日对应结果为 0, 休息日对应结果为 1, 节假日对应的结果为 2;

  • 获取具体月份下的节假日情况,只返回休息日或节假日对应的结果; 

  • 可同时传递一个或者多个日期(月份);

  • 支持 2010 年起中国法定节假日,以国务院发布的公告为准,随时调整及增加;

  • 参数可以以 GET 或 POST 方式传递,以 JSON 格式返回结果。


用法举例


  • 2
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
可以通过在Excel中自定义函数来实现这个任务。首先,打开Excel,按下“Alt+F11”快捷键打开VBA编辑器,然后在VBA编辑器中插入一个新的模块,将下面的代码复制粘贴进去: ``` Function IsHoliday(dateValue As Date) As String Dim holidayName As String holidayName = "" Select Case Weekday(dateValue, vbMonday) Case 2 '元旦 If Day(dateValue) = 1 Then holidayName = "元旦" End If Case 3 '春节 If Day(dateValue) >= 4 And Day(dateValue) <= 10 Then holidayName = "春节" End If Case 4 '清明节 If Day(dateValue) >= 4 And Day(dateValue) <= 6 Then holidayName = "清明节" End If Case 5 '劳动节 If Day(dateValue) >= 1 And Day(dateValue) <= 3 Then holidayName = "劳动节" End If Case 6 '端午节 If Day(dateValue) >= 12 And Day(dateValue) <= 14 Then holidayName = "端午节" End If Case 7 '中秋节、国庆节 If Month(dateValue) = 10 Then '国庆节 If Day(dateValue) >= 1 And Day(dateValue) <= 7 Then holidayName = "国庆节" End If ElseIf Month(dateValue) = 9 Then '中秋节 If Day(dateValue) >= 13 And Day(dateValue) <= 15 Then holidayName = "中秋节" End If End If End Select If holidayName <> "" Then IsHoliday = holidayName Else IsHoliday = "工作日" End If End Function ``` 这段代码定义了一个名为“IsHoliday”的函数,它的参数是一个日期值,返回一个字符串表示该日期是否法定节假日。函数的实现中,使用了一个“选择”语句来判断日期是否法定节假日,并返回相应的节假日名称。 接下来,回到Excel的工作表中,按下“Alt+F8”快捷键打开宏管理器,选择“新建”创建一个新的宏,输入下面的代码: ``` Sub ExportHoliday() Dim startYear As Integer Dim endYear As Integer Dim dateValue As Date Dim rowIndex As Long startYear = Year(Now()) endYear = startYear If Month(Now()) > 9 Then endYear = endYear + 1 End If rowIndex = 1 With ActiveWorkbook.Sheets.Add .Name = "节假日表" End With With ActiveWorkbook.Sheets("节假日表") .Cells(1, 1).Value = "时间" .Cells(1, 2).Value = "节假日名称" .Cells(1, 3).Value = "是否节假日" For i = startYear To endYear For j = 1 To 12 For k = 1 To 31 If IsDate(i & "/" & j & "/" & k) Then dateValue = CDate(i & "/" & j & "/" & k) If IsHoliday(dateValue) <> "工作日" Then rowIndex = rowIndex + 1 .Cells(rowIndex, 1).Value = dateValue .Cells(rowIndex, 2).Value = IsHoliday(dateValue) .Cells(rowIndex, 3).Value = "是" End If End If Next k Next j Next i .Columns("A:C").AutoFit End With End Sub ``` 这段代码定义了一个名为“ExportHoliday”的宏,它会在Excel中新建一个名为“节假日表”的工作表,并将今年的法定节假日日期导出到该工作表中。具体操作中,宏会遍历今年的所有日期调用“IsHoliday”函数判断日期是否法定节假日,并将结果写入工作表中。 最后,保存VBA模块和宏,按下“Alt+F8”快捷键打开宏管理器,选择“ExportHoliday”宏并运行它,即可生成一个包含今年法定节假日日期、名称、是否节假日的xls文件。
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值