dakika hesaplamada gece yarısı sorunu

[aptillah]

Merhabalar ,

ben iki saat arasında dakika hesaplatıyorum fakat gece yarısından sonra düzün hesaplamıyor.birinci saat 22:24 ikinci saat 00:17 olduğunda -1776 gibi bir sonuç çıkıyor kod aşşağıdaki gibi

TextBox1 = Format([I3].Value, "hh:mm")
TextBox2 = Format(Time, "hh:mm")
TextBox7 = [J3]
a = Format(TextBox1.Value, "hh:nn")
b = Format(TextBox2.Value, "hh:nn")
c = 1140
d = (b - a) * 1440
TextBox3 = d
TextBox4 = [K3]

 

[Ömer BARAN]

Merhaba.

Bitiş saati için basit bir If a>b Then b=1+b gibi bir satır ekleyerek çözüme ulaşırsınız.
Yapacağınız işlem çıkartma işleminden önce;
bitiş saati, başlangıç saatinden küçükse bitiş saatine 1 ekleyip, çıkartma ve çarpma işlemini bundan sonra yapmak.
1 sayısı; 1 gün yani 24 saat anlamına geliyor.
.

 

[aptillah]

saolun yardımınız için teşekkürler