Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Считать дату из ячейки, Чтение даты из ячейки
 
#1
08.12.2017 16:26:37
Здравствуйте
Как получить в переменную дату из ячейки, которую я ранее заполнял следующим образом:
Код
Cells(x, 1).Value = Format(Now, "dd/mm/yy;@")
Мне нужно получить дату из ячейки и сравнить ее с введенной, но вариант
Код
Dim b As Date
b = 1 / Month / Year
If CDate(Cells(x, 1).Value) < b Then
не работает. Макрос работает, но результата нет
В чем я ошибаюсь?
 
 
 
#2
08.12.2017 16:33:51
А что Вы хотели получить этой строкой: b = 1 / Month / Year?
 
 
 
#3
08.12.2017 16:38:26
Полагаю, что так я присваиваю переменной b дату начала месяца указанного в переменных year и month
 
 
 
#4
08.12.2017 16:53:39
Добрый день. Давайте разберемся:
Получить в числовом виде значение первого дня соответствующего месяца, соответствующего года можно через DateSerial(year, month, day)
Вычислить month, year из существующей даты (например, из Now()), можно при помощи функций Month(Now()) и Year(Now()).
В том виде, в котором вы пытаетесь сделать, вы присваиваете переменной b значение частного от деления 1 на переменную Month, а потом еще и на переменную Year (а они наверняка не определены/пустые и т.д.)
Изменено: Пытливый - 08.12.2017 16:55:26
Кому решение нужно - тот пример и рисует.
 
 
 
#5
08.12.2017 16:54:49
Т.е. первый день месяца хотите так получить?
 
 
 
#6
08.12.2017 16:56:46
Да, у меня есть конкретный Month (например 11) и Year (например 2017). Мне нужно сравнить дату 1.11.2017 с датой, записанной когда-то в ячейку таким способом
Код
Cells(x, 1).Value = Format(Now,"dd/mm/yy;@")
 
 
 
#7
08.12.2017 17:00:58
а другой способ не подойдет?
Код
Cells(x, 1) = DateSerial(year, month, 1)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
08.12.2017 17:08:33
Цитата
Пытливый написал:
DateSerial(year, month, day)
В переменную b дату записали, а как из ячейки вытащить дату?
 
 
 
#9
08.12.2017 17:10:13
вытащите так:
dt = cells(r,c)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#10
08.12.2017 17:10:27
Вы ж сами написали:
Код
CDate(Cells(x, 1).Value)
Кому решение нужно - тот пример и рисует.
 
 
 
#11
08.12.2017 17:17:59
Цитата
Ігор Гончаренко написал:
dt = cells(r,c)
А ларчик просто открывался. Спасибо, все работает
 
 
 
Страницы: 1
Читают тему
Наверх