| Вопрос: Преобразование формата данных | Добавлено: 13.01.08 13:43 |
Автор вопроса:  NIK
|
| Как программно преобразовать показания электронного секундомера в текстовом поле формата мин:сек (20:15) в формат десятичного числа вида 20,25. Мне это необходимо для програмного вычисления средней скорости движения на маршруте. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 13.01.08 13:56 |
|
Public Function TimeToFloat#(Time$) Dim ss$(): ss = Split(Time, ":" 
TimeToFloat = CDbl(ss(0)) + (CDbl(ss(1)) / 60) End Sub |
||
|
Номер ответа: 2 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #2 | Добавлено: 13.01.08 13:59 |
|
End Function, естественно...
Не проверял - писал навскидку, но должно работать. |
||
|
Номер ответа: 3 Автор ответа: NIK Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 13.01.08 18:30 |
| Это хорошо работает, но только с системным временем. А как мне поступить с уже имеющим временем которое выведено в текстовое поле и у меня минуты и секунды | ||
|
Номер ответа: 4 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 13.01.08 19:22 |
Прекрати тормозить немедля! 
Caption = TimeToFloat("20:15"
или Caption = TimeToFloat(Text1.Text) Всё работает |
||
Страница: 1 |