Zeit addieren

[Becks187]

Hallo ich würde gerne zum Timer 15 Minuten addieren.
Meint:

Die Zeit wird angezeigt, ich drücke einen Button, dann soll die neue Zeit +15min sein.

 

[Alex F.]

Dateadd("n",15,now)

Grüsse bb

 

[Becks187]

mhm also um 9.30Uhr hat er mir dann 3947 daraus gemacht

So sieht das ganze bei mir aus:

dim a as double

Private Sub ticket_Click()
a = DateAdd("n", 15, Now)
ewurf.Text = a
end sub

Mir ist gereade aufgefallen das er immer 3947 daraus macht. :suspekt:

 

[Alex F.]

du solltest a nicht als double sondern als date variable deklarieren. Intern ist die Zeit zwar eine Double aber für die Formatierung ist die 3947 etwas gewöhnungsbedürftig.

Grüsse bb

 

[Becks187]

dann steht da bei mir 23.04.2009 :suspekt:

 

[Becks187]

dann steht da bei mir 23.04.2009 :suspekt:

 

[Alex F.]

noch mal langsam

Dim a As Date
a = DateAdd("n", 15, Now)
MsgBox (Format(a, "HH:NN:SS"))

Grüsse bb

 

[Becks187]

Super, aber wie bekomme ich das jetzt in eine Textbox?

text1.text= a (funktioniert so nicht)
text1.text=a ("HH:NN:SS") (funktioniert auch nicht.)

Danke für deine Mühen

 

[port29]

text1.text = Format(a, "HH:NN:SS")

 

[Becks187]

boing

Super DANKE!