|
Отображение времени
|
|
|
RAN |
Дата: Среда, 13.02.2013, 14:40 |
Сообщение № 1 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
| |
Приветствую.
Вывожу время в прогрессбар
[vba]Код Label1.Caption = Format(Timer - t, "0.00")
Так все крутится. Но хотелось бы в формате типа такого
[vba]Код Label1.Caption = Format(Timer - t, "Nn:Ss,00")
а лезет ерунда. Где затупил?
Приветствую.
Вывожу время в прогрессбар
[vba]Код Label1.Caption = Format(Timer - t, "0.00")
Так все крутится. Но хотелось бы в формате типа такого
[vba]Код Label1.Caption = Format(Timer - t, "Nn:Ss,00")
а лезет ерунда. Где затупил?RAN
Быть или не быть, вот в чем загвоздка!
|
| |
| Ответить
|
|
Serge_007 |
Дата: Среда, 13.02.2013, 14:51 |
Сообщение № 2 |
|
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016 | |
Андрей, у меня так получается:
Вроде всё нормально
А тебе не так надо?
Андрей, у меня так получается:
Вроде всё нормально
А тебе не так надо?Serge_007
ЮMoney:41001419691823 | WMR:126292472390
|
| |
| Ответить
|
|
RAN |
Дата: Среда, 13.02.2013, 15:47 |
Сообщение № 3 |
|
|
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
| |
Так у меня тоже получается.
А надо 01:15, 25 (одна минута, 15 секунд, 25 сотых).
Timer - t = 75,25
Так у меня тоже получается.
А надо 01:15, 25 (одна минута, 15 секунд, 25 сотых).
Timer - t = 75,25RAN
Быть или не быть, вот в чем загвоздка!
|
| |
| Ответить
|
|
Саня |
Дата: Среда, 13.02.2013, 16:32 |
Сообщение № 4 |
|
|
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016 | |
[vba]Код Label1.Caption = Format((Timer - t)/24/60/60, "Nn:Ss,00")
с долями секунд сразу чё-т не пролезло, считывать до этой строки (Timer - t) и два Format'а
[vba]Код Label1.Caption = Format((Timer - t)/24/60/60, "Nn:Ss,00")
с долями секунд сразу чё-т не пролезло, считывать до этой строки (Timer - t) и два Format'аСаня
|
| |
| Ответить
|
|
RAN |
Дата: Среда, 13.02.2013, 16:46 |
Сообщение № 5 |
|
|
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
| |
Саня, как раз перед твоим ответом озарение нашло. Сделал почти так же.
[vba]Код Const sec = 1.15740740740741E-05
FP.labPg4.Width = Int(FP.labPg4.Tag * sngPercent)
FP.labPg4v.Caption = Format(sngPercent, "0%")
FP.Label1.Caption = Format((Timer - t) * sec, "h:Nn:Ss") & "," & Right$(Format((Timer - t), ".00"), 2)
Всем спасибо.
Саня, как раз перед твоим ответом озарение нашло. Сделал почти так же.
[vba]Код Const sec = 1.15740740740741E-05
FP.labPg4.Width = Int(FP.labPg4.Tag * sngPercent)
FP.labPg4v.Caption = Format(sngPercent, "0%")
FP.Label1.Caption = Format((Timer - t) * sec, "h:Nn:Ss") & "," & Right$(Format((Timer - t), ".00"), 2)
Всем спасибо.RAN
Быть или не быть, вот в чем загвоздка!
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
