[VBA] Saat Değerini Yuvarlama
#1
Hocalarım Merhaba,
Saat değerini nasıl yuvarlayabilirim? Örneğin : Metin1=12.15-12.29 arasında ise Metin2= 12.30 görünsün.
Teşekkürler



  Alıntı
Bu mesajı beğenenler:
#2
X = saatin dakika kisma 'yuvarlanacak sayi
N = 15 ' yuvarlanma faktoru
Sonuc=round(X/N)*N 'dakika kismi
Şeklinde dener misiniz?

Bu arada metin1 kutusunun turu ne ?



  Alıntı
Bu mesajı beğenenler:
#3
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. dk = Round(dk / 15) * 15
  4. Saat = Saat + dk \ 60
  5. dk = IIf(dk = 60, 0, dk)
  6.  
  7. Me.Metin4 = Format(Saat, "00") & "." & Format(dk, "00")


yada
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. sonuc = Round((dk + 60 * Saat) / 15) * 15
  4. Saat = sonuc \ 60
  5. dk = sonuc Mod 60
  6.  
  7. Me.Metin2 = Format(Saat, "00") & "." & Format(dk, "00")





  Alıntı
Bu mesajı beğenenler: h2001
#4
(14-02-2020, 14:23)halily demiş ki:
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. dk = Round(dk / 15) * 15
  4. Saat = Saat + dk \ 60
  5. dk = IIf(dk = 60, 0, dk)
  6.  
  7. Me.Metin4 = Format(Saat, "00") & "." & Format(dk, "00")


yada
Visual Basic
  1. Saat = Split(Me.Metin0, ".")(0)
  2. dk = Split(Me.Metin0, ".")(1)
  3. sonuc = Round((dk + 60 * Saat) / 15) * 15
  4. Saat = sonuc \ 60
  5. dk = sonuc Mod 60
  6.  
  7. Me.Metin2 = Format(Saat, "00") & "." & Format(dk, "00")


Halil Hocam teşekkür ederim,elinize sağlık.



  Alıntı
Bu mesajı beğenenler:
#5
Iyi calismalar)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] tarih saat toplama ve çıkarma cdemirbas 9 8.804 46 dakika önce
Son Mesaj: ioriret
  [FONKSiYON] Tarih ve saat birleştirip arasındaki farkı bulma benuva 4 1.829 4 saat önce
Son Mesaj: ioriret
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 105 14-03-2024, 11:07
Son Mesaj: yahyamacit
  Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme adnnfrm 5 151 28-11-2023, 01:37
Son Mesaj: dsezgin
  12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk. adnnfrm 2 138 05-10-2023, 03:16
Son Mesaj: adnnfrm
  Ekleme Sorgusunda Ay/yıl Metin Değeri Tarih/saat Alanına Doğru Aktarma Hk. adnnfrm 2 178 14-08-2023, 00:12
Son Mesaj: adnnfrm
  Formda Saat Widget BeyTor 18 606 28-01-2023, 00:02
Son Mesaj: Zeki Gürsoy
access-sql-4 [VBA] Yuvarlama Işlemi alperalper 8 260 18-08-2022, 23:15
Son Mesaj: alperalper

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi