Function GetFullData(Data_, BDIR_, Form_, PlanFact_) As Double
Dim Res As Double
Dim CurDate_ As Date
Dim TableName As String
    
    Res =  0 
    CurDate_ = Worksheets("Заставка").Cells( 1 ,  3 )
    On Error Resume Next
    
    If (PlanFact_ = "F") Or (PlanFact_ = "f") Then
        TableName = "Ф" + Trim(Str(Form_)) + "Факт"
    ElseIf (PlanFact_ = "P") Or (PlanFact_ = "p") Then
        'делим на до тек даты и после. После - из плана, до - факт
        If Data_ < CurDate_ Then
            'подставляем из таблицы факта
            TableName = "Ф" + Trim(Str(Form_)) + "Факт"
        Else
            'берем из плана
            TableName = "Ф" + Trim(Str(Form_)) + "План"
        End If
    Else
        GetFullData =  0 
        Exit Function
    End If
    'Если расходы, то Выплата-Поступление
    'Если доходы, то Поступление-Выплата
    Res = Worksheets("Служеб").PivotTables(TableName).GetData("'Выплаты_Упр' " + Format(Data_, "dd.mm.yyyy") + " " + Str(BDIR_) - _
                            Worksheets("Служеб").PivotTables(TableName).GetData("'Поступления_Упр' " + Format(Data_, "dd.mm.yyyy") + " " + Str(BDIR_)))
    
    GetFullData = Res
End Function