Çalışma Günleri Hesaplama KTF – UDF

Iki tarih arasinda gecen toplam calisma gununu bulmaya yarayan bir VBA calismasi ornegi paylasiyorum, ornek dosyada ornegin rutin olarak, kullanici tanimli fonksiyon  olarak ve yerlesik olan networkdays fonksiyonu kullanilmis ornegini bulabilirsiniz;

KTF
Function Calisma_Gunleri(ByVal StartDate As Long, ByVal EndDate As Long) As Long
‘ Haftasonlari disinda belirlenin iki tarih arasindaki gun sayisini verir
Dim d As Long, dCount As Long
For d = StartDate To EndDate
If Weekday(d, vbMonday) < 6 Then
dCount = dCount + 1
End If
Next d
Calisma_Gunleri = dCount
End Function

Rutin
Sub Is_Gunlerini_Hesapla()
‘Asagidaki formatta iki tarih arasindaki is gunu sayisini verir.
‘Kolon_A Kolon_B Kolon_C
‘Baslangic Tarihi Bitis Tarihi Sonuc(Bos Satir)
Dim MyCell As Range
For Each MyCell In Selection.Cells
If IsDate(MyCell.Value) And IsDate(MyCell.Offset(0, 1).Value) And IsEmpty(MyCell.Offset(0, 2)) Then
MyCell.Offset(0, 2).Value = Calisma_Gunleri(MyCell.Value, MyCell.Offset(0, 1).Value)
End If
Next
End Sub

Calisma_Gunleri

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 7 =