Преобразовать десятичное число в часы и минуты (89,616 в 89:37)

ac1-caesar Пользователь Сообщений: 473 Регистрация: 25.07.2013	#1 26.11.2018 17:20:39 Уважаемые форумчане! Может вопрос конечно и дилетантский, но все же - как преобразовать десятичное число в часы и минуты в VBA? К примеру: 35,816 в 35:49 89,616 в 89:37 Спасибо.

БМВ Модератор Сообщений: 23286 Регистрация: 28.12.2016 Excel 2013, 2016	#2 26.11.2018 17:28:19 разделите на 24, ну и конечно формат [ч]:мм:сс если от секунд надо избавляться, то округлять. Изменено: БМВ - 26.11.2018 17:31:22 По вопросам из тем форума, личку не читаю.

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

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

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

26.11.2018 17:43:35

Код
MsgBox WorksheetFunction.Text(TimeSerial(Int(ActiveCell), Round((ActiveCell - Int(ActiveCell)) * 60, 0), 0), "[h]:mm")

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

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

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

26.11.2018 18:31:51

Или так:

Код
MsgBox Int(ActiveCell) & Format(Round((ActiveCell - Int(ActiveCell)) * 60), "\:00")

Владимир

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#5 26.11.2018 18:38:15 sokol92, спасибо за нетривиальный подход. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

sokol92 Пользователь Сообщений: 4660 Регистрация: 10.09.2017	#6 26.11.2018 18:43:50 Шутку оценил Владимир

ac1-caesar Пользователь Сообщений: 473 Регистрация: 25.07.2013	#7 27.11.2018 10:24:04 JayBhagavan, sokol92, спасибо большое, выручили!