yardım

iki text yazılı olan saatler arasındaki farkı nasıl öğrenip bunu paraya çevirebilirim

dostum bu yazdigindan hicbirsey anlamadim desem )

hımm anlatayım formda 2 adet text vede 2 adet buton var bu btonlardan biri texteki sati harekte geçirecek diğeride saati durduracak ve işlem bitince bana iki başlatma saati ile bitiş saati arasındaki farkı bulması grekiyor nasıl yapabilirim saol teşekür...

ilk mesajından ben de bir şey anlamamıştım paraya çerirmek olayıyla alakasını hala çözebilmiş değilim

Formuna text1 ve text2, timer1, başat ve bitir adında da iki tane commandbutton koy direk koda şunları yaz:

---------------------------------------
Private Sub başlat_Click()
Timer1.Interval = 10
Timer1.Enabled = True
Text1.Text = Time
End Sub

Private Sub bitir_Click()
Dim saat1, dakika1, saniye1, saat2, dakika2, saniye2, saatfark, dakikafark, saniyefark, toplamsaniyefark As Integer
saat1 = Val(Left(Text1.Text, 2))
saat2 = Val(Left(Text2.Text, 2))
saatfark = saat2 - saat1
dakika1 = Val(Mid(Text1.Text, 4, 2))
dakika2 = Val(Mid(Text2.Text, 4, 2))
dakikafark = dakika2 - dakika1
saniye1 = Val(Right(Text1.Text, 2))
saniye2 = Val(Right(Text2.Text, 2))
saniyefark = saniye2 - saniye1
toplamsaniyefark = saatfark * 60 * 60 + dakikafark * 60 + saniyefark
MsgBox toplamsaniyefark

End Sub

Private Sub Timer1_Timer()
Text2.Text = Time
End Sub
---------------------------------------
Saygılar.

Görkem Paçacı
[email protected]

ilk mesajından ben de bir şey anlamamıştım paraya çerirmek olayıyla alakasını hala çözebilmiş değilim

Formuna text1 ve text2, timer1, başat ve bitir adında da iki tane commandbutton koy direk koda şunları yaz:

---------------------------------------
Private Sub başlat_Click()
Timer1.Interval = 10
Timer1.Enabled = True
Text1.Text = Time
End Sub

Private Sub bitir_Click()
Timer1.Enabled = False
Dim saat1, dakika1, saniye1, saat2, dakika2, saniye2, saatfark, dakikafark, saniyefark, toplamsaniyefark As Integer
saat1 = Val(Left(Text1.Text, 2))
saat2 = Val(Left(Text2.Text, 2))
saatfark = saat2 - saat1
dakika1 = Val(Mid(Text1.Text, 4, 2))
dakika2 = Val(Mid(Text2.Text, 4, 2))
dakikafark = dakika2 - dakika1
saniye1 = Val(Right(Text1.Text, 2))
saniye2 = Val(Right(Text2.Text, 2))
saniyefark = saniye2 - saniye1
toplamsaniyefark = saatfark * 60 * 60 + dakikafark * 60 + saniyefark
MsgBox toplamsaniyefark & " saniye zaman geçti."
End Sub

Private Sub Timer1_Timer()
Text2.Text = Time
End Sub

---------------------------------------
Saygılar.

Görkem Paçacı
[email protected]

çok saoll merakını gidereyim
burda yapmak istediğim saat ile çalışan işçinin kaç saat çalıştığını ve ne kadar para alması gereketiğini öğrenmem gerekiyor

herkese teşekürler beni bilgilendirdiğiniz için teşekkür...

görkem kodlar belirli saaten sonra işe yaramadı mesela 23:45 ile 12:00 arasında hata verdi sebebi ne olabilir...

ben bunu daha önce internet kafe programımdqa yapmıştım. senin bulabileceğin programların sorunu şu olur. mesela başlangıca 23:00 bitişe ise 01:00 yazarsan atadaki farkı iki saat değil 22 saat olarak görür ama ben bunu hallettim bana mail atarsan kodları gönderebilirim.