VB6 saat toplama

[ismailayan]

merhaba arkadaşlar

bir projemde personeli çalışma saatini toplatmam gerekiyor. ama 24 saatten sonra sonrun çıkıyor.

çalışma kodları aşağıda sundum.
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10) = Format(Saat_Topla, "hh:mm") olan kısmı dd:hh:mm şeklinde değiştiriyorum ama direk dd 30 olarak gösteriyor.


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

Dim GunCikar
'GunCikar = Format(Saat_Topla, "dd") - 30
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10) = Format(Saat_Topla, "hh:mm")

 

[Zeki Gürsoy]

Merhaba,

Bence tarihleri saatleriyle birlikte sayıya çevirin...

Sub dk_farki()
Dim a As Date, b As Date

Const DAKIKA As Integer = 1440 '1 gün

a = CDate("03.07.2010 23:35:50")
b = CDate("05.07.2010 21:18:35")

MsgBox (CDbl(b) - CDbl(a)) * DAKIKA
End Sub

 

[ismailayan]

peki arkadaşlar

bunu vb6 kodlamasına göre yaparmısınız.


bana toplam saati vermesi gerekiyor.

50 ise 50
60 ise 60 saat şeklinde 60:00

bu şekilde nasıl ayarlayabilirim

 

[halit3]

belki bu kod size yardımcı olabilr.

burada 1 adet timer nesnesi
1 adet text.box nesnesi kullanılmıştır.

Dim saat, dakika, saniye
Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If dakika = 60 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0
End If
End If
End If
If dakika = "" Then
dakika = "00"
End If
If saat = "" Then
saat = "00"
End If
Text1.Text = Format(saat, "00") & ":" & Format(dakika, "00") & ":" & Format(saniye, "00")
End Sub

ayrıca aşağıdaki linkdeki kodlara bir bakınız belki yardımcı olabilir.

http://www.excel.web.tr/showthread.php?t=78713