Что нового

определить по периоду введеных дат, через форму, выходных дней

Tiberium6

Новичок
Сообщения
51
Репутация
0
как сделать что бы после ввода начало и конца даты в форме (форма ниже), нажав кнопку выполнить, он прочитывал все даты и по дате определял выходной день (если можно то красные дни календаря, суббота, воскресенье) с выводом в msgbox ?

Код:
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 303, 183, 192, 124)
$Date2 = GUICtrlCreateDate("2012/09/28 19:32:26", 118, 37, 145, 20, BitOR($GUI_SS_DEFAULT_DATE,$WS_BORDER))
$Date3 = GUICtrlCreateDate("2012/09/28 19:32:26", 118, 69, 145, 20, BitOR($GUI_SS_DEFAULT_DATE,$WS_BORDER))
$Label1 = GUICtrlCreateLabel("начало даты", 32, 40, 67, 17)
$Label2 = GUICtrlCreateLabel("конец даты", 32, 72, 62, 17)
$Button1 = GUICtrlCreateButton("Выполнить", 120, 113, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()


	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			GUISetState(@SW_HIDE)
					GUISetState(@SW_SHOW)
	EndSwitch
WEnd
 

AZJIO

Меценат
Меценат
Сообщения
2,903
Репутация
1,200
Tiberium6
С помощью _DateToDayOfWeek определи день недели начального. Далее от 7 отними день недели, и получишь разницу, которую нужно добавить (_DateAdd) к начальной дате, чтобы получить первый выходной. Далее прибавляй с помощью _DateAdd по 7 дней, используя цикл, каждый раз сравнивая не привысила ли новая дата конечное значение. Ну и в цикле присоединяй каждую найденную дату к переменной, в конце получишь необходимый список.
 
Автор
T

Tiberium6

Новичок
Сообщения
51
Репутация
0
Код:
_DateToDayOfWeek
показывает только текущую дату, а как узнать какой день недели с переменной
Код:
$date = 02.10.2012
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Tiberium6,
ты пример в справке видел??
http://autoit-script.ru/autoit3_docs/libfunctions/_datetodayofweek.htm
 
Верх