Tid+Tid

Systemtiden regnes i dage hvor en dag er 1.00

Altså idag + 1.00 = i morgen.

Da der er 60 minutter på en time og 24 timer på en dag er der 24*60 minutter pr. dag i alt. D.v.s. 1440

Så 1.00 dag = 1440 minutter

50 minutter vil derfor være 50 / 1440 = 0,034722222222

Så læg 0.034722222222 til datoen:

date = date + 0.034722222222

Jeg ved ikke om det kan bruges men hvis denne her lægger 50 min. til systemtiden

Private Sub Form_Load()
Dim tid As Variant

tid = time + #12:50:00 AM#

Label1.Caption = tid
End Sub

<< kiss97 >>
Det vil sige at når jeg kigger på uret i min SysTray så står der i virkeligheden (08:40) 8 dage og 40 ??? (ikke timer, det ville jo være over en dag)

<< rylle >>
Dim strTid As String

strTid = Time + 1 (vil lægge en time til)

Denne her er ikke så "køn" men det virker

tid = Time + 0.07585