[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: 56)



  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
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 293 29-05-2023, 09:31
Son Mesaj: halily
  [SORGU] Sql Kodu Ahmet51 10 583 11-04-2023, 19:01
Son Mesaj: dsezgin
  ürün Kodu ankaram 2 112 09-12-2022, 20:46
Son Mesaj: ankaram
  [SORGU] Sözdizimi Hata Kodu Alıyorum golf2000 12 444 29-08-2022, 20:00
Son Mesaj: halily
  [FORM] Sipariş Kodu Oluşturma alikagan 4 222 02-06-2022, 21:59
Son Mesaj: alikagan
  [VBA] Veri Girişi Vba Kodu hedefkaya 2 181 26-03-2022, 22:19
Son Mesaj: hedefkaya
  [TABLO] Hata Kodu 3822.eni Satir Kaydedilene Kadar Değer Bu Satıra Kaydedilemez rerdem1903 21 743 01-02-2022, 03:02
Son Mesaj: rerdem1903
  şifre Olarak O Anki Sistem Saatini Kullanma. invitation 2 222 20-01-2022, 12:54
Son Mesaj: onur_can

Foruma Git:


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