Tijden berekenen

[Schippertje]

Goeden avond Heren.

Even een vraag.
Kan iemand mij helpen met een berekening van tijden in textboxen.
Als voorbeeld 2 Textboxen met daarin, de ingevulde tijden met daar tussen in een : als teken ( 12:00 ) en de uitkomst in label1.
Nou heb ik al diverse optie geprobeerd maar niks werkt.
Nou denk ik zelf dat het komt door die : , want zonder rekend die wel.
Maar zou het graag wel willen houden met die :

Iemand een Ideeeeeeee?

 

[mrHenkie]

Een voorbeeldje van de code die je nu al hebt zou kunnen helpen.

 

[Schipperjte]

3 textboxen en een button op je form .

Dan deze code , je kan hem wel aan passen aan je eigen wensen.

Werkt alleen als de tijden op de zelfde dag vallen

Dim TimeA As Date
Dim TimeB As Date
Dim hh As Integer
Dim mm As Integer
Dim ss As Integer

If Not Date.TryParse(TextBox1.Text, TimeA) Then
  ' Not a date
End If
If Not Date.TryParse(TextBox2.Text, TimeB) Then
  ' Not a date
End If
' Subtract (= <strong class="highlight">time</strong> <strong class="highlight">between</strong>)
hh = TimeB.Subtract(TimeA).Hours
mm = TimeB.Subtract(TimeA).Minutes
ss = TimeB.Subtract(TimeA).Seconds
TextBox3.Text = hh.ToString.PadLeft(<strong class="highlight">2</strong>, CChar("0")) & ":" & mm.ToString.PadLeft(<strong class="highlight">2</strong>, CChar("0")) & ":" & ss.ToString.PadLeft(<strong class="highlight">2</strong>, CChar("0"))

 

[old Hippy]

Omtijden te berekenen

 Try
            Dim Tijd1, Tijd2
            Tijd1 = TextBox7.Text
            Tijd2 = TextBox1.Text
            TextBox3.Text = DateDiff(DateInterval.Hour, Tijd1, Tijd2) & " Uren"
        Catch ex As Exception
            MsgBox("Geef een tijd op", MsgBoxStyle.Critical)
        End Try

 

[Schippertje]

oke beide berekeningen die werken.
alleen van old hippy geeft die alleen maar de uren aan en ik wil ook de minuten.
De berekening van schipprjte daar heb ik de seconden er tussen uit gehaald, alleen het nadeel van die berekening is dat ik aardig wat textboxen heb en dus heel veel moet schrijven.

 

[Schipperjte]

Ja klopt , hij geeft alleen hele uren bij de code van Old Hippy
Nu alleen nog de tijd berekenen als het meer als 1 dag duurt.

Of is dit niet nodig ?

Misschien dat iemand nog een handige tip heeft.

[/URL] Uploaded with ImageShack.us[/IMG]

 

[Schippertje]

Eigenlijk is dat niet nodig, want dat zal niet voor komen.
En mocht wel een keer voorkomen dan kan het in een nieuwe textbox gezet worden.
Maar als iemand weet hoe dat moet is het altijd welkom toch!

 

[JoZ1]

Ik heb de code van oldHippy even iets aangepast zodat minuten ook werken.

[CPP]Dim Tijd1, Tijd2
Tijd1 = TextBox1.Text
Tijd2 = TextBox2.Text

Dim Uren As Integer = DateDiff(DateInterval.Hour, Tijd1, Tijd2)
Dim Minuten As Integer = DateDiff(DateInterval.Minute, Tijd1, Tijd2) - Uren * 60
TextBox3.Text = Uren.ToString & " Uren en " & Minuten.ToString & " Minuten"[/CPP]

 

[Schippertje]

Heren bedankt voor alle hulp:thumb: