Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Koshmar571
1 / 1 / 0
Регистрация: 07.06.2016
Сообщений: 11
1

Обнуление текущего времени до минут

01.06.2017, 08:25. Просмотров 1000. Ответов 3
Метки нет (Все метки)

Прошу помощи, нужно доработать макрос времени с округлением времени до минут (то есть секунды - 00 ) ,, не важно в большую или меньшую сторону


Sub факт+40минут()
ActiveCell.FormulaR1C1 = "=NOW()-TODAY()+TIMEVALUE(""0:40"")"
Selection.Value = Selection.Value
End Sub




Sub факт()
ActiveCell.FormulaR1C1 = "=NOW()-TODAY()"
Selection.Value = Selection.Value
End Sub
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2017, 08:25
Ответы с готовыми решениями:

+ 1 час от текущего времени
здравствуйте, делаю так: MsgBox$ "+ 1 час от текущего времени " & Format(Hour(Now), "00") + 1 & "...

Вывод текущего времени в шаблоне
Ребят,нужно вывести в шаблоне текущее время в формате чч:мм.Подскажите код vbscript:-[

Помещение текущего времени (часов и минут) в два TextBox-а
Доброго времени суток всем. Нужна помощь со следующим: Помогите поместить в 2 TextBox'a текущее...

(мобильное приложение) Определение координат GPS и получение текущего времени с сервера времени интернет
Стоит задача на мобильном клиенте получить текущее время из интернет, что бы пользователи не...

Обнуление переменной по времени
Всем привет. Вопрос: как можно обнулять переменную по конкретному времени? Допустим обнулять раз...

3
SoftIce
es geht mir gut
11189 / 4608 / 1161
Регистрация: 27.07.2011
Сообщений: 11,309
Завершенные тесты: 1
01.06.2017, 08:30 2
Visual Basic
1
MsgBox Format$(Now, "hh:nn:00")
0
SoftIce
es geht mir gut
11189 / 4608 / 1161
Регистрация: 27.07.2011
Сообщений: 11,309
Завершенные тесты: 1
01.06.2017, 08:38 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub qwerty()
    MsgBox RoundNow & vbCrLf & _
           NowPlus(40)
End Sub
 
Function RoundNow() As String
    RoundNow = Format$(Now, "hh:nn:00")
End Function
 
Function NowPlus(ByVal n As Integer) As String
    NowPlus = Format$(DateAdd("n", n, Now), "hh:nn:00")
End Function
0
Миниатюры
Обнуление текущего времени до минут  
FlatOutNafik
Заблокирован
01.06.2017, 13:43 4
Лучший ответ Сообщение было отмечено Sasha_Smirnov как решение

Решение

Если вдруг захочется округлить время до ближайшей минуты, то можно написать так-
RoundNow =Format(now+3.47222222222222E-04,"hh:nn:00")
0
01.06.2017, 13:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2017, 13:43

Определить, сколько часов и минут прошло с начала текущего месяца.
Javascript Определить, сколько часов и минут прошло с начала текущего месяца.

Вывод текущего времени
Господа демократы,как подключить таймер Виндовс для этого кода???8-) // DATA.cpp: определяет...

Автозапись текущего времени
Пытаюсь в конструкторе таблицы настроить автозапись текущего времени: Формат поля - полный...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.