Attribute VB_Name = "Module1"

Public plotnum As Integer ''曲線總數(shù)
Public isaxischoice As Integer ''坐標(biāo)可選性
'Public dd As Integer
Public xchoice, ychoice As String ''選擇橫縱座標(biāo)
Public flag As String ''判斷評(píng)價(jià)類型


'
'
''<<<鄒威 design the New FrmPrv,FrmListoutput,Frmfengmian,FrmQita>>>
' <<< Others are 王清河 designed>>>
 Public Const DongTai = 10#
'Public zwdatabasename(20, 2) As String   '用于login時(shí)從數(shù)據(jù)文件讀入庫名文件！
Public FileNameTemp As String            'export to xls,txt,htm's name 'left(*,4)'
Public zwijk As Integer                  'zwdatabasename數(shù)組已經(jīng)付值了多少個(gè)數(shù)
Public nIndex As Integer                 '記錄登錄數(shù)據(jù)庫是第幾個(gè)索引值
Public ZwStringGrid As String            'Printpreview the data
Public Zwfilename As String
Public ZwTxtName As String
Public CellOrPic As Boolean              ' the symbol of printpreview data or picture
Public Zwfilepathdat As String
Public ZwfileQiTaPathdat As String
Public zwflag As Boolean                 '定義無EXCEL的標(biāo)志
Public VarWeiHuFeiBiLi As Double        '油田維護(hù)費(fèi)比例
Public VarChuLiangFeiBiLi As Double     '儲(chǔ)量使用費(fèi)比例
Public VarCaiWuFeiBiLi As Double       '增量財(cái)務(wù)費(fèi)比例
Public EditingList As String            '正在編輯的數(shù)據(jù)庫表
Public OpeningDatabase As String        '正在使用的數(shù)據(jù)庫
Public workpath As String               '工作路徑
Public workname As String               '工作路徑
Public workname1(1 To 2, 10) As String              '工作路徑

Public VarZwMInGan(1 To 8, 1 To 20) As Single '敏感圖四組數(shù)據(jù)
Public VarShengCheng(1 To 20, 1 To 8) As Double    '生成數(shù)據(jù)數(shù)組
Public TotalJianSheLiXi As Double      '建設(shè)期貸款利息總額
Public VarGuanliFei(1 To 20) As Double      '管理費(fèi)數(shù)組

Public VarXiaoShouFei(1 To 20) As Double    '銷售費(fèi)數(shù)組
Public VarXiaoShouShouRu(1 To 20) As Double    '銷售收入數(shù)組
Public VarCaiWuFei(1 To 20) As Double       '財(cái)務(wù)費(fèi)數(shù)組
Public VarZheJiuFei(1 To 20) As Double      '折舊費(fèi)數(shù)組
Public VarChuLiangFei(1 To 20) As Double    '儲(chǔ)量使用費(fèi)數(shù)組
Public VarGongZiFei(1 To 20) As Double      '職工工資數(shù)組
Public VarFuLiFei(1 To 20) As Double        '福利數(shù)組
Public VarCostList1Total(1 To 20) As Double '成本表一合計(jì)(橫向)

'******************* 以上為成本表1的輸出項(xiàng)  ***********************************

Public VarXiuliFei(1 To 20) As Double       '修理費(fèi)數(shù)組
Public VarCaiLiaoFei(1 To 20) As Double     '材料費(fèi)數(shù)組
Public VarDongliFei(1 To 20) As Double      '動(dòng)力費(fèi)數(shù)組
Public VarRanLiaoFei(1 To 20) As Double     '燃料費(fèi)數(shù)組
Public VarQingShuiFei(1 To 20) As Double    '清水費(fèi)數(shù)組
Public VarWuShuiFei(1 To 20) As Double      '污水處理費(fèi)數(shù)組
Public VarJieShengFei(1 To 20) As Double    '節(jié)省污水處理費(fèi)數(shù)組
Public VarYouQiFei(1 To 20) As Double       '油氣處理費(fèi)數(shù)組
Public VarWeiHuFei(1 To 20) As Double       '油田維護(hù)費(fèi)數(shù)組
Public VarCostList2Total(1 To 20) As Double '成本表二合計(jì)(橫向)

'**********************  以上為成本表2的輸出項(xiàng)  *********************************

'修理費(fèi)'材料費(fèi)'動(dòng)力費(fèi)'燃料費(fèi)'清水費(fèi)'污水處理費(fèi)'節(jié)省污水處理費(fèi)'油氣處理費(fèi)'油田維護(hù)費(fèi)



Public VarZiYuanShui(1 To 20) As Double      '資源稅數(shù)組
Public VarZengZhiShui(1 To 20) As Double     '增值稅數(shù)組
Public VarChengJianShui(1 To 20) As Double   '城建稅數(shù)組
Public VarZongShui(1 To 20) As Double        '總稅數(shù)組
Public VarJiaoYuShui(1 To 20) As Double      '教育稅數(shù)組

'**********************  以上為總稅額表的輸出項(xiàng)  *********************************

Public VarHuaXueJiFei(1 To 20, 1 To 5) As Double '化學(xué)劑費(fèi)數(shù)組
Public VarYaoJiFei(1 To 20) As Double       '藥劑費(fèi)數(shù)組
Public VarZongChengBenFei(1 To 20) As Double           '總成本數(shù)組
Public VarZongJingYingChengBenFei(1 To 20) As Double   '總經(jīng)營(yíng)成本數(shù)組
Public VarJingYingChengBenFei(1 To 20) As Double       '經(jīng)營(yíng)成本數(shù)組

'**********************  以上為成本表三（藥劑費(fèi)）的輸出項(xiàng)  *********************************

Public VarGongChengFei(1 To 20) As Double        '三采工程費(fèi)
Public VarYuBeiFei(1 To 20) As Double            '預(yù)備費(fèi)用
Public VarGuDingZiChanTouZi(1 To 20) As Double   '固定資產(chǎn)投資
'Public VarLiuDongZiJin(1 To 3) As Double        '流動(dòng)資金
Public VarJianSheLiXi(1 To 20) As Double         '建設(shè)期貸款利息
Public VarTouZiZongE(1 To 20) As Double          '投資總額
Public VarJieDaiZongE(1 To 20) As Double         '借貸總額

'**********************  以上為投資表的輸出項(xiàng)  *********************************
                                                '總銷售收入 見成本表一
                                                '銷售總稅額 見總稅額表
Public VarChengBenFeiYong(1 To 20) As Double    '年成本費(fèi)用
Public VarLiRunZongE(1 To 20) As Double         '年利潤(rùn)總額
Public VarSuoDeShui(1 To 20) As Double          '年所得稅
Public VarShuiHouLiRun(1 To 20) As Double       '年稅后利潤(rùn)
Public VarNianDuKuiSun(1 To 20) As Double       '彌補(bǔ)以前年度虧損
Public VarGongJiJin(1 To 20) As Double          '年提取公積公益金

'**********************  以上為損益表的輸出項(xiàng)  *********************************

'VarXiaoShouShouRu(I)                          '總銷售收入 見成本表一
Public VarXianJinLiuRu(1 To 20) As Double      '現(xiàn)金總流入
Public VarLiuDongZiJin(1 To 20) As Double      '流動(dòng)資金
'Public VarZongJingYingChengBenFei(1 To 20) As Double   '總經(jīng)營(yíng)成本數(shù)組
'VarZongShui(I)                                '銷售總稅額 見總稅額表
Public VarXianJinLiuChu(1 To 20) As Double      '現(xiàn)金總流出

'**********************  以上為現(xiàn)金表一的輸出項(xiàng)  *********************************

Public VarShuiQianJing(1 To 20) As Double        '所得稅前凈現(xiàn)金
Public VarShuiQianLeiJiJing(0 To 20) As Double   '所得稅前累計(jì)凈現(xiàn)金
Public VarShuiHouJing(1 To 20) As Double         '所得稅后凈現(xiàn)金
Public VarShuiHouLeiJiJing(0 To 20) As Double    '所得稅后累計(jì)凈現(xiàn)金

Public VarShuiQianTie(1 To 20) As Double         '所得稅前貼現(xiàn)現(xiàn)金
Public VarShuiQianLeiJiTie(0 To 20) As Double    '所得稅前累計(jì)貼現(xiàn)現(xiàn)金
Public VarShuiHouTie(1 To 20) As Double          '所得稅后貼現(xiàn)現(xiàn)金
Public VarShuiHouLeiJiTie(0 To 20) As Double     '所得稅后累計(jì)貼現(xiàn)現(xiàn)金



'**********************  以上為現(xiàn)金表二（現(xiàn)金流入流出表）的輸出項(xiàng)  *********************************


Public VarShuLiang(0 To 32) As Double            '技術(shù)經(jīng)濟(jì)指標(biāo)匯總表的“數(shù)量”


'**********************  以上為技術(shù)經(jīng)濟(jì)指標(biāo)匯總表的輸出項(xiàng)  *********************************





Public VarHuaXueji(1 To 20, 1 To 11) As Double   '化學(xué)劑數(shù)據(jù)數(shù)組
Public VarTouZi(1 To 3) As Double                '投資數(shù)據(jù)數(shù)組
Public VarQiTa(0 To 37) As Double                '其它數(shù)據(jù)數(shù)組
Public VarQiTaFei(1 To 20) As Double             '其它費(fèi)用數(shù)組

Public VarPingJiaQi As Byte     '評(píng)價(jià)期
Public VarHNianXian As Byte      '化學(xué)劑使用年限



Sub Main()
''   Dim fLogin As New frmLogin1
''    fLogin.Show vbModal
''    If Not fLogin.OK Then
''        '登錄失敗，退出應(yīng)用程序
''        End
''    End If
''    Unload fLogin


    Form1.Show
End Sub

Public Sub CostList1Cacul()
Dim ss As Double
Dim i As Integer, h As Integer
On Error Resume Next
For i = 1 To 3
       VarGongChengFei(i) = VarTouZi(i) '三采工程費(fèi)
       VarYuBeiFei(i) = VarGongChengFei(i) * VarQiTa(36) / 100 '預(yù)備費(fèi)用
       VarGuDingZiChanTouZi(i) = VarGongChengFei(i) + VarYuBeiFei(i) '固定資產(chǎn)投資
  Next i
'建設(shè)期利息出始化計(jì)算
VarJianSheLiXi(1) = VarGongChengFei(1) * VarQiTa(0) / 100# * VarQiTa(2) / 100# + VarLiuDongZiJin(1) * VarQiTa(4) / 100# * VarQiTa(6) / 100#
  VarJianSheLiXi(2) = VarGongChengFei(2) * VarQiTa(1) / 100# * VarQiTa(3) / 100# + VarLiuDongZiJin(2) * VarQiTa(5) / 100# * VarQiTa(7) / 100#
  VarJianSheLiXi(3) = 0 'VarGongChengFei(1) * VarQiTa(0) * VarQiTa(2) + VarLiuDongZiJin(1) * VarQiTa(4) * VarQiTa(6)
    TotalJianSheLiXi = VarJianSheLiXi(1) + VarJianSheLiXi(2) + VarJianSheLiXi(3) '建設(shè)期貸款總利息

   For i = 1 To VarPingJiaQi
     '********************************   成本表一  **********************************************
     
     '其它開采費(fèi)
    VarQiTaFei(i) = VarQiTa(27) * VarShengCheng(i, 8)
    
     '管理費(fèi)
    '' VarGuanliFei(i) = VarQiTa(8) * VarQiTa(28) / 100
     VarGuanliFei(i) = (VarShengCheng(i, 2) * (VarShengCheng(i, 3) * (VarQiTa(8) / 100) * (VarQiTa(29) / 100)) + VarQiTa(8) * VarQiTa(28) / 100 * VarShengCheng(i, 2))
     
  
     '' VarGuanliFei(i) = VarQiTa(8) * VarQiTa(28) / 100 * VarShengCheng(i, 2)
   
     '銷售費(fèi)
     VarXiaoShouShouRu(i) = VarShengCheng(i, 2) * VarShengCheng(i, 3) * VarQiTa(8) / 100 '年銷售收入
     VarXiaoShouFei(i) = VarXiaoShouShouRu(i) * VarQiTa(31) / 100
     '財(cái)務(wù)費(fèi)
     'VarCaiWuFei(i) = 0 ' VarShengCheng(I, 1) * VarShengCheng(I, 2) * VarQiTa(8) * VarQiTa(31)
     '折舊費(fèi)
     'VarZheJiuFei(i) = (VarTouZi(1) + VarTouZi(2) + VarTouZi(3) + TotalJianSheLiXi) * (1 - VarQiTa(14) / 100) / VarQiTa(15)
     'TotalJianSheLiXi = VarJianSheLiXi(1) + VarJianSheLiXi(2) + VarJianSheLiXi(3)
     VarZheJiuFei(i) = (VarGuDingZiChanTouZi(1) + VarGuDingZiChanTouZi(2) + VarGuDingZiChanTouZi(3) + TotalJianSheLiXi) * (1 - VarQiTa(14) / 100) / VarQiTa(15)
     
     If i > VarQiTa(15) Then
        VarZheJiuFei(i) = 0
     End If
     '儲(chǔ)量使用費(fèi)
     VarChuLiangFei(i) = VarShengCheng(i, 2) * VarQiTa(25)
     '增加職工工資
     VarGongZiFei(i) = VarShengCheng(i, 8) * VarQiTa(22)
     '福利費(fèi)
     VarFuLiFei(i) = VarGongZiFei(i) * VarQiTa(23) / 100
     '成本表1合計(jì)
     
     '********************************   成本表二  **********************************************
     '修理費(fèi)
     VarXiuliFei(i) = VarZheJiuFei(i) * VarQiTa(21) / 100
     'If i > VarQiTa(15) Then VarXiuliFei(i) = 0
     If i > VarHNianXian Then VarXiuliFei(i) = 0
     '材料費(fèi)
     VarCaiLiaoFei(i) = VarShengCheng(i, 8) * VarQiTa(16)
     '動(dòng)力費(fèi)
     VarDongliFei(i) = VarShengCheng(i, 4) * VarQiTa(17)
     '燃料費(fèi)
     VarRanLiaoFei(i) = VarShengCheng(i, 4) * VarQiTa(18)
     '清水費(fèi)
     VarQingShuiFei(i) = VarShengCheng(i, 5) * VarQiTa(19) '萬元
     '污水處理費(fèi)
     VarWuShuiFei(i) = VarShengCheng(i, 6) * VarQiTa(20)
     '節(jié)省污水處理費(fèi)
     VarJieShengFei(i) = VarShengCheng(i, 7) * VarQiTa(20)
     '油氣處理費(fèi)
     VarYouQiFei(i) = VarShengCheng(i, 2) * VarQiTa(26)
     '油田維護(hù)費(fèi)
     VarWeiHuFei(i) = VarShengCheng(i, 2) * VarQiTa(24)
     
     '********************************   成本表三（藥劑費(fèi)）   **********************************
     '化學(xué)劑費(fèi)用
     For kk = 1 To 5
     
      ' MsgBox VarHuaXueJiFei(i, KK)
       VarHuaXueJiFei(i, kk) = VarHuaXueji(i, 2 * kk) * VarHuaXueji(i, 2 * kk + 1)
     Next kk
     '********************************   總稅額表  **********************************************
     
       '資源稅數(shù)組
     VarZiYuanShui(i) = VarShengCheng(i, 2) * VarQiTa(10) * VarQiTa(8) / 100 '乘上原油商品率
       
       '增值稅數(shù)組
     VarZengZhiShui(i) = VarXiaoShouShouRu(i) * VarQiTa(11) / 100
       
       '城建稅數(shù)組
     VarChengJianShui(i) = VarZengZhiShui(i) * VarQiTa(12) / 100
 
       '教育稅數(shù)組
     VarJiaoYuShui(i) = VarZengZhiShui(i) * VarQiTa(13) / 100
      
      '總稅數(shù)組
     'VarZongShui(i) = VarZiYuanShui(i) + VarZengZhiShui(i) + VarChengJianShui(i) + VarJiaoYuShui(i)
      VarZongShui(i) = VarZiYuanShui(i) + VarChengJianShui(i) + VarJiaoYuShui(i) '不要增值稅
        
  Next i
  'For I = 1 To VarPingJiaQi
  '    MsgBox I & "=" & VarQiTaFei(I)
  'Next I
  VarXiuliFei(1) = 0
  
''''''  For i = 1 To 3
''''''       VarGongChengFei(i) = VarTouZi(i) '三采工程費(fèi)
''''''       VarYuBeiFei(i) = VarGongChengFei(i) * VarQiTa(36) / 100 '預(yù)備費(fèi)用
''''''       VarGuDingZiChanTouZi(i) = VarGongChengFei(i) + VarYuBeiFei(i) '固定資產(chǎn)投資
''''''  Next i
 
   For i = 1 To VarPingJiaQi
       ss = 0
       For k = 1 To 5
         ss = ss + VarHuaXueJiFei(i, k)
       Next k
       VarYaoJiFei(i) = ss
   Next i
   '財(cái)務(wù)費(fèi)
 ' VarCaiWuFei(1) = VarLiuDongZiJin(1) * VarQiTa(4) / 100# * VarQiTa(6) / 100# ''  99.11.8 據(jù)元福卿 改
  'VarCaiWuFei(1) = VarCaiWuFei(1) + VarGuDingZiChanTouZi(1) * VarQiTa(0) / 100# * VarQiTa(2) / 100#
  VarCaiWuFei(1) = VarQiTa(37) '''''* VarCaiWuFeiBiLi / 100  'zw 財(cái)務(wù)費(fèi)=增量財(cái)務(wù)使有費(fèi)*其比例
  'VarCaiWuFei(2) = VarLiuDongZiJin(2) * VarQiTa(5) * VarQiTa(7) / 10000#
  'VarCaiWuFei(2) = VarCaiWuFei(1) + VarGuDingZiChanTouZi(2) * VarQiTa(1) * VarQiTa(3) / 10000#
  'VarCaiWuFei(2) = VarQiTa(37) * VarCaiWuFeiBiLi / 100 'zw 財(cái)務(wù)費(fèi)=增量財(cái)務(wù)使有費(fèi)*其比例
  For i = 2 To VarPingJiaQi
    VarCaiWuFei(i) = 0 'VarCaiWuFei(i) + VarQiTa(37) * VarCaiWuFeiBiLi / 100 'zw 財(cái)務(wù)費(fèi)=增量財(cái)務(wù)使有費(fèi)*其比例
    
  Next i
  '總經(jīng)營(yíng)成本
  
  For i = 1 To VarPingJiaQi
    ss = 0#
    ss = ss + VarCaiLiaoFei(i) + VarDongliFei(i) + VarRanLiaoFei(i) '材料費(fèi)，動(dòng)力費(fèi)，燃料費(fèi)
    ss = ss + VarGuanliFei(i) + VarQingShuiFei(i) + VarWuShuiFei(i) '管理費(fèi),清水費(fèi),污水費(fèi)
    ss = ss + VarXiaoShouFei(i) + VarYouQiFei(i) ' + VarCaiWuFei(I)   '銷售費(fèi)，油氣費(fèi),財(cái)務(wù)費(fèi)  '不含財(cái)務(wù)費(fèi)
    ss = ss + VarGongZiFei(i) + VarFuLiFei(i) + VarXiuliFei(i) + VarQiTaFei(i) '+ VarWeiHuFei(I) _
    '==其它費(fèi)，職工工資，福利費(fèi)，修理費(fèi)，油田維護(hù)費(fèi)
    ss = ss + VarYaoJiFei(i)     '藥劑費(fèi)
''    VarWeiHuFeiBiLi = Val(Txtin(38).Text)
''  VarChuLiangFeiBiLi = Val(Txtin(39).Text)
''  VarCaiWuFeiBiLi = Val(Txtin(40).Text)
  ss = ss + (VarWeiHuFeiBiLi / 100#) * VarQiTa(24)
  ss = ss + (VarChuLiangFeiBiLi / 100#) * VarQiTa(25)
            If i <> 1 Then
            
              VarZongJingYingChengBenFei(i) = ss
              
            Else
            ss = ss + VarCaiWuFeiBiLi * VarQiTa(37) / 100
            VarZongJingYingChengBenFei(i) = ss
            End If
  

  If VarShengCheng(i, 2) > 0 Then
       VarJingYingChengBenFei(i) = ss / VarShengCheng(i, 2)
       
    Else
       VarJingYingChengBenFei(i) = -1
    End If
  Next i
  
  
   ss = 0
  For i = 3 To 5
     ss = ss + VarZongJingYingChengBenFei(i)
  Next i
  'For I = 1 To 3    '  99.11.8 元福卿 改為輸入
  '   VarLiuDongZiJin(I) = ss / 3 / 4 '流動(dòng)資金
  'Next I
        
        '建設(shè)期貸款利息
  VarJianSheLiXi(1) = VarGongChengFei(1) * VarQiTa(0) / 100# * VarQiTa(2) / 100# + VarLiuDongZiJin(1) * VarQiTa(4) / 100# * VarQiTa(6) / 100#
  VarJianSheLiXi(2) = VarGongChengFei(2) * VarQiTa(1) / 100# * VarQiTa(3) / 100# + VarLiuDongZiJin(2) * VarQiTa(5) / 100# * VarQiTa(7) / 100#
  VarJianSheLiXi(3) = 0 'VarGongChengFei(1) * VarQiTa(0) * VarQiTa(2) + VarLiuDongZiJin(1) * VarQiTa(4) * VarQiTa(6)
    TotalJianSheLiXi = VarJianSheLiXi(1) + VarJianSheLiXi(2) + VarJianSheLiXi(3) '建設(shè)期貸款總利息
  
         
        '借貸總額
  VarJieDaiZongE(1) = VarGongChengFei(1) * VarQiTa(0) / 100# + VarLiuDongZiJin(1) * VarQiTa(4) / 100#

  VarJieDaiZongE(2) = VarGongChengFei(2) * VarQiTa(1) / 100# + VarLiuDongZiJin(2) * VarQiTa(5) / 100#
  VarJieDaiZongE(3) = 0 'VarGongChengFei(1) * VarQiTa(0) * VarQiTa(2) + VarLiuDongZiJin(1) * VarQiTa(4) * VarQiTa(6)
  
  
  For i = 1 To 3       '投資總額
      VarTouZiZongE(i) = VarGuDingZiChanTouZi(i) + VarLiuDongZiJin(i) + VarJianSheLiXi(i)
  Next i
  '財(cái)務(wù)費(fèi)
 ' For I = 1 To VarPingJiaQi
 '    VarCaiWuFei(I) = VarLiuDongZiJin(1) * (VarQiTa(4) * VarQiTa(6) + VarQiTa(5) * VarQiTa(7))
 '    VarCaiWuFei(I) = VarCaiWuFei(I) + VarGuDingZiChanTouZi(1) * VarQiTa(0) * VarQiTa(2)
 '    VarCaiWuFei(I) = VarCaiWuFei(I) + VarGuDingZiChanTouZi(2) * VarQiTa(0) * VarQiTa(2)
 '    VarCaiWuFei(I) = VarCaiWuFei(I) + VarGuDingZiChanTouZi(3) * VarQiTa(0) * VarQiTa(2)
 '    VarCaiWuFei(I) = VarCaiWuFei(I) / (1 - VarQiTa(4) * VarQiTa(6) - VarQiTa(5) * VarQiTa(7))
 ' Next I
 ' For I = 1 To 3
 '    VarLiuDongZiJin(I) = VarLiuDongZiJin(I) + VarCaiWuFei(I) '流動(dòng)資金
 ' Next I
 
 
 
 
 
  For IntLoop = 1 To VarPingJiaQi     '成本表一合計(jì)(橫向)
          ss = 0
          ss = ss + VarGuanliFei(IntLoop)
          ss = ss + VarXiaoShouFei(IntLoop)
          ss = ss + VarCaiWuFei(IntLoop)
          ss = ss + VarZheJiuFei(IntLoop)
          ss = ss + VarChuLiangFei(IntLoop)
          ss = ss + VarGongZiFei(IntLoop)
          ss = ss + VarFuLiFei(IntLoop)
          ss = ss + VarQiTaFei(IntLoop) ' 加上了其它開采費(fèi)，但數(shù)據(jù)表中有顯示
          VarCostList1Total(IntLoop) = ss
  Next IntLoop
  For IntLoop = 1 To VarPingJiaQi     '成本表二合計(jì)(橫向)
          ss = 0
          ss = ss + VarXiuliFei(IntLoop)
          ss = ss + VarCaiLiaoFei(IntLoop)
          ss = ss + VarDongliFei(IntLoop)
          ss = ss + VarRanLiaoFei(IntLoop)
          ss = ss + VarQingShuiFei(IntLoop)
          ss = ss + VarWuShuiFei(IntLoop)
          'ss = ss + VarJieShengFei(IntLoop)
          ss = ss + VarYouQiFei(IntLoop)
          ss = ss + VarWeiHuFei(IntLoop)
          VarCostList2Total(IntLoop) = ss
  Next IntLoop
  Dim SuoDeshuiMark As Integer
  SuoDeshuiMark = 2
  VarSuoDeShui(1) = 0#
  VarSuoDeShui(2) = 0#
  
 
  
   '********************************   現(xiàn)金流表一  **********************************************
  For i = 1 To VarPingJiaQi
      'VarXiaoShouShouRu(I) '總銷售收入計(jì)算見成本表一
      'VarZongShui(I)       '總稅額計(jì)算見總稅額表
        '現(xiàn)金總流入
     VarXianJinLiuRu(i) = VarXiaoShouShouRu(i) + VarJieShengFei(i)
        '流動(dòng)資金
        '經(jīng)營(yíng)成本
        '銷售稅金=銷售總稅額
        '現(xiàn)金總流出
     VarXianJinLiuChu(i) = VarGuDingZiChanTouZi(i) + VarLiuDongZiJin(i) + VarZongJingYingChengBenFei(i) + VarZongShui(i)
  Next i
        '現(xiàn)金總流入 若是最后一年，要加上“回收固定資產(chǎn)”和“回收流動(dòng)資金”
        VarXianJinLiuRu(VarHNianXian) = VarXianJinLiuRu(VarHNianXian) + VarQiTa(33)
  VarXianJinLiuRu(VarPingJiaQi) = VarXianJinLiuRu(VarPingJiaQi) + VarQiTa(32)
  
  '********************************   現(xiàn)金流表二  **********************************************
  VarShuiQianLeiJiJing(0) = 0
  VarShuiHouLeiJiJing(0) = 0
  
  VarShuiQianLeiJiTie(0) = 0
  VarShuiHouLeiJiTie(0) = 0
  
  For i = 1 To VarPingJiaQi
      VarShuiQianJing(i) = VarXianJinLiuRu(i) - VarXianJinLiuChu(i)              '所得稅前凈現(xiàn)金流
      VarShuiQianLeiJiJing(i) = VarShuiQianJing(i) + VarShuiQianLeiJiJing(i - 1) '所得稅前累計(jì)凈現(xiàn)金流
      
      VarShuiHouJing(i) = VarShuiQianJing(i) - VarSuoDeShui(i)                   '所得稅后凈現(xiàn)金流
      VarShuiHouLeiJiJing(i) = VarShuiHouJing(i) + VarShuiHouLeiJiJing(i - 1)    '所得稅后累計(jì)凈現(xiàn)金流
      
      VarShuiQianTie(i) = VarShuiQianJing(i) / (Power(1 + VarQiTa(34) / 100, i - 1)) '所得稅前貼現(xiàn)現(xiàn)金流
      VarShuiHouTie(i) = VarShuiHouJing(i) / (Power(1 + VarQiTa(34) / 100, i - 1))   '所得稅后貼現(xiàn)現(xiàn)金流
      
      VarShuiQianLeiJiTie(i) = VarShuiQianTie(i) + VarShuiQianLeiJiTie(i - 1)    '所得稅前累計(jì)貼現(xiàn)現(xiàn)金流
      VarShuiHouLeiJiTie(i) = VarShuiHouTie(i) + VarShuiHouLeiJiTie(i - 1)       '所得稅后累計(jì)貼現(xiàn)現(xiàn)金流
  Next i