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

(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

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.

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

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?

(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.