VB Zeit

killer-Trekkie · 13.11.2003

Wie kann ich unter VB 6 eine Uhr von 0 bis ? im Vormat hh:mm:ss laufen lassen (kenn mich mit Timern aus). Und was ich noch wissen wollte: Wie kann ich zwei Zeiten addieren/subtrahieren? (z.b. 1:15:15 + 0:15:15)

Vielen Dank für eure Unterstützung

Alexander16 · 13.11.2003

Hi

Zur 1. Frage :
Du brauchst für dieses Beispiel einen Timer, eine TextBox und folgenden Code :

Code:

Option Explicit
Dim Zeit As Date

Private Sub Form_Load()
    Timer1.Interval = 1000-> Eine Sekunde
End Sub

Private Sub Timer1_Timer()
    Zeit = Zeit + 00:00:01
    Text1.Text = Zeit
End Sub

Zur 2. Frage :
Für dieses Beispiel brauchst du eine TextBox und folgenden Code :

Code:

Option Explicit

Private Sub Form_Load()
    Text1.Text = CDate(00:01:00) + CDate(00:30:00)
End Sub

Zur 3. Frage :
Hier für habe ich noch keine Lösung

Mfg Alexander

Fizbin · 14.11.2003

Dann noch die Antwort auf die dritte Frage

:

Am einfachsten gibst Du in VB die Zeiten in einer Route ein.
Bei Deinem Beispiel wäre es also #1:15:15# + #12:15:15#

Alexander16 · 14.11.2003

Hi

Fizbin schrieb:
Dann noch die Antwort auf die dritte Frage :

Am einfachsten gibst Du in VB die Zeiten in einer Route ein.
Bei Deinem Beispiel wäre es also #1:15:15# + #12:15:15#

Das hat meine 2. Antwort beantwortet.
Aber dein Code ist besser für die 2. Antwort ;D

Er will noch wissen wie man die subtrahieren kann.
--------------------------------------------------------------------------
So hab ne Lösung

Du brauchst eine TextBox und folgenden Code :

Code:

Option Explicit

Private Function Minus(Zeit1 As Date, Zeit2 As Date) As Date
    Minus = DateAdd(h, -DatePart(h, Zeit2, vbUseSystemDayOfWeek, vbUseSystem), Zeit1)
    Minus = DateAdd(n, -DatePart(n, Zeit2, vbUseSystemDayOfWeek, vbUseSystem), Minus)
    Minus = DateAdd(s, -DatePart(s, Zeit2, vbUseSystemDayOfWeek, vbUseSystem), Minus)
End Function

Private Sub Form_Load()
    Text1.Text = Minus(10:00:00, 01:10:01)
End Sub

Mfg Alexander

Fizbin · 15.11.2003

Sorry, hatte ich nicht bemerkt das es mit der Subtraktion nicht richtig klappt. Subtraktion ist aber auch nicht viel komplizierter:

Code:

x=cDate(#11:00:00# - #01:00:00#)

Desweiteren könnte Dir die [bold]DateDiff[/bold]- Funktion weiterhelfen

Alexander16 · 15.11.2003

Hi

Ich habe oben schon eine Lösung, aber deine ist wieder kürzer

Mfg Alexander

Fizbin · 15.11.2003

@Alex
Du weisst ja: 1 Problem + 10 Programmierer = 10 Lösungen

killer-Trekkie · 15.11.2003

Vielen Dank für eure Hilfe. Hat mich weitergebracht.

mfg

killer-Trekkie

Alexander16 · 15.11.2003

Fizbin schrieb:
@Alex
Du weisst ja: 1 Problem + 10 Programmierer = 10 Lösungen

Hehe, jo da hast recht ;-)

Mfg Alexander

VB Zeit

killer-Trekkie

Alexander16

Fizbin

Alexander16

Fizbin

Alexander16

Fizbin

killer-Trekkie

Alexander16

VB Zeit

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums