احتساب الفرق بين وقتين

قم بإنشاء 3 TextBox و 1 Button

ثم ضع الكود التالي في زر الأمر

Dim Date1 as Date
Dim Date2 as Date
Dim hh as integer
Dim mm as integer

Date1 = Convert.ToDateTime(TextBox1.Text)
Date2 = Convert.ToDateTime(TextBox2.Text)

hh = Date2.Subtract(Date1).hours
mm = Date2.Subtract(Date1).minutes

TextBox3.text = hh.ToString.PadLeft(2,cChar("0")) & ":" & mm.ToString.PadLeft(2,cChar("0"))

إنتهى