visual basic de tarih ve saat problemi

[ismailayan]

Merhaba arkadaşlar herkese kolay gelsin


benim problemim
2'şer tane tarih ve saat bölümüm var...
amacım bunları birbirinden çıkartarak
aradaki zamanı gün ve saat olarak vermesi

02/03/2006
10:25:32


06/03:2006
09:30:20


bu kısımda arada geçen

gün:saat:dakika:saniye

şeklinde yapmak istiyorum

bu konuda bana yardımcı olurmusunuz??

 

[Merhum İdris SERDAR]

Örnek dosya ekte.

 

[ismailayan]

iyi güzel bir çalışma olmuş ama arkadaşım

exelde yapmak problem değilde


ben visual basic üzerinde demiştim..

arkadaşlar
yardımınıza ihtiyacım var...

 

[Haluk]

Sub Test()
    Dim Date1 As Date, Time1 As Date
    Dim Date2 As Date, Time2 As Date
    Dim Fark As Date
    
    Date1 = "02.03.2006"
    Time1 = "10:25:32"
    Date2 = "06.03.2006"
    Time2 = "09:30:20"
    
    Fark = CDate(Date2 & " " & Time2) - CDate(Date1 & " " & Time1)
    MsgBox "Gun farki: " & Format(Fark, "dd") & vbCrLf & _
           "Saat farki: " & Format(Fark, "hh:mm:ss")
    MsgBox "Gun:Saat:Dakika:Saniye = " & Format(Fark, "dd:hh:mm:ss")
End Sub

 

[ismailayan]

Merhaba Haluk bey

gün 30 olarak gösteriyor..


2 gün arasında fark yoksa 0 olarak göstermesi gerekmiyormuuu..


rica etsem yazmış olduğun kodu tekrar incelermisin...

 

[Haluk]

Sub Test2()
    Dim Date1 As Date, Time1 As Date
    Dim Date2 As Date, Time2 As Date
   
    Date1 = "02/03/2006"
    Time1 = "10:25:32"
    Date2 = "02/03/2006"
    Time2 = "11:25:34"
   
    X1 = CDate(Date1 & " " & Time2)
    X2 = CDate(Date2 & " " & Time1)
    
    DeltaGun = Format(DateDiff("d", X1, X2), "00")
    DeltaSaat = Format(CDate(X2) - CDate(X1), "hh:mm:ss")
    MsgBox "Gun Farki = " & DeltaGun & vbCrLf & _
           "Saat Farki = " & DeltaSaat
    MsgBox "Gun:Saat:Dakika:Saniye = " & DeltaGun & ":" & DeltaSaat
End Sub