Ну типа Text1 = 285 а Text2 = 4.44Может вопрос и тупой но все же помогите!
Секунды в минуты...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 12
• Страница 1 из 1
- Diablo
- Начинающий
-
- Сообщения: 3
- Зарегистрирован: 30.04.2006 (Вс) 4:28
- Откуда: Hell
Секунды в минуты...
Diablo » 30.04.2006 (Вс) 4:52
Мне нужно перевести секунды в минуты, например 285сек. = 4.44 мин.
Ну типа Text1 = 285 а Text2 = 4.44Может вопрос и тупой но все же помогите!
Ну типа Text1 = 285 а Text2 = 4.44Может вопрос и тупой но все же помогите!
Without the comments 
- Sasha_karasov
- Постоялец
-
- Сообщения: 436
- Зарегистрирован: 03.03.2005 (Чт) 19:38
- Откуда: ua.dp
Sasha_karasov » 30.04.2006 (Вс) 5:09
- Код: Выделить всё
text2.text=int(text1.text)/60
Удачи!
С уважением, Алексадр.
С уважением, Алексадр.
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 30.04.2006 (Вс) 5:53
Автор вопроса, что ты думаешь о http://bbs.vbstreets.ru/viewtopic.php?t=25067 ?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- Sasha_karasov
- Постоялец
-
- Сообщения: 436
- Зарегистрирован: 03.03.2005 (Чт) 19:38
- Откуда: ua.dp
Sasha_karasov » 30.04.2006 (Вс) 19:28
- Код: Выделить всё
Dim sec As Integer
sec = CDbl(text1)
Dim min, tmp As Double
tmp = ((sec / 60) - Int(sec / 60)) * 60
min = Int(sec / 60) + CDbl("0," + CStr(tmp))
Text2 = min
Удачи!
С уважением, Алексадр.
С уважением, Алексадр.
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 01.05.2006 (Пн) 5:29
Sasha_karasov, ты правда не понимаешь, насколько ужасен данный код, или специально? 
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- Oxygen
- Белая и пушистая
-
- Сообщения: 1314
- Зарегистрирован: 15.07.2003 (Вт) 7:14
- Откуда: Москва
Oxygen » 01.05.2006 (Пн) 6:07
Этот код тоже не намного лучше предыдущего, но больше в голову утром ничего не приходит.
- Код: Выделить всё
i = Text1.Text
Minuti = i \ 60
ostatok = i - Minuti * 60
Text2.Text = Minuti + ostatok / 100
Процедура клонирования завершена.
Коррекция имплантированного сознания соответствует принятым алгоритмам.
Уникальный идентификатор скопирован в чип временного паспорта.
Активация прав гражданина ожидается в течение 24 часов
Коррекция имплантированного сознания соответствует принятым алгоритмам.
Уникальный идентификатор скопирован в чип временного паспорта.
Активация прав гражданина ожидается в течение 24 часов
- x-rex
- Начинающий
- Сообщения: 7
- Зарегистрирован: 30.04.2006 (Вс) 16:03
x-rex » 01.05.2006 (Пн) 7:12
вот вам ещё вариант:
- Код: Выделить всё
Text2.Text = Text1.Text \ 60 + (Text1.Text Mod 60) / 100
- Sasha_karasov
- Постоялец
-
- Сообщения: 436
- Зарегистрирован: 03.03.2005 (Чт) 19:38
- Откуда: ua.dp
Sasha_karasov » 02.05.2006 (Вт) 2:44
GSerg писал(а):Sasha_karasov, ты правда не понимаешь, насколько ужасен данный код, или специально?
Я как заметил вы только осуждаете, а не помогаете!
Я хоть постарался помочь.
Удачи!
С уважением, Алексадр.
С уважением, Алексадр.
- Nicky
- Постоялец
- Сообщения: 519
- Зарегистрирован: 12.08.2004 (Чт) 12:14
Re: Секунды в минуты...
Nicky » 02.05.2006 (Вт) 7:48
Diablo писал(а):Мне нужно перевести секунды в минуты, например 285сек. = 4.44 мин.
Ну типа Text1 = 285 а Text2 = 4.44Может вопрос и тупой но все же помогите!
ИМХО 285сек = 4мин 45сек
А вообще, проще надо быть...
- Код: Выделить всё
MsgBox Format$(DateAdd("s", 285, 0), "N.Ss")
Сообщений: 12
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 143