damien2008
Осваивающий
- Сообщения
- 178
- Репутация
- 34
AutoIt: 3.3.8.1
Версия: 1.0
Лицензия:
Категория: Строки, Математика, Разное
Описание: собственно сабж. может кому пригодится. вариантов в интернете много, вот более-менее рабочий. 8)
по формуле Зеллера
Код/Пример:
История версий:
Источник: autoit-script.ru
Автор(ы): damien2008
Версия: 1.0
Лицензия:
Категория: Строки, Математика, Разное
Описание: собственно сабж. может кому пригодится. вариантов в интернете много, вот более-менее рабочий. 8)
по формуле Зеллера
Код/Пример:
Код:
#cs ------------------------------------------------------------------------
Версия AutoIt: 3.3.8.1
Автор: damien2008
Описание: алгоритм определения дня недели по дате
#ce ------------------------------------------------------------------------
; Код программы
#include <Array.au3>
Dim $ArrDay[8] =['Пон', 'Вто', 'Сре', 'Чет', 'Пят', 'Суб', 'Вос']
Dim $date = StringSplit('29/03/2000', '/')
main()
Func main()
If $date[2] <= 2 Then
$date[1] += 3
$date[3] -= 1
EndIf
Local $w = Int(Mod(($date[1] + $date[3] + Int($date[3] / 4) - Int($date[3] / 100) + Int($date[3] / 400) + Int((31 * $date[2] + 10) / 12)), 7))
MsgBox(0, '', 'день недели - ' & $ArrDay[$w])
;ConsoleWrite($ArrDay[$w] & @CRLF)
EndFunc
История версий:
1.0
Источник: autoit-script.ru
Автор(ы): damien2008