Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
1705 / 574 / 74
Регистрация: 10.04.2009
Сообщений: 9,287

DateDiff

28.06.2017, 14:13. Показов 3631. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
здравствуйте в коде есть
Visual Basic
1
2
3
4
Старт_программы = Time
много всего
Конец_программы = Time
MsgBox$ "Время обработки текста: " & DateDiff("s", Конец_программы, Старт_программы) & " сек."
почему секунды в конце кода отображает с минусом? спасибо
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.06.2017, 14:13
Ответы с готовыми решениями:

DateDiff
здравствуйте в коде считаю секунды между датами, получаю выделение DateDiff и сообщение, argument not optional код: 'присвоение...

Таблица с DateDiff, циклом и сортировкой строк
Доброго всем времени суток. Потихоньку осваиваю VBA. Возникли затруднения с циклами. Помогите пожалуйста. Есть таблица "График...

Программа работает только для невисокосных годов. Как её доработать? (DateDiff не использовать)
Sub hj() Dim A As Date Dim b As Date Dim k As Integer Dim b1 As Date Dim X As Integer Dim Y As Integer A = Date b =...

10
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
28.06.2017, 14:32
На здоровье.

Компьютеру-то невдомёк, что Конец_программы — это на самом деле Старт_программы и наоборот. Синтаксис, дружище!
0
1705 / 574 / 74
Регистрация: 10.04.2009
Сообщений: 9,287
28.06.2017, 14:33  [ТС]
ничего не понял
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
28.06.2017, 14:44
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
ничего не понял
Поменяй конец с началом
0
1705 / 574 / 74
Регистрация: 10.04.2009
Сообщений: 9,287
28.06.2017, 14:47  [ТС]
то есть я от большего отнимаю меньшее и получаю минус
мне предлагают от меньшего отнять большее, надо подумаааааать..........
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
28.06.2017, 15:12
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
мне предлагают от меньшего отнять большее
Не, ну если ты сам отнимаешь -то пожалуйста
А если скармливаешь эти даты функции, то почитай хотя бы справку

Добавлено через 3 минуты
Цитата Сообщение от SoftIce Посмотреть сообщение
почитай хотя бы справку
А МСДН пишет
Поведение

Обработка параметров. Функция DateDiff вычитает значение Date1 из значения Date2, возвращая разность. В вызывающей программе не изменяется ни одно из значений.

Возвращаемые значения. Поскольку параметры Date1 и Date2 относятся к типу данных Date, они содержат значения даты и времени с точностью до 100-наносекундных квантов времени системного таймера. Тем не менее, функция DateDiff всегда возвращает количество интервалов времени в значении типа Long.

Если Date1 представляет более позднюю дату, чем Date2, то функция DateDiff возвращает отрицательное число.
0
193 / 191 / 31
Регистрация: 11.10.2016
Сообщений: 610
28.06.2017, 15:12
если почитать описание функции DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]), то там так и написано:
If date1 refers to a later point in time than date2, the DateDiff function returns a negative number - если date1 ссылается на позднюю точку во времени, чем date2, то функция возвращает отрицательное число
0
1705 / 574 / 74
Регистрация: 10.04.2009
Сообщений: 9,287
28.06.2017, 16:42  [ТС]
логика не железная, спасибо

Добавлено через 55 минут
Visual Basic
1
MsgBox$ "Время обработки текста: " & DateDiff("s", Старт_программы, Конец_программы) & " сек."
поменял местами, всё равно с минусом ответ

Добавлено через 15 секунд
Visual Basic
1
MsgBox$ "Время обработки текста: " & DateDiff("s", Старт_программы, Конец_программы) & " сек."
поменял местами, всё равно с минусом ответ
0
3946 / 2339 / 790
Регистрация: 02.11.2012
Сообщений: 6,214
28.06.2017, 16:46
у меня с плюсом.
в режиме отладки не желаете пройтись да посмотреть что у вас в Старт_программы и Конец_программы? F8
0
193 / 191 / 31
Регистрация: 11.10.2016
Сообщений: 610
28.06.2017, 17:07
Лучший ответ Сообщение было отмечено Sasha_Smirnov как решение

Решение

вообще, если речь идет о секундах то можно проверить время выполнения таким кодом:
Visual Basic
1
2
3
4
Dim tm!
   tm = Timer
'много всего
   MsgBox "прошло " & (Timer - tm) & " секунд"
2
1705 / 574 / 74
Регистрация: 10.04.2009
Сообщений: 9,287
28.06.2017, 17:34  [ТС]
Лучший ответ Сообщение было отмечено Sasha_Smirnov как решение

Решение

окейно, с плюсом
Visual Basic
1
MsgBox$ "Время обработки текста: " & DateDiff("s", Старт_программы, Time) & " сек."
спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.06.2017, 17:34
Помогаю со студенческими работами здесь

DateDiff
Здравствуйте! Необходимо сделать округление даты с точностью до суток. У меня вот что получилось =DateDiff("d";;). Но допустим...

запрос с DATEDIFF
всем привет! ребят, помогите пожалуйста школьнику с задачкой. я в курсе, что это самые основы и гуглить я умею, хотя если найдя решения к...

Ошибка DATEDIFF
Перенес БД из access в mysql и теперь выдает ошибку в dataset, при его активации, на DATEDIFF SELECT ID, Detail, Model, Cost,...

DateDiff и DateTimePicker
Только начал изучать visual Basic, так что сильно не ругайте. Пишу небольшую программку для автоматизации заполнения и печати...

Функция DateDiff
Мне нужно составить список авторов книги которых изданы в текущем году. Использую функцию DateDiff, только она почему то не работает....


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru