+ 1 час от текущего времени

@Ципихович Эндрю · Регистрация: 10.04.2009

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

здравствуйте, делаю так:

Visual Basic
1
MsgBox$  "+ 1 час от текущего времени " & Format(Hour(Now), "00") + 1 & " ч. " & Format(Minute(Now), "00") & " мин."

но могу получить 25 часов, как правильно сделать?, формат из 00 сделан, потому что отображает

Visual Basic
1
MsgBox$ Minute(Now)

без ноля впереди

@Виктор Михалыч · 22.01.2017, 21:18

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

@Ципихович Эндрю · 22.01.2017, 21:25 **[ТС]**

поторопился с Спасибо, нифига не взлетело

@Виктор Михалыч · 22.01.2017, 21:26

Как понять?

@Ципихович Эндрю · 22.01.2017, 21:30 **[ТС]**

ну также зашкаливает за 23 часа,

Сообщение от Ципихович Эндрю

могу получить 25 часов

@Виктор Михалыч · 22.01.2017, 21:31

так а сколько надо? 1:00:00?

SoftIce · 22.01.2017, 21:45

Так

Visual Basic
1
MsgBox (Format$(DateAdd("h", 4, Now), "HH:mm:ss"))

@Ципихович Эндрю · 22.01.2017, 22:01 **[ТС]**

с добавлением нет проблем, теперь если отнимаю

Visual Basic
1
MsgBox (Format$(DateDiff("h", 3, Now), "HH"))

получаю нули, а должно быть в сиё время в моём поясе 20

SoftIce · 22.01.2017, 22:05

Сообщение от Ципихович Эндрю

если отнимаю

Visual Basic
1
   MsgBox (Format$(DateAdd("h", -3, Now), "HH"))

@Ципихович Эндрю · 23.01.2017, 06:22 **[ТС]**

спасибо, и чтобы счастье было полным, как будет с +х мин., -х мин.?
делаю по аналогии, делаю так:

Visual Basic
1
2
MsgBox "- 30 минут от текущего времени " & Format(Hour(Now), "00") & " ч. " & (Format$(DateAdd("m", -30, Now), "mm")) & " мин."
MsgBox "+ 30 минут от текущего времени " & Format(Hour(Now), "00") & " ч. " & (Format$(DateAdd("m", 30, Now), "mm")) & " мин."

опять облом

Shersh · 23.01.2017, 07:40

SoftIce, лечить кретина бесполезно...

SoftIce · 23.01.2017, 07:50

Ципихович Эндрю, можно написать функцию под свои нужды, например

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
    'Вызов
    MsgBox MyFormat(-30, "минут")
    MsgBox MyFormat(-1, "час")
    MsgBox MyFormat("+5", "часов")
    MsgBox MyFormat("+23", "минуты")
End Sub
 
Function MyFormat(ByVal value As String, ByVal part As String) As String
      MyFormat = value & " " & part & " от текущего времени "
     Select Case True
         Case (part Like "час*")
           MyFormat = MyFormat & Format$(DateAdd("h", value, Now), "HH") & " ч. " & Format$(DatePart("n", Now), "00") & " мин."
         Case (part Like "минут*")
           Dim d As Date: d = DateAdd("n", value, Now)
           MyFormat = MyFormat & Format$(DatePart("h", d), "00") & " ч. " & Format$(DatePart("n", d), "00") & " мин."
         Case Else: MyFormat = "Error" '
     End Select
End Function

@Ципихович Эндрю · 23.01.2017, 07:52 **[ТС]**

спасибо, зер гут

Visual Basic
1
2
MsgBox$ "- 30 минут от текущего времени " & (Format$(DateAdd("n", -30, Now), "hh ч. mm мин."))
MsgBox$ "+ 30 минут от текущего времени " & (Format$(DateAdd("n", 30, Now), "hh ч. mm мин."))

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	22.01.2017, 21:18
	MsgBox$ "+ 1 час от текущего времени " & Format(Hour(Now) + 1, "00") & " ч. " & Format(Minute(Now), "00") & " мин." 1

@Ципихович Эндрю 1711 / 578 / 76 Регистрация: 10.04.2009 Сообщений: 9,298
	22.01.2017, 21:25 [ТС]
	поторопился с Спасибо, нифига не взлетело 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	22.01.2017, 21:26
	Как понять? 0

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	22.01.2017, 21:31
	так а сколько надо? 1:00:00? 0

Shersh Заблокирован
	23.01.2017, 07:40
	SoftIce, лечить кретина бесполезно... Миниатюры 1