Вопрос : Помощь добавляя минуты к значению времени

Я пытаюсь начать функцию расписания поезда в внешнем виде using VBA. Я имею блок с folowing номером значений стопов, «останавливаю 1», минуты от отклонения, «останавливаю 2», минуты от отклонения etc… Так примером было бы…

vTimes =

The блока, котор (9, «Station1», 0, «Station2», 26, «Station3», 56, «Station4», 73, «Station5», 85) Кодий я борюсь с то которое принимает dDep (время отклонения) и после этого добавляю значения от блока для munites после отклонения 0, 26, 56, 73, 85 и индикации оно правильно как hh: mm.

Thanks для вашего help. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
>Sub TestTrains " class= " id= " codeSnippet799736
class=

Ответ : Помощь добавляя минуты к значению времени

Hi, Charltp5.

Это должно сделать его.  Передайте минуты к ConvertToTime и оно возвратит часы и минуты.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Функция ConvertToTime (intMinutes как интежер) как шнур
    Тусклые intHours как интежер, intRemainder как интежер
    intHours = intMinutes/60
    Если intHours > 0 после этого
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & «: » & StrZero (intRemainder, 2)
    Еще
        ConvertToTime = «: » & StrZero (intMinutes, 2)
    Закончитесь если
Закончите функцию

Функция ConvertToTime (intMinutes как интежер) как шнур
    Тусклые intHours как интежер, intRemainder как интежер
    intHours = intMinutes/60
    Если intHours > 0 после этого
        intRemainder = intMinutes - (intHours * 60)
        ConvertToTime = intHours & «: » & StrZero (intRemainder, 2)
    Еще
        ConvertToTime = «: » & StrZero (intMinutes, 2)
    Закончитесь если
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us