saat toplama

[ismailayan]

merhaba arkadaşlar


daha öncede açtım ama gözden kaçtı herhalde

vb6 yaptığım bir projede saatleri toplayacak ama 24 sınırlı değil mesela sonuç 36:45 şeklinde de olabilir.

aşağıda çalışma kodları mevcut ama bir türlü uyarlıyamadım. yardımcı olurmusunuz?


Dim Saat_Hesapla_1
Dim Saat_Hesapla_2

Dim Saat_Fark
Dim Saat_Yaz
Dim Saat_Topla As Date
Dim Saat_Donn
'Saat_Topla = 0
For Saat_Donn = 2 To 8
Saat_Hesapla_1 = Right(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, Saat_Donn), 5)
Saat_Hesapla_2 = Left(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, Saat_Donn), 5)

Saat_Fark = Format(CDate(CDate(Saat_Hesapla_1) - CDate(Saat_Hesapla_2)), "hh:mm")

Saat_Topla = CDate(Saat_Topla) + CDate(Format(Saat_Fark, "hh:mm"))

Next Saat_Donn

MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10) = Format(Saat_Topla, "hh:mm")