powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция WeekdayName, использование в условии. VBA
4 сообщений из 4, страница 1 из 1
Функция WeekdayName, использование в условии. VBA
    #36930897
bending
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день всем!
Не могу разобраться с функцией WeekdayName, ни где не могу найти пример использования в условии. Может кто уже сталкивался с этим. Хочу чтобы условие выполнялось если день пятница.
Вот такое условие:
Код: plaintext
1.
datefr = Worksheets("Лист1").Cells(count_datefr,  4 ).Value
If WeekdayName(Weekday(datefr)) = "пятница" Then

...где datefr это ячейки с датами.
При выполнении функция WeekdayName ставит совершенно другой день недели.
При datefr = 09.07.2010 (это пятница) функция WeekdayName(Weekday(datefr)) принимает значение "суббота" типа - String. И условие естественно не выполняется.
...
Рейтинг: 0 / 0
Функция WeekdayName, использование в условии. VBA
    #36930920
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У функции Weekday есть параметр FirstDayOfWeek, который по умолчанию равен воскресенью.
...
Рейтинг: 0 / 0
Функция WeekdayName, использование в условии. VBA
    #36930942
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лучше проверять день недели так:

Код: plaintext
1.
If Weekday(date, 2 ) =  5  Then
...
...
Рейтинг: 0 / 0
Функция WeekdayName, использование в условии. VBA
    #36931012
bending
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndrF спасибо, все отлично отработало.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция WeekdayName, использование в условии. VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]