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

@Koshmar571 · Регистрация: 07.06.2016

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

Прошу помощи, нужно доработать макрос времени с округлением времени до минут (то есть секунды - 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

SoftIce · 01.06.2017, 08:30

Visual Basic

1	MsgBox Format$(Now, "hh:nn:00")

SoftIce · 01.06.2017, 08:38

Visual Basic

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

@~~FlatOutNafik~~ · 01.06.2017, 13:43

Если вдруг захочется округлить время до ближайшей минуты, то можно написать так-
RoundNow =Format(now+3.47222222222222E-04,"hh:nn:00")

@Koshmar571 1 / 1 / 0 Регистрация: 07.06.2016 Сообщений: 11
		1
	Обнуление текущего времени до минут 01.06.2017, 08:25. Показов 1522. Ответов 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

@~~FlatOutNafik~~ Заблокирован
	01.06.2017, 13:43	4
	Сообщение было отмечено Sasha_Smirnov как решение Решение Если вдруг захочется округлить время до ближайшей минуты, то можно написать так- RoundNow =Format(now+3.47222222222222E-04,"hh:nn:00") 0

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

Решение