Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme

13/01/2018, 18:27

yenginoglu

Sayın hocalarım,
ekli seruz hocamın yapmış olduğu örnekte gün ve saat farkını buluyor benim yapmak istediğim saat formatında olan saat ve dakikayı sayı formatında saniyeye çevirmek istiyorum.

Saygılarımla,
14/01/2018, 00:41

direnist

Merhaba;
saatim2 güncelleştirme sonrası (AfterUpdate) olay yordamındaki kodları aşağıdakiler ile değiştirip dener misiniz?
Module de yazılı olup sorguda kullanılan fonksiyonu çözemedim. Bende zaten sonuç olarak gelen saat değeri üzerinden saati 3600 dakikayı da 60 ile çarptırıp Metin37 ye toplamını aldırdım. 
Umarım doğrudur. İyi çalışmalar.
Dim s1, d1
Me.Refresh
Me.topsurem = Dlookup ("[topsuresi]", "sureyaz", "[Kimlik]=" & Me.Kimlikim)
s1 = Left(Me.topsurem, 2) * 3600
d1 = Mid(Me.topsurem, InStr(1, Me.topsurem, ":") + 1, 2) * 60
Me.Metin37 = s1 + d1
14/01/2018, 13:09

yenginoglu

(14/01/2018, 00:41)direnist yazdı: Merhaba;
saatim2 güncelleştirme sonrası (AfterUpdate) olay yordamındaki kodları aşağıdakiler ile değiştirip dener misiniz?
Module de yazılı olup sorguda kullanılan fonksiyonu çözemedim. Bende zaten sonuç olarak gelen saat değeri üzerinden saati 3600 dakikayı da 60 ile çarptırıp Metin37 ye toplamını aldırdım. 
Umarım doğrudur. İyi çalışmalar.
Dim s1, d1
Me.Refresh
Me.topsurem = Dlookup ("[topsuresi]", "sureyaz", "[Kimlik]=" & Me.Kimlikim)
s1 = Left(Me.topsurem, 2) * 3600
d1 = Mid(Me.topsurem, InStr(1, Me.topsurem, ":") + 1, 2) * 60
Me.Metin37 = s1 + d1

Sayın direnist

İlginiz için çok teşekkür ederim. Sorunum çözülmüştür.

Saygılarımla.