Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция WeekdayName, использование в условии. VBA / 4 сообщений из 4, страница 1 из 1
01.11.2010, 13:00
    #36930897
bending
bending
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция WeekdayName, использование в условии. VBA
Добрый день всем!
Не могу разобраться с функцией 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
| Ответить | Цитировать | Написать  
01.11.2010, 13:10
    #36930920
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция WeekdayName, использование в условии. VBA
У функции Weekday есть параметр FirstDayOfWeek, который по умолчанию равен воскресенью.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2010, 13:17
    #36930942
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция WeekdayName, использование в условии. VBA
Лучше проверять день недели так:

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


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