Code : Tout sélectionner
#include-once
#include <Date.au3>
$result = _IsHoliday(2010, 01, 01)
msgbox(0,"",$result)
;===============================================================================
; Function Name: _IsHoliday($iYear, $iMon=-1, $iDay=-1)
; Description:: Checks if given date is an holiday
; Parameter(s): $iYear year of date (as from 1900) OR
; entire date as string "YYYY/MM/DD"
; $iMon month of date (if $iYear not entire date)
; $iDay day of date (if $iYear not entire date)
; Requirement(s): #include <Date.au3>
; Return Value(s): Success
; is Holiday - name of holiday
; isn't Holiday - blank string
; Failure
; 0 @error=1 - date isn't valid
; Note: you can insert own days as holiday
; Author(s): BugFix (bugfix@autoit.de)
;===============================================================================
Func _IsHoliday($iYear, $iMon=-1, $iDay=-1)
Local $aDate = StringRegExp($iYear, '(\d{4})/(\d{1,2})/(\d{1,2})', 3)
If Not @error Then
$iYear = $aDate[0]
$iMon = $aDate[1]
$iDay = $aDate[2]
EndIf
If $iYear < 1900 Or $iMon < 1 Or $iMon > 12 Or $iDay < 1 Or $iDay > 31 Then Return SetError(1,0,0)
$iMon = StringRight('0' & $iMon, 2)
$iDay = StringRight('0' & $iDay, 2)
If Not _DateIsValid($iYear & '/' & $iMon & '/' & $iDay) Then Return SetError(1,0,0)
Local $oHoliday = ObjCreate('Scripting.Dictionary')
Local $HDays[32][2], $a, $b, $c, $d, $e, $H1, $H2, $N, $M
Local $Easter, $EasterDate, $EasterDay, $EasterMonth, $PfSoDat
; fix days
$oHoliday.Add($iYear & "/01/01", "New Year's Day")
$oHoliday.Add($iYear & "/05/01", "May Day")
$oHoliday.Add($iYear & "/12/25", "Christmas Day")
$oHoliday.Add($iYear & "/12/26", "Boxing Day")
; variable days
$a = Mod($iYear, 19)
$b = Mod($iYear, 4)
$c = Mod($iYear, 7)
$H1 = Int($iYear / 100)
$H2 = Int($iYear / 400)
$N = 4 + $H1 - $H2
$M = 15 + $H1 - $H2 - Floor (Int((8 * $H1 + 13) / 25))
$d = Mod((19 * $a + $M), 30)
$e = Mod((2 * $b + 4 * $c + 6 * $d + $N), 7)
If $d + $e = 35 Then
$Easter = 50
Else
If $d = 28 And $e = 6 And $a > 10 Then
$Easter = 49
Else
$Easter = 22 + $d + $e
EndIf
EndIf
If $Easter < 32 Then
$EasterDay = $Easter
$EasterMonth = "03"
Else
$EasterDay = $Easter - 31
$EasterMonth = "04"
EndIf
If $EasterDay < 10 Then
$EasterDay = "0" & $EasterDay
EndIf
$EasterDate = $iYear & "/" & $EasterMonth & "/" & $EasterDay
$oHoliday.Add(_DateAdd( 'd', -2, $EasterDate) , "Good Friday")
$oHoliday.Add($EasterDate , "Easter Sunday")
$oHoliday.Add(_DateAdd( 'd', 1, $EasterDate) , "Easter Monday")
$oHoliday.Add(_DateAdd( 'd', 39, $EasterDate) , "Ascension Thursday")
$oHoliday.Add(_DateAdd( 'd', 49, $EasterDate) , "Whitsunday")
$PfSoDat = _DateAdd( 'd', 50, $EasterDate)
$oHoliday.Add($PfSoDat, "Whit Monday")
#region - other days that may be an holiday, activate if needed
#cs
Local $MutterDat, $4AdvDat
; Mother's Day = 2. Sunday of May BUT if Whit = 2. Sunday of May than Mother's Day at 1. Sunday
; 2. Sunday only between 8. and 14.5.
For $maitag = 8 To 14
If _DateToDayOfWeek($iYear, 5, $maitag) = 1 Then
If $maitag < 10 Then
$maitag = "0" & $maitag
EndIf
$MutterDat = $iYear & "/05/" & $maitag
If $MutterDat = $PfSoDat Then
$MutterDat = _DateAdd( 'd', -7, $iYear & "/05/" & $maitag)
EndIf
ExitLoop
EndIf
Next
$oHoliday.Add($MutterDat, "Mother's Day")
; Thanksgiving 1. Sunday of October (between 1. and 7.10.)
For $oktobertag = 1 To 7
If _DateToDayOfWeek($iYear, 10, $oktobertag) = 1 Then
$oktobertag = "0" & $oktobertag
$oHoliday.Add($iYear & "/10/" & $oktobertag, "Thanksgiving")
ExitLoop
EndIf
Next
; 4.advent = Sunday before 25.12. (between 18. and 24.12.)
For $deztag = 18 To 24
If _DateToDayOfWeek($iYear, 12, $deztag) = 1 Then
$4AdvDat = $iYear & "/12/" & $deztag
$oHoliday.Add(_DateAdd( 'd', -7, $4AdvDat), "3. Advent")
$oHoliday.Add(_DateAdd( 'd', -14, $4AdvDat), "2. Advent")
$oHoliday.Add(_DateAdd( 'd', -21, $4AdvDat), "1. Advent")
$oHoliday.Add(_DateAdd( 'd', -28, $4AdvDat), "Sunday before Advent on which the dead are commemorated")
$oHoliday.Add(_DateAdd( 'd', -32, $4AdvDat), "Day of Prayer and Repentance")
ExitLoop
EndIf
Next
$oHoliday.Add(_DateAdd( 'd', -48, $EasterDate), "Monday before Lent")
$oHoliday.Add(_DateAdd( 'd', -47, $EasterDate), "Shrove Tuesday")
$oHoliday.Add(_DateAdd( 'd', -46, $EasterDate), "ash wednesday")
$oHoliday.Add(_DateAdd( 'd', -3, $EasterDate), "Holy Thursday")
$oHoliday.Add(_DateAdd( 'd', 60, $EasterDate), "Corpus Christi")
$oHoliday.Add($iYear & "/01/06", "Epiphany")
$oHoliday.Add($iYear & "/02/14", "Valentine's Day")
$oHoliday.Add($iYear & "/10/31", "Reformation Day")
$oHoliday.Add($iYear & "/11/01", "All Saints' Day")
$oHoliday.Add($iYear & "/12/24", "Christmas Eve")
$oHoliday.Add($iYear & "/12/31", "New Year's Eve")
$oHoliday.Add($4AdvDat, "4. Advent")
; ######### Here you can insert own holidays #######################
; $oHoliday.Add('YYYY/MM/DD', 'Name of holiday') <== SAMPLE
; ##################################################################
#ce
#endregion
If $oHoliday.Exists($iYear & '/' & $iMon & '/' & $iDay) Then
Return $oHoliday.Item($iYear & '/' & $iMon & '/' & $iDay)
Else
Return ''
EndIf
EndFunc ;==>_IsHoliday
