Сложение времени, минут, секунд чохом: result="mm:ss"+"mm:ss

[crabdance]

Здравствуйте.
Писал программу, писал, писал, писал, дошёл до момента, когда надо сложить "минуты:секунды"+"минуты:секунды".
Щас, думаю, раз-два и готово.
Собсно шесть часов прошло, а ничего не готово. TimeSpan'ы, CDate, DateTime, DateAndTime и прочая и прочая уже в глазах рябят.
Ничего не выходит совершенно. От слова ни че го!

Фактически требуется следующее:
result = #mm:ss# + #mm:ss#
03:22 = 01:20 + 02:02

В идеале:
result = #mm:ss# * multiplicator
04:04 = 02:02 * 2

Буду благодарен за помощь. Спасибо.

[pronto]

Если слагаемые хранятся в формате Date, то:

Код: Выделить всё

Private Sub Command1_Click()
   Dim t1 As Date, t2 As Date, result As Date
   
   t1 = Time
   t2 = TimeSerial(0, 3, 50)
   
   Debug.Print "t1 = " & t1 & vbCrLf & "t2 = " & t2
   
   result = TimeSum(t1, t2)
   Debug.Print FormatDateTime(result, vbLongTime)
   
   result = result * 2
   'result = t1 + t2 ' да! можно и так, но «часы» складываюся тоже
   Debug.Print FormatDateTime(result, vbLongTime)
End Sub

Private Function TimeSum(Part1 As Date, Part2 As Date) As Date
   'TimeSum = DateAdd("H", Hour(Part1) + Hour(Part2), TimeSum)
   TimeSum = DateAdd("N", Minute(Part1) + Minute(Part2), TimeSum)
   TimeSum = DateAdd("S", Second(Part1) + Second(Part2), TimeSum)
End Function

А на мой взгляд, лучше всего хранить время выраженное в секундах:

Код: Выделить всё

t1% = 394 '  6 мин 34 с
t2% = 1231 ' 20 мин 31 с


, тогда сложение сводится к простой арифметической операции:

Код: Выделить всё

intTime& = t1 + t2

чтобы из intTime получить часы, минуты и секунды:

Код: Выделить всё

   Dim H As Integer, M As Integer, S As Integer, intTime As Long
   
   intTime = 1625 '
   
   H = intTime \ 3600
   intTime = intTime Mod 3600
   M = intTime \ 60
   S = intTime Mod 60

   Debug.Print FormatDateTime(TimeSerial(H, M, S), vbLongTime) '  0:27:05

[crabdance]

То есть, как я понял, VB.NET В ПРИНЦИПЕ не умеет работать со временем в его привычном, "бытовом" формате записи.
Я не могу взять лист, содержащий понятный человеку список :

Код: Выделить всё

Name|Time
-------------------
Name|00:02:24
Name|00:07:12
Name|01:30:00
-------------------


и получив значения столбца Time просуммировать их, как обычные временные значения, без сериализации, конвертации в таймспан и тому подобной, откровенно тупорылой, ерунды? Блестяще. Экселю достаточно указать формат "Время" и после этого он ловко умножает записи, вида:
"00:30:00" хоть на сколько. А васику, значит, не с руки...

Все примеры предлагают к некоторому значению времени прибавить что-то вроде (0,20,50,34) и НИ ОДИН пример не показывает, как из string="00:30:00" получить лонг_структуру(0,30,0). То есть в принципе я догадываюсь, как это сделать, сложить, провести обратное преобразование, но разве нет простого метода, который сам всё это делает? Примеры, следовательно, написаны спустя рукава, а в мсдн мы и сами искать умеем.

Я сделал на subtraction. Для "бытовых" применений сойдёт:

Код: Выделить всё

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim base As DateTime = "10:00:00" ' базовое значение уменьшаемого взято заведомо больше вычитаемого

        '**************************************************
        Dim time1 As DateTime = "00:05:00" ' вычитаемое 1
        Dim time2 As DateTime = "00:12:00" ' вычитаемое 2
        Dim time3 As DateTime = "00:10:00" ' вычитаемое 3
        Dim time4 As DateTime = "00:01:00" ' вычитаемое 4
        Dim time5 As DateTime = "00:03:00" ' вычитаемое 5
        '**************************************************

        Dim result As TimeSpan

        ' поехали!
        ' вычитаем первое значение из базового уменьшаемого значения:
        result = base.Subtract(time1)
        ' конвертируем результат в Date и вновь сохраняем его в переменной, хранящей базовое значение (далее по кругу)
        base = CDate(result.ToString)

        result = base.Subtract(time2)
        base = CDate(result.ToString)

        result = base.Subtract(time3)
        base = CDate(result.ToString)

        result = base.Subtract(time4)
        base = CDate(result.ToString)

        result = base.Subtract(time5)
        base = CDate(result.ToString)

        ' base в настоящий момент, содержит время 09:29:00

        ' теперь получаем сумму time1+time2+time3+time4+time5
        ' для этого из первоначального значения base,
        ' то есть 10:00:00 вычитаем текущее значение base,
        ' то есть 09:29:00
        result = CDate("10:00:00").Subtract(base)

        Dim strMessage As String
        strMessage = "Сумма времён: time1+time2+time3+time4+time5 равна " & result.ToString

        MsgBox(strMessage)


    End Sub

[pronto]

как из string="00:30:00" получить лонг_структуру(0,30,0). То есть в принципе я догадываюсь, как это сделать, сложить, провести обратное преобразование, но разве нет простого метода, который сам всё это делает?

«лонг_структура» — это как? Попробуй TimeValue...

[crabdance]

как из string="00:30:00" получить лонг_структуру(0,30,0). То есть в принципе я догадываюсь, как это сделать, сложить, провести обратное преобразование, но разве нет простого метода, который сам всё это делает?

«лонг_структура» — это как? Попробуй TimeValue...

Обычная. Страшный таймспан представляет собой структуру, содержащую группу данных типа Long, разделённых запятыми.
Мне TimeValue на вкус попробовать? Вы понимаете, что вопрос не в преобразовании типов, а в сложении двух типов Date?
Date3 = Date1+Date2 - попробуйте сложить. Что? Они конкатенировались? Айяяяяй, как же таг?

Date.Add(value) опять же требует приведения значения value к TimeSpan, а механизма конвертации String, Date итп. в TimeSpan НЕТ!
Вообще, похоже, НИЧТО нельзя конвертировать в TimeSpan средствами васика. Это прекрасно, я считаю!

[crabdance]

Вдруг наткнулся на TimeSpan.Parse(string)
Вчера 6 часов потратил на поиски метода конвертации строки в TimeSpan и пусто. Видимо что-то распыляли, не иначе.

[pronto]

Я тоже уже разобрался

Код: Выделить всё

Dim result As TimeSpan
Dim t1 As TimeSpan
Dim t2 As TimeSpan

t1 = TimeSpan.Parse("00:20:20")
t2 = TimeSpan.Parse("00:1:48")

result = t1.Add(t2)

... Ну индусы и намудрили ...

[crabdance]

Да атас просто. В целом операция умножения времени на 2 выглядит так:

Код: Выделить всё

stringtime = CStr(Date)
timespantime = TimeSpan.Parse(stringtime)
resulttime = timespantime+timespantime
stringresulttime=resulttime.ToString
datetime = CDate(stringresulttime)


Укурыши долбаные.

Понятно, что записать это можно и по другому, но если разложить сложное выражение на ряд простых, то вот это и получится. А надо было просто умножить "00:20:00" на 2 и получить "00:40:00".
Кстати как умножать пока не понял. Выполняю умножение многочисленными итерациями сложения, а то если тратить время на разбор полёта индусской мысли, вместо писания кода, то до морковкиных загодей не закончишь. Вообще, конечно, гомнокот выходит.

[Qwertiy]

Ну всё же просто:

Код: Выделить всё

Module All
  Public Sub Main()
    Dim Res As TimeSpan

    For Each T As String In {"00:02:24", "00:07:12", "01:30:00"}
      Res += TimeSpan.Parse(T)
    Next T

    Console.WriteLine(Res)
    Console.ReadKey()
  End Sub
End Module

[Qwertiy]

А вот с умножением на 2:

Код: Выделить всё

Module All
  Public Sub Main()
    Dim Res As TimeSpan

    For Each T As String In {"00:02:24", "00:07:12", "01:30:00"}
      Res += TimeSpan.Parse(T)
    Next T

    Console.WriteLine(Res) ' Сумма
    Console.WriteLine(New TimeSpan(Res.Ticks * 2)) ' Сумма, умноженная на 2
    Console.ReadKey()
  End Sub
End Module

И не надо хранить промежутки времени в датах!

[crabdance]

Qwertiy

Вы не знаете, что такое "многочисленные итерации сложения"?
Вы всерьёз полагаете, что (New TimeSpan(Res.Ticks * 2)) == "Всё просто же"?

Никто ни в чём ничего не хранит. Кусок кода является примером простейшей операции умножения времени на 2. Время берётся из Date и возвращается в него же.

[Qwertiy]

Вы не знаете, что такое "многочисленные итерации сложения"?

Я показал код, который нормально использует операцию умножения - чем не устраивает?

Время берётся из Date и возвращается в него же.

Зачем? По приведённому коду я вижу только хранение длительности в Date вместо TimeSpan, про что и сказал, что так делать не надо.
Да ещё и приведения чере CStr и CDate вместо нормальных.

Вы всерьёз полагаете, что (New TimeSpan(Res.Ticks * 2)) == "Всё просто же"?

Да, я именно так и полагаю.

[crabdance]

Низачем. Это пример.

Код устраивает, не устраивает фраза "Всё просто же".

А я так не полагаю. На этом и закончим.

[Qwertiy]

Код устраивает, не устраивает фраз "Всё просто же".

Ну ok, сорри.
Не хотел никого обидеть, просто на мой взгляд, это просто.

[Qwertiy]

А я так не полагаю.

1. Пишем умножение - видим, что не поддерживается.
2. Просматриваем варианты конструктора - их 4.
3. Видим конструктор принимающий тики, а это минимальный юнит для измерения времени.
4. Берём тики из того, что надо умножить, умножаем на нужное значение и передаём в конструктор.

Итого 4 шага, чтобы получить нужный результат не зная, как это сделать. Я этого тоже не знал, но сделал за несколько минут, не лазия ни в гугл, ни даже в справку/msdn - всё по подсказкам студии - поэтому и написал, что всё просто.

[crabdance]

Код устраивает, не устраивает фраз "Всё просто же".

Ну ok, сорри.
Не хотел никого обидеть, просто на мой взгляд, это просто.

Просто это:

strTime as String = "12:22:00"
SummTime as Time = Nothing

SummTime = CTime(strTime) + CTime(strTime)

Вот это просто, логично и соответствует духу языка. А введение неких тиков в простейшие операции (не для компилятора) это бессмысленное усложнение.

К примеру можно сделать так и это сработает:

Код: Выделить всё

Date3 = Date1 - Date2

А вот это уже НЕ сработает:

Код: Выделить всё

Date3 = Date1+Date2

Прикольно? Прикольно. Объяснимо? Совершенно необъяснимо.

Так и со временем: Date.AddHour(x) есть, а Date.AddPeriod(xx:xx:xx) уже нет.

[crabdance]

А я так не полагаю.

1. Пишем умножение - видим, что не поддерживается.
2. Просматриваем варианты конструктора - их 4.
3. Видим конструктор принимающий тики, а это минимальный юнит для измерения времени.
4. Берём тики из того, что надо умножить, умножаем на нужное значение и передаём в конструктор.

Итого 4 шага, чтобы получить нужный результат не зная, как это сделать. Я этого тоже не знал, но сделал за несколько минут, не лазия ни в гугл, ни даже в справку/msdn - всё по подсказкам студии - поэтому и написал, что всё просто.

Это ничего не значит. Здесь работает уже не использование предоставляемого инструментария, а принцип "надо чтонить найти, что можно использовать". Я использую итерации, так как не додумался до тиков (а до этого использовал сложение вычитанием тоже ведь находка, правда?), вы вот тики нашли. Это неправильный подход. Операции со временем БАЗОВЫЕ, современный язык должен предоставлять функционал по ним, сравнимый с функционалом экселя.

[crabdance]

А вообще - здравствуйте! 100 лет здесь не был. Очень рад тому, что форум продолжает жить и на нём есть люди, готовые помочь, а не в гугл отправить. Это здорово.

Если кому интересно, то в "прошлой жизни" меня звали Member.

[Qwertiy]

К примеру можно сделать так и это сработает:

Код: Выделить всё

Date3 = Date1 - Date2

Эм.. Что нужно сделать, чтобы это сработало?
Разность двух дат - это интервал времени, в чём можно убедиться, выполнив такой код:

Код: Выделить всё

Console.WriteLine((#12/21/2014# - #12/22/2014#).GetType().FullName)

Если у тебя Date3 объявлен с типом TimeSpan - то да, но с типом Date это не компилируется.
Теперь берём сумму. Сумма интервалов времени - логично. Сумма двух дат - бессмысленно. Естественно, это не работает.

Так и со временем: Date.AddHour(x) есть, а Date.AddPeriod(xx:xx:xx) уже нет.

Ну ведь неправда же:

Код: Выделить всё

Dim SomeDate As Date = Date.Today()
SomeDate += New TimeSpan(0, 12, 16)
Console.WriteLine(SomeDate)
Console.ReadKey()

А если очень хочется пользоваться методом, а не оператором (хотя с такими желаниями надо на джаве писать), то он называется просто Add.

[crabdance]

Ну какой, к дьяволу, таймспан?
===
Ладно, к чему суета по пустому? Ну не может васик складывать время как эксель, да и хрен с ним, будем складывать так, как он может.

[Mikle]

Да, блин, прогресс... а в VB6 это работает:

Код: Выделить всё

  Dim d1 As Date
  Dim d2 As Date
  Dim d3 As Date

  d1 = "13:00:07"
  d2 = "03:04:00"
  d3 = d1 + d2
  Caption = d3


[Qwertiy]

Так это же не VB6. Добавили же специально временные промежутки - вот ими и надо пользоваться, а не вытворять всякие фокусы с датами.

[Mikle]

Дата - это тоже временной промежуток, время, прошедшее от условного нуля, так что глупости всё это.

[Qwertiy]

Дата - это как точка, а промежуток - как расстояние.

[Mikle]

Дата - это как точка

Но она численно равна расстоянию от нуля. Идентификатором точки служит расстояние, а расстояния можно складывать.

[Qwertiy]

Идентификатором точки служит расстояние, а расстояния можно складывать.

Я складываю 17 марта 2014 18:47:32 и 2 февраля 2015 12:16:37. Что я хочу получить и нафига мне это надо?
Если я складываю 2014 лет 76 дней 18 часов 47 минут 32 секунды и 2015 лет 33 дня 12 часов 16 минут 37 секунд, то результат вполне предсказуем. За исключением того, что я тут годы назвал, а у них нет однозначного представления в днях. Кстати, замечу, что в TimeSpan нет подозрительных единиц типа месяцев и лет.
Зачем тащить всякую логику с именованием месяцев, высокосностью, а главное, часовыми поясами туда, где надо просто посчитать сумму длительностей?

а в VB6 это работает

Это работает только при соблюдении определённых ограничений.
А ещё, работа с численными представлениями дат там была не слишком-то корректна, если они по разную сторону от точки отсчёта и надо было использовать специальную функцию DateDiff - даже для дней.

[Mikle]

В принципе, соглашусь, если учитывать все эти неоднозначности и "подозрительные" единицы. Просто я до сих пор воспринимал тип Date, как точную величину, однозначно выражаемую в секундах (а ведь так и есть), а секунды мы можем складывать.

[crabdance]

Я складываю 17 марта 2014 18:47:32 и 2 февраля 2015 12:16:37. Что я хочу получить и нафига мне это надо?

Есть тип Date, есть DateTime, давайте напряжёмся, сделаем шажок и добавим тип Time! Вакаримас-ка?
Базар не за то, что хочется датами складывать, а за то, что вместо вменяемого способа предлагается некая костылища размером с .опищу, с беспрерывной конвертацией тудом-сюдом.

[Qwertiy]

однозначно выражаемую в секундах (а ведь так и есть)

Она не в секундах. По крайней мере, вариант в VB6 дробный, да ещё и с нелогичным значением дробной части (это я про отрицательные даты).

Есть тип Date, есть DateTime, давайте напряжёмся, сделаем шажок и добавим тип Time! Вакаримас-ка?

Что по сути и было сделано, только называется он TimeSpan Вот почему там нет умножения - непонятно, а так - вполне логично.
А что касается Date и DateTime, то это одно и то же: VB.NET'овское ключевое слово Date означает тип System.DateTime.

[alibek]

Она не в секундах. По крайней мере, вариант в VB6 дробный, да ещё и с нелогичным значением дробной части (это я про отрицательные даты)

По сути — в секундах от 1970 года.
Целая часть — сутки, дробная часть — секунды; одна секунда = 1/86400 ≈ 0,000011574.
Но из-за того, что для хранения использован тип с плавающей запятой (double), при простом сложении/вычитании могут накопляться ошибки.