Как сравнить даты? - VB
Формулировка задачи:
в таблицу в колонку начало отпуска и конец отпуска вводятся даты.....необходимо определить к какому кварталу относятся эти даты, и,соответственно, из нужного квартала - вычесть число календарных дней отпуска(т.е. разницу между началом и концом отпуска)
p.s. данные поквартально все заполнены по умолчанию =)
Решение задачи: «Как сравнить даты?»
textual
Листинг программы
Sub Macro1() Dim i, s As Integer i = 5: k = 5 While Trim(Cells(i, 2).Value) <> "" If Cells(i, 20).Value <> "Отмечено" Then If IsDate(Cells(i, 18).Value) Then If Month(Cells(i, 18)) <= Month(Cells(3, 12)) And Month(Cells(i, 18)) >= Month((Cells(3, 10))) Then s = Round(((DateDiff("d", Cells(i, 18).Value, Cells(i, 19).Value))), 0) Cells(i, 13).Value = s Cells(i, 20).Value = "Отмечено" End If End If End If i = i + 1 Wend
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д