Страницы: 1
RSS
Преобразование времени
 
Здравствуйте ! Пытаюсь реализовать задачу , чтобы мы вводили время через inputboх чтобы затем со временем производить действия , не могу реализовать как добиться того чтобы время которое мы вводили автоматически форматировалось в верном формате (чч:мм:cc)
 
Напишите хотя бы как вы вводите время и как должно быть в итоге
 
время вводим в любом формате , использовать только цифры , разделителем является любой знак, но никак не буква , грубо говоря банально inputbox  в котором вводим цифры , с каким то разделителем , этот текст потом нужно форматировать в правильный формат, пример вводи 1/00/00 должно получиться после форматирования 01.00.00
 
Код
=времизвлеч(A1;":")
ну или чего там нужно - . , \
Код
Function времизвлеч(t$, r$)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d+"
        времизвлеч = Format(.Execute(t)(0), "00") & r & Format(.Execute(t)(1), "00") & r & Format(.Execute(t)(2), "00")
    End With
End Function
да, буквами тоже можете разделять - не обидется  :D
Изменено: buchlotnik - 18.09.2019 18:35:07
Соблюдение правил форума не освобождает от модераторского произвола
 
В русской раскладке обычно разделителем часов, минут и секунд является двоеточие.
Используйте одну (или несколько вложенных функций):
Код
=--ПОДСТАВИТЬ(текст;"/";":")
для преобразования введенного текста в числовой формат времени MS Excel
 
buchlotnik, разобрался , спасибо1
Изменено: kookooboos - 19.09.2019 13:47:12
Страницы: 1
Наверх