ник: Ivanko_011
Может кто подскажет что-нибудь симпотичнее?
Public PeriodNach_S As Date
Public PeriodNach_Po As Date
Public Function PERID_DATE(Dt1_begin As Date, Dt1_end As Date, Dt2_begin As Date, Dt2_end As Date)
If Dt2_end < Dt1_begin Then Exit Function
If Dt1_end < Dt2_begin Then Exit Function
If Dt2_begin <= Dt1_begin And Dt1_end <= Dt2_end Then 'отчетный месяц полностью попадает в период обязательств
PeriodNach_S = Dt1_begin
PeriodNach_Po = Dt1_end
ElseIf Dt2_begin <= Dt1_begin And Dt2_end <= Dt1_end Then 'с первого числа отчетного месяца до даты окончания обязательств
PeriodNach_S = Dt1_begin
PeriodNach_Po = Dt2_end
ElseIf Dt1_begin <= Dt2_begin And Dt1_end <= Dt2_end Then 'с даты начала обязательств до окончания отчетного месяца
PeriodNach_S = Dt2_begin
PeriodNach_Po = Dt1_end
ElseIf Dt1_begin <= Dt2_begin And Dt2_end <= Dt1_end Then 'даты начала и окончания обязательств попадают в отчетный период
PeriodNach_S = Dt2_begin
PeriodNach_Po = Dt2_end
End If
End Function