Преобразование времени в отдельные числа

Пользователь

Сообщений: 7 Регистрация: 26.04.2015

26.04.2015 12:46:32

Сразу извиняюсь, если уже было, но я уже искал по всякому...

Суть: в ячейке А1 есть время в виде 80:59:00, нужно это время разбить на отдельные числа в отдельные ячейки в В1 80, в С1 59 и в D1 00.
Попробовал Текст по столбцам, но там сразу преобразует А1 в какую-то полную дату 03.01.1900 08:59:00

Заранее спасибо.

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

26.04.2015 12:56:57

Где пример? Переделывать не буду.

Код
Public Sub www() Dim a$() a = Split([a1].Text, ":") [b1].Resize(, UBound(a) + 1) = a End Sub

Я сам - дурнее всякого примера! ...

Pelena

Пользователь

Сообщений: 1418 Регистрация: 22.12.2012

26.04.2015 14:20:25

Или формулами

Код
=ОТБР(A1*24)

Код
=МИНУТЫ(A1)

Код
=СЕКУНДЫ(A1)

rasdmr Пользователь Сообщений: 7 Регистрация: 26.04.2015	#4 26.04.2015 16:27:58 Pelena, спасибо большое, как раз то, что нужно было.