| Вопрос: управление датами в VBA | Добавлено: 20.04.05 17:22 |
Автор вопроса:  Vera | ICQ: 68479994 |
| Есть задача: выбрать числа суббот и воскресений из указанного месяца. какой командой можно это сделать? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | Цитата | #1 | Добавлено: 20.04.05 17:57 |
|
Нужно знать ещё и год. Потому что февраль.
Или у тебя дан список чисел месяца? |
||
|
Номер ответа: 2 Автор ответа: Vera ICQ: 68479994 Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #2 | Добавлено: 21.04.05 08:50 |
| Месяц и год задаются в форме, числа тоже в форме, задача расчета - определить, являются ли числа субботами и воскресеньями | ||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | Цитата | #3 | Добавлено: 21.04.05 10:36 |
|
Можно примерно так
Private Sub Form_Load() On Error GoTo ExSub Dim i As Long Dim Month As Long Dim Year As Long Month = 2 Year = 2005 For i = 1 To 31 If Weekday(i & "." & Month & "." & Year) = vbSaturday Then MsgBox i & " - Суббота" ElseIf Weekday(i & "." & Month & "." & Year) = vbSunday Then MsgBox i & " - Воскресенье" End If Next i ExSub: End Sub |
||
Страница: 1 |