A.S.C Filtre, Grafik ve Raporlama Eklentisi

[SORGU] Vardiya Saatini Algılama Kodu
#1
merhabalar

access e aktardığım veri içerisinde

1-  24.03.2020 03:10:03
2-  24.03.2020 08:20:10
3-  24.03.2020 18:23:33

tarih saat verisi var bu veriye göre

1- 00:00 / 08:00 VARDİYASI
2- 08:00 / 16:00 VARDİYASI
3- 16:00 / 00:00 VARDİYASI  yazdırmak istiyorum.

saat aralıklarınına vardiyayı yazdırmak istiorum başka hücreye bu konuda yardımcı olbilirmisiniz.



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. X=cstr(tarih)
  2. Y=cint(mid(X,instr (x," ")+1, instr(X,":")-1))
  3. If y>=16 then sonuc="16/00 var...." else sonuc= "8/16 vardiyasi"
  4. If y<=8 then sonuc="00:00/08:00 vardiyasi"


şeklinde dener misiniz?



  Alıntı
Bu mesajı beğenenler:
#3
SELECT CRM.olusturma_tarihi
FROM CRM;


hocam kodu sql e nasıl yazmalıyım
yeni olduğum için pek beceremedim



  Alıntı
Bu mesajı beğenenler:
#4
çalışmanız olmadığı için bir şey demesi zor sorgu kodunu nerden alıyor? formdaki bir metin değerinden mi yoksa sorgu oluşturucuyla mı oluşturulmuş yada güncelleme sorgusu mu yoksa sadece verileri gösterme amaçlı mı?
ama bir modül oluşturup oraya aşağıdaki fonksiyonu ekleyin
Visual Basic
  1. function sonuc (Trh as date) as string
  2. X=cstr(Trh )
  3. Y=cint(mid(X,instr (x," ")+1, instr(X,":")-1))
  4. If y>=16 then sonuc="16/00 var...." else sonuc= "8/16 vardiyasi"
  5. If y<=8 then sonuc="00:00/08:00 vardiyasi"
  6. end function


sonrada sorgu kodunu aşağıdakiyle değiştirin
SQL
  1. SELECT CRM.olusturma_tarihi, sonuc (CRM.olusturma_tarihi) AS Vardiya
  2. FROM CRM;





  Alıntı
Bu mesajı beğenenler:
#5
hocam ekteki örnekte tablom var sorguda bulunan tarihin karşısına yazdırmak istiyorm


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 25,26 KB / İndirilme: 1)



  Alıntı
Bu mesajı beğenenler:
#6
kusura bakmayın fonksiyonu hatalı tasarlamışım
Visual Basic
  1. Function sonuc(Trh As Date) As String
  2. X = CStr(Trh)
  3. BasX = InStr(X, " ") + 1
  4. y = TimeValue(CStr(Mid(X, BasX)))
  5. If y >= TimeValue("16:00:00") Then sonuc = "16/00 var...." Else sonuc = "8/16 vardiyasi"
  6. If y <= TimeValue("08:00:00") Then sonuc = "00:00/08:00 vardiyasi"
  7. End Function


bu kodu modüle ekleyip sorgudan çağıracaksınız
sorgu kodu
SQL
  1. SELECT deneme1.ıd, deneme1.olusma_tarihi, sonuc([olusma_tarihi]) AS Vardiya, deneme1.bolge, Round(DateDiff("n",[deneme1].[olusma_tarihi],[deneme1].[ustlenme_tarihi])/60,2) AS ustlenme
  2. FROM deneme1;





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Kayıt Kopyalama Buton Kodu Ahmet51 8 130 26-02-2020, 15:57
Son Mesaj: Ahmet51
  Alan Boş Olduğu Zaman Hata Veren Vba Kodu Satir 7 101 13-02-2020, 16:58
Son Mesaj: Satir
  [SORGU] Uzun Olan Süreleri Kısaltma Kodu footprinting 6 137 04-02-2020, 16:42
Son Mesaj: footprinting
  [VBA] Sistem Saatinden Vardiya Tanımlama kayaae 7 197 26-12-2019, 21:24
Son Mesaj: halily
  [FORM] Kontrol Kodu Hatası h2001 1 132 12-11-2019, 22:00
Son Mesaj: h2001
  Vba bekletme kodu h2001 3 280 18-04-2019, 22:59
Son Mesaj: onur_can
  access saat kodu berk34 1 360 10-03-2019, 10:22
Son Mesaj: celalll
  [RAPOR] Raporlama Yönetimi Formu Oluşturma/Özel Rapor Kodu-Otomatik Bildirim ve Mail Gönderme ebenli 4 543 26-02-2019, 09:14
Son Mesaj: ebenli

Foruma Git:


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