İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

Not : Hesaplama için kısa bir modül yazılmıştır. Çözüm için oraya bakınız...

Sayin Power

örneginiz icin tesekkürler.
bu sorguda 22:00 baslayip gece 00:00 sonra saatleri hesaplamiyor bunu nasil cözebilirim.

saygilar

Bilemiyorum.. Bilgisi olan arkadaşlar cevaplayacaktır...

Bu cevap size 12 gün önce yazılmış...

Kodu aşağıdaki şekilde değiştirerek dener misiniz...

Function Hesapla(BT As String, ST As String) As Double

Dim BT1, BT2, ST1, ST2 As Integer

Dim F1, F2, F3 As Integer

BT1 = CInt(Left(BT, 2))

BT2 = CInt(Mid(BT, 4, 2))

ST1 = CInt(Left(ST, 2))

ST2 = CInt(Mid(ST, 4, 2))

B1 = BT1 * 60 + BT2

S1 = ST1 * 60 + ST2

F1 = S1 - B1



F2 = Int(F1 / 60)

F3 = F1 - F2 * 60

If F1 <= 0 Then

Hesapla = (F2 + F3 / 60) + 24

Else

Hesapla = F2 + F3 / 60

End If

End Function

sayin mk70

tesekkürler..
istedigim gibi oldu.

sayin mk70

bunu kodla degil de , sorguda da yapilabilir mi ? (kodsuz) formüllü