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

rnek : Saat 11:00 bu saati VisualBasicte hangi kodla 00:00 dan nasıl çıkarabilirim? Run Time Error

ha sen sadece 00:00 ı çıkarmak istiyosun. bi sayıdan sıfırın çıkarılamayacagını bilmiyosun heralde? :) Ama şyle bi fikr veriyim sana, 00:00 24:00 a eşittir. sen 00:00 deyerine 24:00 atıycaksın, 00:37 deyerine 24:37 atıycaksın, byle işlem yaptır bide. onLy tTx14c

kardeş konu 00:00 degil. ben 0?:? olan tüm saatlerden bir çıkarma işlemi yapmam lazım. hadi tamam 00:00 = 24:00 yaptım. peki saat olduki 01:00 benim demek istedigim bu. tabiki biliyorum 0 dan rakam cıkarılmayacagını. Bir işletme var oldugunu varsayalım. Burası bir kahvehane ve masalarda oturmakta ücretli. Şimdi 22:00 da başlayan oyuncular sahur vaktinde kalktılar. 22:00 - 03:00 ben aradaki 5 saati çıkarmanın peşindeyim. Run Time Error

unixtime kullanımını kısaca anlatabilirmisin veya bir rnek verebilirmisin buna? Run Time Error

saat 23:00 - 00:00 = 23:00 kalıyor ttx14c. kısaca kod işe yaramadı be üstad.. Run Time Error

Ben anlatamıyorum galiba.. DateDiff("h", "14.11.2003 22:00", "15.11.2003 03:00") Bu fonksiyon 5 sonucunu verir. Umarım anlatabilmişimdir şimdi...

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 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

Unixtime 1 ocak 1970 tarihinden itibaren geçen saniyeleri gsterir de bunu tekrar vb"ye uyarlamak yerine hazır fonksiyonu kullanmak daha kolay olur sanki. www.Planetsourcecode.com adresinde vb blümünde unix time diye arat, birkaç rnek var.

Unixtime çok daha iyi bence. çünkü tarihi falan şu şekilde gsteriyor: 1558966521 bir saniye sonra 1558966522 ben hep bunu kullanıyorum şahsen. Düşünüyorum, o halde varım.

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ı ktektir!

unixtime kullan bence Düşünüyorum, o halde varım.

İsim deyil Kod yazmak lazım. Dim saat1 As Date Dim saat2 As Date Dim toplam As Date saat1 = Trim(Label2. Caption) saat2 = Trim(label1. caption) toplam = saat1 - saat2 Bu fonksiyon işe yarar. adıda tTx14c Fonksiyon :) onLy tTx14c

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

DateDiff fonksiyonunu kullanabilirsin. Datediff("d", tarih1, tarih2) "d" yazdığım yer sonucun türünü gsterir. d - gün, m - dakika, s - saniye, h - saat, M - ay, y - yıl vs. vs.