ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / условие для года
11 сообщений из 11, страница 1 из 1
условие для года
    #36536505
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Почему не срабатывает условие для года?
В ячейки R1 вводится числовое значение года, он может быть текущим или прошедшим.
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub CommandButton1_Click()
    If Range("R1").Text < Year(Date) Then
    '...
    Else
    '...
    End If
End Sub
...
Рейтинг: 0 / 0
23.03.2010, 12:06
| Ответить | Цитировать | Написать  
условие для года
    #36536516
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
из-за разного типа переменных
...
Рейтинг: 0 / 0
23.03.2010, 12:10
| Ответить | Цитировать | Написать  
условие для года
    #36536524
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneиз-за разного типа переменных

Код: plaintext
If Val(Range("R1").Text) < Year(Date) Then
...
Рейтинг: 0 / 0
23.03.2010, 12:11
| Ответить | Цитировать | Написать  
условие для года
    #36536574
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Я так понял Range("R1").Text не является годом по отношению к текущему году Year(Date)
Val переводит значение R1 в дату?
Значит должно быть так
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub CommandButton1_Click()
    If Val(Range("R1").Text) < Year(Date)Then
    a= 1 
    Else
    b= 1 
    End If
End Sub
Но если в ячейку R1 вставить текущий год, то должен выполнится оператор b=1, а он не выполняется…
...
Рейтинг: 0 / 0
23.03.2010, 12:23
| Ответить | Цитировать | Написать  
условие для года
    #36536584
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
segail,

Научитесь пользоваться кнопкой F1 и посмотрите, какие типы данных возвращает функция Val и Year, зачем выяснять это на форуме?

ЗЫ
Попробуйте вариант
Код: plaintext
If CInt(Range("R1").Text) < Year(Date)Then
вдруг Val в данном случае пытается вернуть плавающую точку....
...
Рейтинг: 0 / 0
23.03.2010, 12:27
| Ответить | Цитировать | Написать  
условие для года
    #36536596
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Prosegail,

Научитесь пользоваться кнопкой F1 и посмотрите, какие типы данных возвращает функция Val и Year, зачем выяснять это на форуме?
Если бы я знал английский…
...
Рейтинг: 0 / 0
23.03.2010, 12:31
| Ответить | Цитировать | Написать  
условие для года
    #36536622
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
простите, но справка к русскому офису идёт на русском языке
...
Рейтинг: 0 / 0
23.03.2010, 12:36
| Ответить | Цитировать | Написать  
условие для года
    #36536669
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Konst_Oneпростите, но справка к русскому офису идёт на русском языке
Для Excel на русском, если справку включить в VBA то на английском.
...
Рейтинг: 0 / 0
23.03.2010, 12:47
| Ответить | Цитировать | Написать  
условие для года
    #36536689
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
значит придётся вам как-то разбираться
...
Рейтинг: 0 / 0
23.03.2010, 12:52
| Ответить | Цитировать | Написать  
условие для года
    #36536999
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Konst_Oneпростите, но справка к русскому офису идёт на русском языке
segailДля Excel на русском, если справку включить в VBA то на английском.

В русском Office'97 и справка по VBA на русском. Да и в сети русскоязычных ресурсов достаточно...
...
Рейтинг: 0 / 0
23.03.2010, 14:14
| Ответить | Цитировать | Написать  
условие для года
    #36537045
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
segail, вот недавно тема была про литературу по VBA.
...
Рейтинг: 0 / 0
23.03.2010, 14:24
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / условие для года
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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