visual basicde 2 saat arasındaki farkı çıkarma

[ismailayan]

arkadaşlar herkese kolay gelsin..


benim amacım 2 saat arasındaki farkı göstermek

örnek

dim saat1
dim saat2
dim sonuc
saat1="02:10:00"
saat2="01:00:00"

sonuc="01:10:00"
msgbox sonuc
gibi

bu konuda bana yardımcı olurmusunuz???

kolay gelsin

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:1e2987dff8]Sub hesapla()
saat1 = "02:10:00"
saat2 = "01:00:00"
sonuc = TimeSerial(Hour(saat1), Minute(saat1), Second(saat1)) - TimeSerial(Hour(saat2), Minute(saat2), Second(saat2))
MsgBox Format(sonuc, "hh:mm:ss")
End Sub
[/vb:1:1e2987dff8]

 

[veyselemre]

[vb:1:e453c759d1]saat1 = "02:10:00"
saat2 = "01:00:00"
sonuc = CDate(saat1) - CDate(saat2)
MsgBox Format(sonuc, "hh:mm:ss")[/vb:1:e453c759d1]

 

[Haluk]

Sub Test()
    Dim saat1 As Date
    Dim saat2 As Date
    Dim sonuc As Date
    saat1 = "02:10:00"
    saat2 = "01:00:00"
    sonuc = saat2 - saat1
    MsgBox sonuc
End Sub

 

[ismailayan]

harikasın
senden bir şey daha rica etsem


mesela

saat2 saat1 den 4 saatten fazla ise mesaj verdirmek istiyorum


bu konuu içinde yardımcı olursan olayı bitiricem

 

[ismailayan]

saat1 = "02:25:38"
saat2 = "01:120:20"

olduğu zaman hata veriyor...

runtime 13 hatası

kodda bir eksiklik var sınırım

bu mesajıda dikkate alırsanız sevinirim..

herkese kolay gelsin

 

[Haluk]

120 dakika kısmı yanlış.

Sub Test()
    Dim saat1 As Date
    Dim saat2 As Date
    Dim sonuc As Date
    Dim CheckVal As Date
    saat1 = "01:00:00"
    saat2 = "05:00:59"
    CheckVal = "04:00:00"
    sonuc = saat2 - saat1
    MsgBox "Fark 4 saatten fazla mi ? >>>>  " & (sonuc >= CheckVal)
End Sub

 

[Haluk]

saat1 > saat2 olduğu durumlarda da çalışması için ....

Sub Test()
    Dim saat1 As Date
    Dim saat2 As Date
    Dim sonuc As Date
    Dim CheckVal As Date
    saat1 = "18:00:00"
    saat2 = "05:00:59"
    CheckVal = "04:00:00"
    sonuc = Abs(saat2 - saat1)
    MsgBox "Fark 4 saatten fazla mi ? >>>>  " & (sonuc >= CheckVal)
End Sub