VBNet - Форум - Таймкод

Вопрос: Таймкод Добавлено: 18.06.02 14:44

Автор вопроса: Smith | Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. | ICQ: ненавижу

Пишу прогу, работающую с таймкодом. Никак не могу вычислить количество времени между двумя временнЫми точками.
Например: 01:17:32 и 02:38:41
Код написал такой, что хватит на любую серьезную программу, а толку никакого. Все время что-нибудь считает неправильно. Может кто сталкивался с подобной проблемой, подкиньте код. Или я ерундой страдаю, может есть какая-нибудь переменная типа Time и вычисления можно сделать написав b-a ?

Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #1	Добавлено: 18.06.02 14:53
	http://www.vbnet.ru/faq/showtopic.asp?id=212 Ответить

Номер ответа: 2 Автор ответа: SAVok ICQ: 155153916 Вопросов: 2 Ответов: 126	Профиль \| \| #2	Добавлено: 18.06.02 15:05
	Dim T1 As Date, T2 As Date T1 = CDate("01:17:32") T2 = CDate("02:38:41") MsgBox Format(T2 - T1, "hh:mm:ss") Ответить

Номер ответа: 3
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #3

Добавлено: 18.06.02 15:20

SAVok'у.

До сих пор качаю твои ссылки. А с докачкой ничего не было ?

Или это такая извращённая форма шутки ?

Ответить

Номер ответа: 4
Автор ответа:

SAVok

ICQ: 155153916

Вопросов: 2
Ответов: 126

Профиль | | #4

Добавлено: 18.06.02 15:23

Извини, но и это мне далось с большим трудом...

Еще раз Sorry!

Ответить

Номер ответа: 5
Автор ответа:

Smith

ICQ: ненавижу

Вопросов: 28
Ответов: 317

Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
Профиль | | #5

Добавлено: 18.06.02 15:34

Хм, действительно, работает, раньше почему-то не получалось. СПАСИБО.

Продолжаем тему.

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

Например: 01:17:32:12 и 02:38:41:23

Такое можно посчитать?

И еще. Это глюк форума или я чего-то не понимаю?

Ребята, о чём это вы? Ссылки, докачки, с большим трудом?!?

Ответить

Номер ответа: 6
Автор ответа:

SAVok

ICQ: 155153916

Вопросов: 2
Ответов: 126

Профиль | | #6

Добавлено: 18.06.02 16:13

Что-то вроде:

Private Sub GOO(i1 As String, i2 As String)
    Dim t1 As Date, t2 As Date
    t1 = CDate(Left(i1, Len(i1) - 3))
    t2 = CDate(Left(i2, Len(i2) - 3))
    MsgBox CStr(DateDiff("s", t2, t1) * 25 + (CInt(Right(i1, 2)) - CInt(Right(i2, 2))))
End Sub

Private Sub Command1_Click()
GOO "02:38:41:13", "01:17:32:12"
End Sub

ТОлько ты бы сам для начала попробовал!

Ответить

Страница: 1 |