Jeg tror, at hjernen har fået et "Overheat Shut Down"

 

Jeg sidder og kæmper med en indtastet dato (format "dd-mm-yyyy  hh:mm") hvor jeg skal have trukket et vist antal timer fra, det kan være 20 timer, 35 timer eller 70 timer, alt efter hvad der indtastes.

Det skulle gerne ende op i et resultat som er x antal timer før første indtastede dato/time.

 

Jeg kan desværre ikke sende et eksempel med, da vores system blokerer for upload af filer.

 

Skal hilse og sige, at der er også varmt midt på Nordsøen.

 

Så kom der en kølig brise herude, så jeg kunne tænke klart igen.

Problemet er løst.

 

Private Sub CBBeregn_Click()
Dim BeDato As Date
Dim BeDato1 As Date
Dim BeTid As Date

BeDato = tbDato.value & " " & tbTime.value
BeDato1 = tbsTime.value
BeTid = BeDato - (Timer / 24)
Me.StartDato = Format(BeTid, "dd-mm-yyyy")
Me.StartTid = Format(BeTid, "hh:mm")

End Sub

 

(Timer / 24) gjorde tricket :-)