Tijd berekenen

[HuysmansS]

Hoi,

Hoe kan je de tijd berekenen in visual basic van een bepaalde actie.

vb:
actie= genereer 1000 hoofdletters en plaats die in een textbox

Hier zou ik dan de tijd van willen weten dus hoe lang dit duurt.

Bedankt

 

[evertVB]

Hier een voorbeeldje, waarbij je twee buttons op je form hebt.
- Klik op button1
- Klik op even later button2 --> het tijdsverschil wordt berekend en getoond

Imports System.IO
Imports System.Text

Public Class Form1
    Dim Button1Time As DateTime

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1Time = Now
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Button2Time As DateTime
        Dim Duur As TimeSpan
        Dim dt As DateTime

        Button2Time = Now
        Duur = Button2Time.Subtract(Button1Time)

        dt = DateTime.MinValue.Add(Duur)

        MsgBox("Het tijdverschil is : " & dt.ToString("HH:mm:ss"))
    End Sub
End Class