salve a tutti devo eseguire la differenza tra orario 1 e orario 2 esempio


text1.text="11.30"


text2.text"12.45"

label1.caption= alla differenza tra gli orari in formato ore e minuti
per il momento ho scritto questo codice ma nn funziona al 100 per cento potete aiutarmi




a = Mid(Text5.Text, 1, 1)
b = Mid(Text5.Text, 2, 1)
c = Mid(Text5.Text, 4, 1)
d = Mid(Text5.Text, 5, 1)
ore = a & b
minuti = c & d
risultato = Val((ore * 60) + minuti)

a1 = Mid(Text6.Text, 1, 1)
b1 = Mid(Text6.Text, 2, 1)
c1 = Mid(Text6.Text, 4, 1)
d1 = Mid(Text6.Text, 5, 1)
ore1 = a1 & b1
minuti1 = c1 & d1
risultato1 = Val((ore1 * 60) + minuti1)


risultatoprovvisorio = Val(risultato1 - risultato)
risultatofinale = Val(risultatoprovvisorio / 60)
Label4.Caption = risultatofinale