+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çalışılan Gün Fazlasını Mesai Olarak Ekleme (/konu-calisilan-gun-fazlasini-mesai-olarak-ekleme.html)
RE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - berduş - 27/05/2021
SaatTpl fonksiyonunun kodunu aşağıdaki gibi düzenleyip dener misiniz?
Private Sub SaatTpl(Optional id As Long)
StrAlan = ""
For x = 1 To 31
StrDgr = Format(x, "00")
Gunsay = Gunsay & "+ IIf(IsNumeric(E" & StrDgr & ") , 1,0)"
StrDgr = "IIf(IsNumeric(E" & StrDgr & ") , E" & StrDgr & ",0)"
StrAlan = StrAlan & "+" & StrDgr
Next x
Gunsay = "(0 " & Gunsay & ")"
SqlUpdt = "Update [EKDERS] " & _
"SET [ETOPSAAT] =" & StrAlan
If id > 0 Then SqlUpdt = SqlUpdt & " where ID=" & id
CurrentDb.Execute SqlUpdt
SqlUpdt = "Update [EKDERS] " & _
"SET [MESAI]=IIf([ETOPSAAT]-10*" & Gunsay & ">0,([ETOPSAAT]-(10*" & Gunsay & ")),0)"
If id > 0 Then SqlUpdt = SqlUpdt & " where ID=" & id
CurrentDb.Execute SqlUpdt
End SubRE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - karaayhan - 27/05/2021
(27/05/2021, 00:27)berduş yazdı: SaatTpl fonksiyonunun kodunu aşağıdaki gibi düzenleyip dener misiniz?
Private Sub SaatTpl(Optional id As Long)
StrAlan = ""
For x = 1 To 31
StrDgr = Format(x, "00")
Gunsay = Gunsay & "+ IIf(IsNumeric(E" & StrDgr & ") , 1,0)"
StrDgr = "IIf(IsNumeric(E" & StrDgr & ") , E" & StrDgr & ",0)"
StrAlan = StrAlan & "+" & StrDgr
Next x
Gunsay = "(0 " & Gunsay & ")"
SqlUpdt = "Update [EKDERS] " & _
"SET [ETOPSAAT] =" & StrAlan
If id > 0 Then SqlUpdt = SqlUpdt & " where ID=" & id
CurrentDb.Execute SqlUpdt
SqlUpdt = "Update [EKDERS] " & _
"SET [MESAI]=IIf([ETOPSAAT]-10*" & Gunsay & ">0,([ETOPSAAT]-(10*" & Gunsay & ")),0)"
If id > 0 Then SqlUpdt = SqlUpdt & " where ID=" & id
CurrentDb.Execute SqlUpdt
End Sub
26 saati 3 gün 16 saat olarak görüyor bu seferde
RE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - berduş - 27/05/2021
ben toplam gün hesabına girmedim sadece fazla mesai saatlerini hesaplattım, siz fazla mesai saatini kontrol edin eğer hesaplama doğruysa gün sayısını da kullandığım formül ile düzenleyebiliriz.
RE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - karaayhan - 27/05/2021
mesaideki mantık doğru ama gün toplamı yanlış olunca mesai de yanlış oluyor sanki
ama gün düzeltilirse mesai toplamı sanki düzgün gibi
RE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - berduş - 27/05/2021
tablodaki verileri excele alıp manuel kontrol edin doğru ise sizin gün hesabınızı silip kendi kodumu eklerim ama ben tam anlamadım gün hesabını
bir excel dosyasına 5-10 kayıt ekleyip top gün kaç olmalı, mesai top ne olmalı, çalışma saati toplamı ne olmalı örnekle anlatırsanız çözmeye çalışırım ama bu haliyle gün sayısı hesabını oturtamadım kafamda
dediğim gibi excele 5-10 satır veri girip sonucun ne olması gerektiğini belirtin ki şablon oluştura bileyim
ayrıca gün sayısını hesaplayan fonksiyon hangisi onu da belirtirmisiniz?
RE: Çalışılan Gün Fazlasını Mesai Olarak Ekleme - karaayhan - 27/05/2021
(27/05/2021, 00:53)berduş yazdı: tablodaki verileri excele alıp manuel kontrol edin doğru ise sizin gün hesabınızı silip kendi kodumu eklerim ama ben tam anlamadım gün hesabını
bir excel dosyasına 5-10 kayıt ekleyip top gün kaç olmalı, mesai top ne olmalı, çalışma saati toplamı ne olmalı örnekle anlatırsanız çözmeye çalışırım ama bu haliyle gün sayısı hesabını oturtamadım kafamda
dediğim gibi excele 5-10 satır veri girip sonucun ne olması gerektiğini belirtin ki şablon oluştura bileyim
ayrıca gün sayısını hesaplayan fonksiyon hangisi onu da belirtirmisiniz?
tmm sayın berduş Excel olarak ekleyim.
(27/05/2021, 01:14)karaayhan yazdı:(27/05/2021, 00:53)berduş yazdı: tablodaki verileri excele alıp manuel kontrol edin doğru ise sizin gün hesabınızı silip kendi kodumu eklerim ama ben tam anlamadım gün hesabını
bir excel dosyasına 5-10 kayıt ekleyip top gün kaç olmalı, mesai top ne olmalı, çalışma saati toplamı ne olmalı örnekle anlatırsanız çözmeye çalışırım ama bu haliyle gün sayısı hesabını oturtamadım kafamda
dediğim gibi excele 5-10 satır veri girip sonucun ne olması gerektiğini belirtin ki şablon oluştura bileyim
ayrıca gün sayısını hesaplayan fonksiyon hangisi onu da belirtirmisiniz?
tmm sayın berduş Excel olarak ekleyim.