dingen optellen

[slimmen001]

Ik zal mijn probleem even uitleggen:
Ik wil dat er 2 inputboxen komen: 1 voor start en 1 voor stop
Maar de default bij de stop inputbox moet 17 uur later zijn dan de ingevoerde start.
Ik heb gezien dat 17 uur hetzelfde is al 0.708333 in cijfers.
Dit is wat ik al heb, maar het werkt niet:

Dim start As String
Dim einde As String
Dim voorbeeld_einde As String
Dim eindevb As Double

start = InputBox("Aankomstdatum begin", "Aankomstdatum begin", "01/01/2012 7:00")
eindevb = CDbl(start) + 0.708333
voorbeeld_einde = CStr(eindevb)
einde = InputBox("Aankomstdatum einde", "Aankomstdatum einde", voorbeeld_einde)

Iemand die kan helpen?

 

[snb]

Kijk eens in de VBA bibliotheek bij dateadd.