Çalıştığı Gün Kadar Maaş Hesaplanması

Çalıştığı Gün Kadar Maaş Hesaplanması


















Option Compare Database
Private Sub Komut6_Click()
Dim fark As Integer
fark = DateDiff("d", tarih, Date, vbSunday) ' İki Tarih Arasındaki Fark
MsgBox (fark * 25)
End Sub

----------------------------------------------------------------------

Cumartesi Pazar Çıkmış Hali

Option Compare Database
Private Sub Komut6_Click()
Dim miktar As Integer
Dim yenitarih As Date
Dim gün As Integer
Dim fark As Integer
Dim sonuç As Integer
Dim alacağıücret As Integer
miktar = 0
yenitarih = tarih
Do Until (yenitarih = Date)
yenitarih = DateAdd("d", 1, yenitarih)
gün = Weekday(yenitarih)
If gün = 1 Or gün = 7 Then miktar = miktar + 1
Loop
fark = DateDiff("d", tarih, Date)
sonuç = fark - miktar + 1
alacağıücret = sonuç * 25
MsgBox alacağıücret
End Sub