Memperoleh Jumlah Hari Dalam Selisih Tanggal Tertentu

Private Function GetDaysInRange(d As Date, f As Date) As Integer()
    Dim dt As Date, x(7) As Integer
    For dt = d To f
        x(Weekday(dt)) = x(Weekday(dt)) + 1
    Next
    GetDaysInRange = x
End Function

Private Sub Command1_Click()
    Dim d() As Integer
    d = GetDaysInRange(#2/1/2012#, #2/28/2012#)
    MsgBox d(1) + d(2)
End Sub