[SORGU] Vardiya Saatini Algılama Kodu

footprinting · 24-03-2020, 16:20

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.

halily · 24-03-2020, 18:57

Visual Basic
X=cstr(tarih)
Y=cint(mid(X,instr (x," ")+1, instr(X,":")-1))
If y>=16 then sonuc="16/00 var...."  else sonuc= "8/16 vardiyasi"
If y<=8 then sonuc="00:00/08:00 vardiyasi"

şeklinde dener misiniz?

footprinting · 24-03-2020, 20:32

SELECT CRM.olusturma_tarihi
FROM CRM;

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

halily · 24-03-2020, 21:31

ç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
function sonuc (Trh as date) as string 
X=cstr(Trh )
Y=cint(mid(X,instr (x," ")+1, instr(X,":")-1))
If y>=16 then sonuc="16/00 var...."  else sonuc= "8/16 vardiyasi"
If y<=8 then sonuc="00:00/08:00 vardiyasi"
end function

sonrada sorgu kodunu aşağıdakiyle değiştirin

SQL
SELECT CRM.olusturma_tarihi, sonuc (CRM.olusturma_tarihi) AS Vardiya
FROM CRM;

footprinting · **Kayıt Tarihi:** 09.01.2020

hocam ekteki örnekte tablom var sorguda bulunan tarihin karşısına yazdırmak istiyorm

halily · 25-03-2020, 13:34

kusura bakmayın fonksiyonu hatalı tasarlamışım

Visual Basic
Function sonuc(Trh As Date) As String
X = CStr(Trh)
BasX = InStr(X, " ") + 1
y = TimeValue(CStr(Mid(X, BasX)))
If y >= TimeValue("16:00:00") Then sonuc = "16/00 var...." Else sonuc = "8/16 vardiyasi"
If y <= TimeValue("08:00:00") Then sonuc = "00:00/08:00 vardiyasi"
End Function

bu kodu modüle ekleyip sorgudan çağıracaksınız
sorgu kodu

SQL
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
FROM deneme1;

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Vardiya çizelgesi	biLecikLi	1	301	27-11-2024, 00:33 Son Mesaj: dsezgin
	[RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma	Ahmet51	10	952	01-08-2024, 10:28 Son Mesaj: dsezgin
	[VBA] Yıl Ay Sayı Sıralama Kodu Hakkında	Ahmet51	6	792	29-05-2023, 09:31 Son Mesaj: halily
	[SORGU] Sql Kodu	Ahmet51	10	1.172	11-04-2023, 19:01 Son Mesaj: dsezgin
	ürün Kodu	ankaram	2	315	09-12-2022, 20:46 Son Mesaj: ankaram
	[SORGU] Sözdizimi Hata Kodu Alıyorum	golf2000	12	949	29-08-2022, 20:00 Son Mesaj: halily
	[FORM] Sipariş Kodu Oluşturma	alikagan	4	544	02-06-2022, 21:59 Son Mesaj: alikagan
	[VBA] Veri Girişi Vba Kodu	hedefkaya	2	430	26-03-2022, 22:19 Son Mesaj: hedefkaya

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL