Программирование
Веб программирование

VB день недели

 
 

Функция WeekDay служит для определения дня недели (Понедельник, Вторник...). Сделаем программу, которая будет определять день недели. Создай новый проект(Standart EXE), на форму кинь 1 метку, кликни два раза по форме и в создавшейся процедуре запиши:

Dim xday 'Объявляем переменную xday как Variant(хотя можно написать Dim xday as long)
Private Sub Form_Load()
xday = WeekDay(Date, vbMonday) 'xday будет равна дню недели
If xday = 7 Then 'Если xday будет равна 1 то:
Label1.Caption = "Воскресенье" 'Label1.Caption будет равна Воскресенье
End If

If xday = 1 Then 'Дальше я не буду описывать, т.к. там все тоже самое
Label1.Caption = "Понедельник"
End If
If xday = 2 Then
Label1.Caption = "Вторник"
End If
If xday = 3 Then
Label1.Caption = "Среда"
End If
If xday = 4 Then
Label1.Caption = "Четверг"
End If
If xday = 5 Then
Label1.Caption = "Пятница"
End If
If xday = 6 Then
Label1.Caption = "Суббота"
End If
End Sub

Кстати, кроме этой функции в VB есть еще около 20 функций связанных с датами и временем, но мы будем обходиться без них, а если они тебя интересуют, скачай с моего сайта(http://vbbook.ru/) справку о функциях, там они почти все есть. Как ты наверное уже понял, я готовлю тебя к созданию Календаря.


Есть вопросы? Спроси на нашем форуме!!
paname [25.07.2011 16:32]

Есть вопрос. Скажите пожалуйста , почему нужно расписывать "xday = WeekDay(Date,vbMonday)" то что в скобках ? нельзя просто "xday = Weekday"?Заранее спасибо за ответ .

adyg01 [09.08.2011 05:40]

Я так понимаю, что в Weekday указаны индексы дней недель...

Гость [01.11.2011 23:52]

а по моему это от кокого дня начинается остчет недели!

алексей [12.11.2011 17:51]

WeekDay - это функция . ей нужно зеать какя дата сегодня -если написал "Date" б также можно указать любую дату , а vbMonday - это стиль день недели , можно и другой стиль указать например что б показывал месяц

алексей [12.11.2011 18:50]

WeekDay - это функция . ей нужно зеать какя дата сегодня -если написал "Date" б также можно указать любую дату , а vbMonday - это стиль день недели , можно и другой стиль указать например что б показывал месяц

Константин [22.11.2011 19:24]

Private Sub ВерхнийКоллонтитул_Format(Cancel As Integer, FormatCount As Integer)
Dim DayNowIndeX As Long
xday = WeekDay(Date, vbMonday)
If DayNowIndeX = 7 Then [Поле25] = "Воскресенье"
If DayNowIndeX = 1 Then [Поле25] = "Понедельник"
If DayNowIndeX = 2 Then [Поле25] = "Вторник"
If DayNowIndeX = 3 Then [Поле25] = "Среда"
If DayNowIndeX = 4 Then [Поле25] = "Четверг"
If DayNowIndeX = 5 Then [Поле25] = "Пятница"
If DayNowIndeX = 6 Then [Поле25] = "Суббота"
End Sub
Так это в MS Access 2003 получилось, я на формирование отчета поставил, правильно выходит, спасибо большое автору за приличный код :)

Константин [22.11.2011 22:21]

Короче говоря, решил я функцию на форму разместить, на список, привязав его к действию обновление значения, в списке дата у которой день определял, ток что-то не работает, господа помогите кто чем может, что не так делаю...

Руслан [12.01.2013 15:06]

можно было так сделать
поставить таймер, интервал 1, поставить TextBox
ну и почти всё то же самое))
xday = Weekday(Date, vbMonday)
If xday = 7 Then
Text1.Text = "



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.