Saat Farkı

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Loading
    Loading's avatar
    Kayıt Tarihi: 26/Ekim/2003
    Erkek
    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.


    Run Time Error
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek
    anladiim kadari ile sen saat farki alabiliosun ama islem yaptiin saat gece 12 den sora obur gune kaydiinda proramin sapitio, sorunun bu mu?

    Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Loading
    Loading's avatar
    Kayıt Tarihi: 26/Ekim/2003
    Erkek
    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.



    Run Time Error
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Loading
    Loading's avatar
    Kayıt Tarihi: 26/Ekim/2003
    Erkek
    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

    Run Time Error
Toplam Hit: 3824 Toplam Mesaj: 15