Yıllık İzin Hakediş Hesaplama

[ragnorak]

Öncelikle tekrardan teşekkür ederim. Şuan bir sorun görünmüyor. Gayet güzel çalışıyor.

 

[ragnorak]

mesai_bas = CDate(RS("BAS_TARIH").Value) + CDate(RS("BAS_SAAT").Value)
mesai_bit = CDate(RS("BIT_TARIH").Value) + CDate(RS("BIT_SAAT").Value)
    
i = 0: b1 = 0: Dakika = 0
Zaman1 = mesai_bas
    Do
    Zaman2 = DateSerial(Year(Zaman1), Month(Zaman1), Day(Zaman1))
    If Weekday(Zaman2, vbMonday) <> WEEKEND1.ListIndex + 1 And Weekday(Zaman2, vbMonday) <> WEEKEND2.ListIndex + 1 Then
        t1 = CDate(Zaman2) + CDate(MEBAS.Value)
        t2 = CDate(Zaman2) + CDate(DateAdd("n", 30, MEBIT)) 'MESAİ SÜRESİ ÇIKIŞ SAATİ +30DK

        If Zaman1 >= t1 And Zaman1 < t2 Then
        Else
        Dakika = Dakika + 10
        End If

        Zaman1 = DateAdd("n", 10, Zaman1)
                
    Else
        Zaman1 = CDate(DateAdd("d", 1, Zaman2)) + CDate(MEBAS.Value)
    End If
    
    Loop Until Zaman1 >= mesai_bit
    
   b1 = Format(Dakika / 60, "#,##0.00")
'   b1 = Int(Dakika / 60) & " Saat  -  " & Dakika - 60 * Int(Dakika / 60) & " Dakika"

Kodu mesai süresini de hesaplamak için üstteki şekilde değiştirdim. Başlangıç tarihi ve Bitiş Tarihi aynı ise sorun yaratmıyor. Ama süre uzayınca sonuç doğru olmuyor.

 

[ÖmerFaruk]

Aynı buton kodlarının sonuna mı ilave etmek istiyorsunuz?

 

[ragnorak]

Hayır Farklı Bir Butondan Çalıştırıyorum.

mesai_bas = CDate(RS("BAS_TARIH").Value) + CDate(RS("BAS_SAAT").Value)
mesai_bit = CDate(RS("BIT_TARIH").Value) + CDate(RS("BIT_SAAT").Value)
    
b1 = 0: Dakika = 0
Zaman1 = mesai_bas
    Do
    Zaman2 = DateSerial(Year(Zaman1), Month(Zaman1), Day(Zaman1))

        t1 = CDate(Zaman2) + CDate(MEBAS.Value)
        t2 = CDate(Zaman2) + CDate(DateAdd("n", 30, MEBIT)) 'MESAİ SÜRESİ ÇIKIŞ SAATİ +30DK

        If Zaman1 >= t1 And Zaman1 < t2 Then
        Else
        Dakika = Dakika + 10
        End If

        Zaman1 = DateAdd("n", 10, Zaman1)
    
    Loop Until Zaman1 >= mesai_bit
    
   b1 = Format(Dakika / 60, "#,##0.00")

End If

bu şekilde hafta sonlarını iptal ettim.

 

[ÖmerFaruk]

Bu haliyle dosyanı paylaşabilir misin?