(02-05-20, 10:21 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

استخدم الكود التالي :

كود :

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        ' وقت الدخول
        'Dim firstDate As New DateTime(year,month,day,hour,minute,second)
        Dim firstDate As New DateTime(2020, 11, 1, 10, 25, 6)

        ' وقت الخروج
        'Dim secondDate As New DateTime(year,month,day,hour,minute,second)
        Dim secondDate As New DateTime(2020, 10, 1, 13, 25, 6)

        ' فارق التوقيت
        'Dim difDate As TimeSpan = وقت الدخول - وقت الخروج
        Dim difDate As TimeSpan = secondDate - firstDate
        Label1.Text = difDate.Duration.ToString

    End Sub