AccessTr.neT
Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme (/konu-saat-formatinda-yazan-saat-ve-dakikati-saniyeye-cevirme.html)



Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme - yenginoglu - 13/01/2018

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,


Cvp: Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme - direnist - 14/01/2018

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. Img-grin
İ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



Cvp: Saat Formatında Yazan Saat Ve Dakikatı Saniyeye Çevirme - yenginoglu - 14/01/2018

(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. Img-grin
İ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.