Skip to main content

AccessTr.neT


Çalışılan Gün Fazlasını Mesai Olarak Ekleme

Çalışılan Gün Fazlasını Mesai Olarak Ekleme

#7
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
Cevapla
#8
(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
.rar PUANTAJ.rar (Dosya Boyutu: 336,94 KB | İndirme Sayısı: 2)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#9
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.
Cevapla
#10
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
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla
#11
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?
Cevapla
#12
(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.
.rar puantaj.rar (Dosya Boyutu: 7,79 KB | İndirme Sayısı: 1)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Son Düzenleme: 27/05/2021, 01:15, Düzenleyen: karaayhan.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da