С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/18: Рейтинг темы: голосов - 18, средняя оценка - 4.83
14 / 0 / 0
Регистрация: 07.08.2016
Сообщений: 50
1

Сравнение дат

30.01.2019, 15:35. Показов 3193. Ответов 10
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подскажите кто-нибудь пожалуйста: задание снять показания в течении 7 последних дней
при сравнении даты с ячейкой таблицы у меня не сравниваются даты
посмотрел через Locals Window вроде всё норм в ячейках даты все есть я думаю что-то с
Visual Basic
1
Sheets(1).Cells(1.1).Value
из за него не сравнивается
Сравниваю через цикл

Visual Basic
1
2
3
4
D' текущая дата
Do While(Sheets(1).Cells(1.1).Value > D - 7)
...
Loop
Как правильно задать условие?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.01.2019, 15:35
Ответы с готовыми решениями:

Сравнение дат
Добрый день! Помогите пожалуйста, решить такой вопрос. Нужно, чтобы при нажатии в форме на...

сравнение дат
Привет! Помогите с задачкой. в 2 текстбокса через маску пользователь вводит даты формата 00.00.00...

Сравнение дат
Добрый, день. Подскажите пожалуйста как можно решить поставленную задачу. Для каждой записи...

Сравнение дат и автоподастановка данных
Добрый день! Помогите, пожалуйста, решить такой вопрос (пример во вложении). На первом листе...

10
Заблокирован
30.01.2019, 16:11 2
Лучший ответ Сообщение было отмечено repository как решение

Решение

Цитата Сообщение от repository Посмотреть сообщение
Cells(1.1)
Запятую вместо точки, ну и файл посмотреть бы?
1
14 / 0 / 0
Регистрация: 07.08.2016
Сообщений: 50
30.01.2019, 16:15  [ТС] 3
Ну запятая вместо точки это само собой - в коде так и есть

Добавлено через 2 минуты
Ну если ошибка где-то ещё значит я буду сам продолжать искать....Я просто думал что в VBA есть какие то хитрости при манипулировании с датами
0
Заблокирован
30.01.2019, 16:29 4
Где файл?
0
3927 / 2324 / 786
Регистрация: 02.11.2012
Сообщений: 6,176
30.01.2019, 16:30 5
Остап Бонд, он же написал.
Цитата Сообщение от repository Посмотреть сообщение
буду сам продолжать искать
0
1591 / 664 / 225
Регистрация: 09.06.2011
Сообщений: 1,334
30.01.2019, 16:40 6
Цитата Сообщение от repository Посмотреть сообщение
Ну запятая вместо точки это само собой - в коде так и есть
для начала убедитесь, что формат ячейки дата, а не текст и тип переменной D дата ... ну и цикл какой-то вечный, если значение ячейки в нем не изменяется - все время одну и туже ячейку сравниваете
1
6978 / 2879 / 552
Регистрация: 19.10.2012
Сообщений: 8,765
30.01.2019, 16:52 7
Бывает что и тип ячейки нужный, и значение выглядит как положено - а там не число, а текст.
Ну а по коду - в чём смысл лазить в ячейку do while там чего-то раз? Он конечно железный, но всёж ресурс...
1
655 / 247 / 89
Регистрация: 28.10.2015
Сообщений: 526
31.01.2019, 13:29 8
Лучший ответ Сообщение было отмечено repository как решение

Решение

Цитата Сообщение от repository Посмотреть сообщение
Я просто думал что в VBA есть какие то хитрости при манипулировании с датами
Есть функции для сложения дат и вычитания разницы между датами
Dateadd и Datediff соответственно.
Если заюзаете в своём коде такие функции, то станет понятнее, откуда исходит ошибка, т.к. если в функцию сравнения дат попадает аргумент, "не тянущий" на дату, то и функция не отработает.
Visual Basic
1
2
3
   Dim j$: j = "ooo"
   Dim h As Date: h = "31.01.2019 13:29:09"
   Debug.Print DateDiff("d", j, h)
Результат такого дела - ошибка 13 Type mismatch, что есть несоответствие типов.
1
6978 / 2879 / 552
Регистрация: 19.10.2012
Сообщений: 8,765
31.01.2019, 13:54 9
Буквально на днях было - всюду по диапазону даты как даты, а код вдруг ругается на 29.02.2019 - и тип ячейки годится, и выглядит как все...
0
oh my god
1455 / 794 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
31.01.2019, 14:45 10
Цитата Сообщение от Hugo121 Посмотреть сообщение
а код вдруг ругается на 29.02.2019
это не дата
0
6978 / 2879 / 552
Регистрация: 19.10.2012
Сообщений: 8,765
31.01.2019, 14:48 11
Ну да. Но ведь как-то эта недата там в списке дат появилась
0
31.01.2019, 14:48
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.01.2019, 14:48
Помогаю со студенческими работами здесь

Сравнение дат и вывод диапазона в ячейки
Добрый день. Сижу разбираюсь тут с основами VBA Excel. Прилетела задача на работе. В общем смысл...

Сравнение дат с сегодняшней, копирование и перенос данных
Добрый день! Прошу помочь в решении задачи: Есть таблица с текстовыми данными и датами. По...

Сравнение дат с текущей в системе и вывод значений
Добрый день! Пытаюсь длительное время решить задачу: Нужно сравнить прошедшие и прогнозные даты в...

Условие макроса сравнение дат и времени работает не корректно.Как это исправить?
Sub Макрос_1() For i = 5 To Sheets("Ввод Данных").Range("A" & Rows.Count).End(xlUp).Row If...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Как программировать под HCL Notes и создавать свои продукты на ее основе
InfoMaster 11.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .
Как работать с SVN (Subversion)
InfoMaster 11.01.2025
Введение Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать. . .
Использование GraphQL в JavaScript
InfoMaster 11.01.2025
Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .
Администрирован­­­­ие Git, продвинутые техники работы с Git
InfoMaster 11.01.2025
Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
Как работать в Git
InfoMaster 10.01.2025
Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C#
InfoMaster 10.01.2025
Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих
InfoMaster 10.01.2025
В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru