Zaman ile Para Format

1 2
14/02/2012, 00:07

POWER

İ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...
25/02/2012, 11:58

Yakut

Sayin Power

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

saygilar
25/02/2012, 12:04

POWER

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

Bu cevap size 12 gün önce yazılmış...
25/02/2012, 12:37

mk70

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
25/02/2012, 15:02

Yakut

sayin mk70

tesekkürler..
istedigim gibi oldu.
25/02/2012, 18:12

Yakut

sayin mk70

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