Rekenen met tijden

[timmethy]

Beste Helpmijforum,

Knop 1: tijd toevoegen aan tekstveld1 (naam: txt1)
Knop 2: tijd toevoegen aan tekstveld2 (naam: txt2)

Format(Now(), "dd-mmm hh:nn")

Nu wil ik bij de knop toevoegen het verschil in tijd uitrekenen.

Bijv: txt1 = 01-apr 04:00
txt2 = 01-apr 10:00

txt2-txt1 = 06:00

Hoe krijg ik dit voor elkaar?, graag duidelijk uitleg over de werking en invoering van de code, want ik heb daar nog niet veel verstand van.

mvg,

Tim

 

[Pizara]

vb versie?

 

[timmethy]

vb versie?

Microsoft Visual Basic 6.3

Neem aan dat je dat bedoelde

 

[Pizara]

Dacht het al te zien aan je vraagstelling , maar 6.3 is hetzelfde als VBA (VisualBasic voor Applications). Je zit daarom in de verkeerde sectie van helpmij te posten. Voortaan graag hier

Maar je zoekt naar de TimeSpan functie.

        Dim Date1 As Date = "01-04-2009 04:00:00"
        Dim Date2 As Date = "01-04-2009 10:00:00"
        Dim Uitkomst As TimeSpan = Date2 - Date1

        MsgBox(Format(Uitkomst.Hours, "00") & ":" & Format(Uitkomst.Minutes, "00"))
        MsgBox(Uitkomst.toString())

Of

Dim Uitkomst as TimeSpan = Date2.Substract(Date1)

Dat is hetzelfde

 

[timmethy]

Dacht het al te zien aan je vraagstelling , maar 6.3 is hetzelfde als VBA (VisualBasic voor Applications). Je zit daarom in de verkeerde sectie van helpmij te posten. Voortaan graag hier

Maar je zoekt naar de TimeSpan functie.

        Dim Date1 As Date = "01-04-2009 04:00:00"
        Dim Date2 As Date = "01-04-2009 10:00:00"
        Dim Uitkomst As TimeSpan = Date2 - Date1

        MsgBox(Format(Uitkomst.Hours, "00") & ":" & Format(Uitkomst.Minutes, "00"))
        MsgBox(Uitkomst.toString())

Of

Dim Uitkomst as TimeSpan = Date2.Substract(Date1)

Dat is hetzelfde

Ja, snap er nog niet veel van
Kan je het omschrijven met de volgende veldnamen:
Datum start: txtstart1
Datum eind: txteind1
Knop toevoegen: Knoptoevoegen1

Na het drukken om toevoegen moet gekeken worden of txteind1 - txtstart1 niet groter is dan 04:00

If txteind1 - txtstart1 > 04:00 Then

Me.txtstart1.setfocus
Exit Sub
End If


Dus als het tijdsverschil groter is dan 4 uur dan moet hij terug gaan naar het formulier.

maar ik heb alleen de code nodig hoe het verschil uitreken en vergelijk met die 4 uur

Zou de code voor mij het volgende moeten zijn?

Dim txtstart1 as date
Dim txteind1 as date
Dim uitkomst as Timesnap

En dan? hoe krijg ik het voor elkaar om dat verschil uit te rekenen en te controleren

Ik zal als ik de oplossing heb dit allemaal op de juiste pagina op de forum zetten

 

[Pizara]

Graag posten zoals eerder aangegeven in sectie VBA

 

[KwarK]

Heb de vraag even verplaatst (bedankt voor de melding Pizara); gaat u rustig verder

 

[timmethy]

Sorry voor het verkeerd plaatsen van mijn vraag,

Nu hij goed staat had ik graag van iemand de oplossing

Ik ben niet goed in excel vba dus graag even uitleg over datums van elkaar afhalen
Het antwoord dat hier boven vermeld staat heb ik of verkeerd verwerkt of het werkt niet.
Dim data1 as date,....


Kan ik niet beter beide datums omzetten naar minuten? , want wil er namelijk nog een berekening van maken nadat ik de 2 datums van elkaar heb afgehaald.

Graag antwoord op:
Hoe krijg ik het antwoord op de volgende som:

1 apr 2009 19:00 - 1 apr 2009 15:00

antwoord moet zijn: 4:00 of in minuten 240 minuten

Wie oh wie?

Met vriendelijke groet,

Tim