Fonksiyonda hata

[tamer42]

Merhabalar,
Aşağıda verdiğim fonksiyonda #VALUE! sonucunu alıyorum.

nerede hata yapıyor olabilirim?

Function OverTime(basla, bitis As Date)

 st1 = Int(basla) + "08:00"
 st2 = Int(bitis) + "18:00"

OverTime = st1 & " " & st2
     

End Function

İyi Çalışmalar dilerim.

 

[hamitcan]

Böyle deneyin.

Function OverTime(basla, bitis As Date)
 st1 = basla + TimeValue("08:00")
 st2 = bitis + TimeValue("18:00") '
 OverTime = st1 & " " & st2
End Function

 

[tamer42]

Böyle deneyin.

Function OverTime(basla, bitis As Date)
 st1 = basla + TimeValue("08:00")
 st2 = bitis + TimeValue("18:00") '
 OverTime = st1 & " " & st2
End Function

Sn Hamitcan çok teşekkürler,

 

[tamer42]

Sn Hamitcan bir soru daha sormak istiyorum.

11.07.2012 00:00 tarih/saat verisinde

saat 00:00 olması durumlarında; 23:59 olarak düzeltilmesi nasıl sağlanabilir ? (1 dakika geriye alacak)

11.07.2012 00:00 >>>> 10.07.2012 23:59 gibi....

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin. Giriş yapıldığında kendiliğinden düzeltecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a2:b2]) Is Nothing Then Exit Sub
    If TimeValue(Target) = "00:00:00" Then Target = Target - TimeValue("00:01:00")
End Sub