A.S.C Filtre, Grafik ve Raporlama Eklentisi

[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
  [FORM] Saat Görseli M_Kemal_Askeri 2 100 15-01-2020, 00:05
Son Mesaj: M_Kemal_Askeri
  Tamsayıyı üste Yuvarlama demir68 2 89 25-11-2019, 12:27
Son Mesaj: demir68
  [TABLO] Içinde Bulunulan Yıl Değerini Varsayılan Olarak Girme M_Kemal_Askeri 2 114 12-11-2019, 12:38
Son Mesaj: M_Kemal_Askeri
  2 Saat Arası Hesaplama hedefkaya 3 127 06-11-2019, 23:55
Son Mesaj: halily
  [FORM] çift Tıklama Ile Saat Girişi conquerora 2 132 03-11-2019, 11:15
Son Mesaj: conquerora
access-sql-9 [SORGU] personel giriş çıkış saati günlük en küçük ve en büyük saat ve bunların farkı çalışma OSMAN KILIÇ 1 265 22-04-2019, 16:25
Son Mesaj: onur_can
  access saat kodu berk34 1 318 10-03-2019, 10:22
Son Mesaj: celalll
access-sql-9 SAAT TOPLAMA SORUNU slayerrrrr 11 11.079 24-02-2019, 17:02
Son Mesaj: dsezgin

Foruma Git:


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