Saat Farkı
-
Peki bir örnek ile yapalımmı bunu. text1.text de
00:00 yazsın text2.text dede 03:00 yazsın. örnek ile yaparsak daha kalıcı çözüm olucaktır.
-
anladiim kadari ile sen saat farki alabiliosun ama islem yaptiin saat gece 12 den sora obur gune kaydiinda proramin sapitio, sorunun bu mu?
-
Evet.. Benim hesaplamalarım gayet güzel bir sekilde calisiyor.
Ama gece 12 den sonra diger güne geçtigi için ve günün ilk saatleri 00:00 ile başladıgı için çıkarma işlemini yapamadım. örnek : 23:00 - 03:00 = aradaki fark.
-
sonucu buldum sizlerede aktarıyorum. Textlere yazılması gereken tarihli format olmalı örnek : text1.text = 23.11.2003 22:30 text2.text = 24.11.2003 00:45
Private Sub Command1_Click()
Me.Text3 = CSng((CDate(Me.Text2) - CDate(Me.Text1)) * 24)
Me.Text4 = surebul(Me.Text3)
End Sub
Public Function surebul(sure As Single) As String
Dim saniye As Single
Dim saatdeg As Single
Dim dakikadeg As Single
Dim saniyedeg As Single
saniye = sure * 3600
If saniye >= 60 Then
dakikadeg = saniye \ 60
saniyedeg = saniye Mod 60
If dakikadeg >= 60 Then
saatdeg = dakikadeg \ 60
dakikadeg = dakikadeg Mod 60
If dakikadeg < 10 And saniyedeg < 10 Then
surebul = saatdeg & ":0" & dakikadeg & ":0" & saniyedeg
ElseIf dakikadeg < 10 And saniyedeg > 10 Then
surebul = saatdeg & ":0" & dakikadeg & ":" & saniyedeg
ElseIf dakikadeg > 10 And saniyedeg < 10 Then
surebul = saatdeg & ":" & dakikadeg & ":0" & saniyedeg
ElseIf dakikadeg > 10 And saniyedeg > 10 Then
surebul = saatdeg & ":" & dakikadeg & ":" & saniyedeg
End If
Else
surebul = "00" & ":" & dakikadeg & ":" & saniyedeg
End If
Else
surebul = "00:" & "00:" & saniye
End If
End Function
Toplam Hit: 3824 Toplam Mesaj: 15