Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / условие для года / 11 сообщений из 11, страница 1 из 1
23.03.2010, 12:06
    #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:10
    #36536516
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие для года
из-за разного типа переменных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 12:11
    #36536524
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие для года
Konst_Oneиз-за разного типа переменных

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

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

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


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