Cálculo de horas

Boa tarde

Tenho um formulário com dois campos de data/hora inicio e data/hora fim que ao inserir os dados faz a diferença de tempo usado no serviço efetuado.
O problema é que se tenho o campo data/hora inicio sem dados dá erro.
Outra situação que acontece é também assim que insiro os kms finais de uma determinada viatura, esses mesmo quilómetros aparecem no registo novo da mesma viatura e até aqui tudo bem.
O problema é que se altero os kms finais de um registo anterior por novos kms ele não atualiza os quilómetros nos registos seguintes.
Será que é possível ao alterar os kms atualizar todos ors registos seguintes de forma a atualizar os kms reais e fazer o cálculo dos kms percorridos.
Tenho um módulo que vi num exemplo, não sei se estou a fazer bem, no entanto, se alguém puder ajudar agradecia muito.

Anexo base dados.

Obrigado e abraço a todos.

alguém poderá ajudar?

Para o caso das horas

coloque no começo do código


On Error Resume Next '*************

Dim TotalHours As Long, TotalMinutes As Long, TotalSeconds As Long
Dim Hours As Long, Minutes As Long, Seconds As Long

Days = Int(CSng(Interval * 24))
TotalHours = Int(CSng(Interval * 24))
TotalMinutes = Int(CSng(Interval * 1440))
TotalSeconds = Int(CSng(Interval * 86400))
Hours = TotalHours Mod 24
Minutes = TotalMinutes Mod 60
Seconds = TotalSeconds Mod 60

GetElapsedTime = Days & " Horas " & Minutes & _
" Minutos "
End Function



para os km fica para depois

Scandinavo muito obrigado pela sua ajuda.
Fiz como disse e deu certo.
Muito bem.
Agora só falta mesmo a situação de atualizar os kms nos registos seguintes se por qualquer razão alterar os kms finais de um registo anterior.
Obrigado.