Посчитать сколько суббот в 2014 году - VBA

Формулировка задачи:

Помогите составить в Excel программу,которая смогла бы посчитать сколько суббот 2014 года, начиная с 4.01.2014, нужно взять, чтобы сумма дат этих суббот превысила 360.Я написала,но знаю,что я где то очень хорошо так ошиблась..Буду рада хотя бы подсказкам.

Public Sub fh()
Dim A As Date, D As Integer, B As Date
A = #4/1/2014#
If D = Weekday(A) Then
B = DateAdd(DateInterval.DayOfYear, 1, D)
Do
B = B + 1
Loop While B > 360
End If
MsgBox B

Решение задачи: «Посчитать сколько суббот в 2014 году»

textual
                            Листинг программы 
                        

                            Public Sub fh()
Dim A As Date, D As Integer, B As Integer
A = "04.01.2014"
Do
  D = D + Day(A)
  A = A + 7
  B = B + 1
Loop While D <= 360
MsgBox B
End Sub
                        

Оцени полезность:

14 голосов , оценка 4.071 из 5

Похожие ответы