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

@repository · Регистрация: 07.08.2016

Студворк — интернет-сервис помощи студентам

Подскажите кто-нибудь пожалуйста: задание снять показания в течении 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

Как правильно задать условие?

Остап Бонд · 30.01.2019, 16:11

Сообщение от repository

Cells(1.1)

Запятую вместо точки, ну и файл посмотреть бы?

@repository · 30.01.2019, 16:15 **[ТС]**

Ну запятая вместо точки это само собой - в коде так и есть

Добавлено через 2 минуты
Ну если ошибка где-то ещё значит я буду сам продолжать искать....Я просто думал что в VBA есть какие то хитрости при манипулировании с датами

Остап Бонд · 30.01.2019, 16:29

Где файл?

@Vlad999 · 30.01.2019, 16:30

Остап Бонд, он же написал.

Сообщение от repository

буду сам продолжать искать

@Step_UA · 30.01.2019, 16:40

Сообщение от repository

Ну запятая вместо точки это само собой - в коде так и есть

для начала убедитесь, что формат ячейки дата, а не текст и тип переменной D дата ... ну и цикл какой-то вечный, если значение ячейки в нем не изменяется - все время одну и туже ячейку сравниваете

@Hugo121 · 30.01.2019, 16:52

Бывает что и тип ячейки нужный, и значение выглядит как положено - а там не число, а текст.
Ну а по коду - в чём смысл лазить в ячейку do while там чего-то раз? Он конечно железный, но всёж ресурс...

@Святой НякаЛайк · 31.01.2019, 13:29

Сообщение от 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, что есть несоответствие типов.

@Hugo121 · 31.01.2019, 13:54

Буквально на днях было - всюду по диапазону даты как даты, а код вдруг ругается на 29.02.2019 - и тип ячейки годится, и выглядит как все...

@fever brain · 31.01.2019, 14:45

Сообщение от Hugo121

а код вдруг ругается на 29.02.2019

это не дата

@Hugo121 · 31.01.2019, 14:48

Ну да. Но ведь как-то эта недата там в списке дат появилась

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

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

Решение

Решение

@repository 14 / 0 / 0 Регистрация: 07.08.2016 Сообщений: 50
	30.01.2019, 16:15 [ТС]
	Ну запятая вместо точки это само собой - в коде так и есть Добавлено через 2 минуты Ну если ошибка где-то ещё значит я буду сам продолжать искать....Я просто думал что в VBA есть какие то хитрости при манипулировании с датами 0

Остап Бонд Заблокирован
	30.01.2019, 16:29
	Где файл? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	30.01.2019, 16:52
	Бывает что и тип ячейки нужный, и значение выглядит как положено - а там не число, а текст. Ну а по коду - в чём смысл лазить в ячейку do while там чего-то раз? Он конечно железный, но всёж ресурс... 1

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	31.01.2019, 13:54
	Буквально на днях было - всюду по диапазону даты как даты, а код вдруг ругается на 29.02.2019 - и тип ячейки годится, и выглядит как все... 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	31.01.2019, 14:48
	Ну да. Но ведь как-то эта недата там в списке дат появилась 0

Опции темы