Блог

Я использую разбросанный лист для запуска нашей топливной стратегии на соревнованиях по автомобилям на выносливость.

У меня есть две кнопки, которые добавляют время к двум ячейкам , скажем, ячейка в ячейке A1 , ячейка вне ячейки B1 . Событие нажатия кнопки для обеих ячеек ActiveCell.Offset(0, 2).Value = Time() адресовано для каждой ячейки , и текст ячейки будет 6:33:23 AM , например.

В 3-й ячейке A3 я использую следующее =TEXT(A2 - A1, "hh:mm:ss") , что дает мне, например, 00:42:17 .

Вот часть 1 моей проблемы из 2 частей.

Я хочу подвести итог в колонке A . Я получаю неправильный ответ. Я понимаю, что это будет просто, но, к сожалению, мне этого просто не хватает.

Часть 2 заключается в том, что затем я хочу использовать количество топлива, добавленного на пит-стопе, со A3 временем, чтобы получить средний расход топлива в час, снова получая дико неправильные ответы.

Вы хотите записать время как число, а не как тест, чтобы вы могли вычесть время, а затем преобразовать его обратно во время.

 Sub Test()

  Dim e As Double
  Dim s As Double
  
  s = (TimeValue(Time)) 'Get Current Time as a number
  Debug.Print s
  e = s   (30 / (86400)) 'Add 30 seconds for testing you'd repeat the formula for s
  Debug.Print Format(e - s, "hh:mm:ss")  'Print out as time.
  

End Sub
 

Пример Вывода:

  0.840752314814815 
00:00:30
 

Вы должны быть в состоянии приспособить это к своим потребностям.