?? module1.bas

?? 用于三次采油技術(shù)的經(jīng)濟(jì)評(píng)價(jià)
?? BAS
?? 第 1 頁(yè) / 共 3 頁(yè)
字號(hào):
 
 
 
  
  
  For IntLoop = 1 To VarPingJiaQi     '成本表三總成本費(fèi)（分年）
      'ss = 0
      'For KK = 1 To 5
         'MsgBox VarHuaXueJiFei(I, KK)
      '   ss = ss + VarHuaXueJiFei(IntLoop, KK)
      'Next KK
      VarZongChengBenFei(IntLoop) = VarYaoJiFei(IntLoop) + _
           VarCostList1Total(IntLoop) + VarCostList2Total(IntLoop) _
           
 Next IntLoop
 
 '技術(shù)經(jīng)濟(jì)指標(biāo)匯總表   計(jì)算
    For i = 0 To 32     '初始化
      VarShuLiang(i) = 0
    Next i
    
    VarShuLiang(1) = VarPingJiaQi
    
    ss = 0         '總產(chǎn)油量
    For i = 1 To VarPingJiaQi
       ss = ss + VarShengCheng(i, 2)
    Next i
    VarShuLiang(2) = ss
    
    ss = 0         '總銷(xiāo)售收入
    For i = 1 To VarPingJiaQi
       ss = ss + VarXiaoShouShouRu(i)
    Next i
    VarShuLiang(3) = ss
    
    For i = 1 To 3       '總投資
      VarShuLiang(4) = VarShuLiang(4) + VarTouZiZongE(i)          '總投資
      VarShuLiang(5) = VarShuLiang(5) + VarGuDingZiChanTouZi(i)   '固定投資
      VarShuLiang(6) = VarShuLiang(6) + VarLiuDongZiJin(i)        '流動(dòng)資金
      VarShuLiang(7) = VarShuLiang(7) + VarJianSheLiXi(i)         '建設(shè)期利息
      VarShuLiang(8) = VarShuLiang(8) + 0                         '投資方向調(diào)節(jié)稅？？？？？？？？？
    Next i
 
    For i = 1 To VarPingJiaQi
       VarShuLiang(9) = VarShuLiang(9) + VarZongShui(i)              '銷(xiāo)售稅金
       'VarShuLiang(10) = VarShuLiang(10) + VarZongChengBenFei(I)     '總成本費(fèi)
       VarShuLiang(11) = VarShuLiang(11) + VarZongJingYingChengBenFei(i) '經(jīng)營(yíng)成本
       VarShuLiang(12) = VarShuLiang(12) + VarZheJiuFei(i)           '折舊
       VarShuLiang(13) = VarShuLiang(13) + VarCaiWuFei(i)            '利息支出???？？？財(cái)務(wù)費(fèi)
        
       
       VarShuLiang(15) = VarShuLiang(15) + VarXiaoShouShouRu(i) * VarQiTa(29) / 100 + VarXiaoShouFei(i) '可變成本
       'VarShuLiang(15) = VarShuLiang(15) + VarChuLiangFei(i) * VarChuLiangFeiBiLi / 100 + VarWeiHuFei(i) * VarWeiHuFeiBiLi / 100 '可變成本
      VarShuLiang(15) = VarShuLiang(15) + VarChuLiangFei(i) + VarWeiHuFei(i)   '可變成本
      '在上面一行中  可變成本里 已經(jīng) 有儲(chǔ)量使用費(fèi)*比例 和 油田維護(hù)費(fèi)*比例
       VarShuLiang(15) = VarShuLiang(15) + VarDongliFei(i)  '可變成本
       VarShuLiang(15) = VarShuLiang(15) + VarRanLiaoFei(i) + VarYouQiFei(i) '可變成本
       VarShuLiang(15) = VarShuLiang(15) + VarQingShuiFei(i) + VarWuShuiFei(i) + VarYaoJiFei(i) '可變成本
       
       '固定成本=財(cái)務(wù)費(fèi)+工資+福利+修理費(fèi)+材料費(fèi)+增量原油 *原油商品率*管理費(fèi)率+其它費(fèi)用+折舊費(fèi)
       VarShuLiang(16) = VarShuLiang(16) + VarCaiWuFei(i) + VarZheJiuFei(i) + VarGongZiFei(i) '固定成本成本
       VarShuLiang(16) = VarShuLiang(16) + VarFuLiFei(i) + VarXiuliFei(i)  '固定成本成本
       VarShuLiang(16) = VarShuLiang(16) + VarCaiLiaoFei(i) + VarShengCheng(i, 2) * VarQiTa(28) * VarQiTa(8) / 100
       VarShuLiang(16) = VarShuLiang(16) + VarQiTaFei(i)
       
       
       VarShuLiang(17) = VarShuLiang(17) + VarLiRunZongE(i) '利潤(rùn)總額
       
       VarShuLiang(18) = VarShuLiang(18) + VarLiRunZongE(i) + VarZongShui(i) '利稅總額
       
       VarShuLiang(19) = VarShuLiang(19) + VarLiRunZongE(i) + VarSuoDeShui(i) '總所得稅
       
      
    Next i
      VarShuLiang(10) = VarShuLiang(15) + VarShuLiang(16)
      'VarShuLiang(20) = 0   '靜態(tài)指標(biāo)
      'MsgBox VarLiuDongZiJin(1)
       VarShuLiang(14) = VarLiuDongZiJin(1) * (1 - VarQiTa(4) / 100#) + VarLiuDongZiJin(1) * (1 - VarQiTa(5) / 100#) '自有資金
      ' VarShuLiang(14) = 100 '''''''''''''''''''''''''''''''''''''人為設(shè)定
       VarShuLiang(21) = VarShuLiang(17) / VarShuLiang(4) / DongTai * 100 '投資利潤(rùn)率
       VarShuLiang(22) = VarShuLiang(18) / VarShuLiang(4) / DongTai * 100 '投資利稅率
       VarShuLiang(23) = VarShuLiang(17) / VarShuLiang(14) / DongTai * 100 '資本金利潤(rùn)率
       'VarShuLiang(24) = 0   '借款償還期
       
        'VarShuLiang(25) = 0   '所得稅前動(dòng)態(tài)指標(biāo)
        
        VarShuLiang(26) = caculFIRR(VarShuiQianJing(), VarPingJiaQi)  '財(cái)務(wù)內(nèi)部收益率
        VarShuLiang(27) = VarShuiQianLeiJiTie(VarPingJiaQi)   '財(cái)務(wù)凈現(xiàn)值
        VarShuLiang(28) = FQianHuiShouQi   '稅前投資回收期
        
        
        
        'VarShuLiang(29) = 0   '所得稅后動(dòng)態(tài)指標(biāo)
        VarShuLiang(30) = caculFIRR(VarShuiHouJing(), VarPingJiaQi)   '財(cái)務(wù)內(nèi)部收益率
        VarShuLiang(31) = VarShuiHouLeiJiTie(VarPingJiaQi)   '財(cái)務(wù)凈現(xiàn)值
        VarShuLiang(32) = FHouHuiShouQi   '稅前投資回收期
SuoDeshuiMark = 0
       '************************************************************
        For i = 1 To VarPingJiaQi
     
      '********************************   損益表  **********************************************
      
      'VarXiaoShouShouRu(I) '總銷(xiāo)售收入計(jì)算見(jiàn)成本表一
      'VarZongShui(I)       '總稅額計(jì)算見(jiàn)總稅額表
        '成本費(fèi)用
     VarChengBenFeiYong(i) = VarCostList1Total(i) + VarCostList2Total(i) + VarYaoJiFei(i)
        '利潤(rùn)總額
     VarLiRunZongE(i) = VarXiaoShouShouRu(i) - VarZongShui(i) - VarChengBenFeiYong(i)
      '所得稅
    ''zw 6-19  VarLiRunZongE(i) = VarXianJinLiuRu(i) - VarXianJinLiuChu(i)
'Public VarXianJinLiuRu(1 To 20) As Double      '現(xiàn)金總流入
'Public VarXianJinLiuChu(1 To 20) As Double      '現(xiàn)金總流出
If VarLiRunZongE(i) < 0 Then
       SuoDeshuiMark = i + 2
       For h = 1 To SuoDeshuiMark
        VarSuoDeShui(i) = 0#
       Next h
   Else
         VarSuoDeShui(i + 3) = VarLiRunZongE(i + 3) * VarQiTa(35) / 100
      
End If
      
      '稅后利潤(rùn)
     VarShuiHouLiRun(i) = VarLiRunZongE(i) - VarSuoDeShui(i)
      '彌補(bǔ)以前年度虧損
     VarNianDuKuiSun(i) = 0#   '？？？？？？？？？？？？？？？？
      '提取公積公益基金
     VarGongJiJin(i) = 0#      '?????????????????????????????
  Next i
       
       
  
End Sub
Public Sub OpenHuaXueJiList()
   Dim Count As Integer
   Dim TempS As String
   
  ' Dim Item(0 To 10) As String
   Count = 0        '表中的記錄數(shù)
   
  'MsgBox OpeningDatabase
   If OpeningDatabase = "" Then
     MsgBox "數(shù)據(jù)庫(kù)中沒(méi)有數(shù)據(jù)！"
     Exit Sub
   End If
     Set Data1 = New ADODB.Connection
  Data1.CursorLocation = adUseClient
  Data1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & OpeningDatabase
  Set adozjyyyhg = New ADODB.Recordset
  
  adozjyyyhg.Open "select * from 化學(xué)劑用量參數(shù)表", Data1, adOpenStatic, adLockOptimistic
   
  
   With adozjyyyhg

      If (.EOF = True) And (.BOF = True) Then
         MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄"
         Exit Sub
      
      Else
        .MoveFirst
         Do While .EOF = False
           Count = Count + 1
           .MoveNext
         Loop
      ' MsgBox "數(shù)據(jù)庫(kù)共有" & Count & "條記錄"
     End If
     
   End With
   
  ' FrmListOutput.MSFlexGrid1.Rows = Count + 1
    adozjyyyhg.MoveFirst
   
   'For K = 0 To 10
   '  Item(K) = Data1.Recordset.Fields(K).Name
   'Next K
   For i = 1 To Count
     For k = 1 To 10
        TempS = adozjyyyhg.Fields(k).Value
        'FrmHuaXueJI.MSFlexGrid1.TextArray(k + I * 11) = TempS
        VarHuaXueji(i, k + 1) = Val(TempS)  '將數(shù)據(jù)庫(kù)數(shù)據(jù)寫(xiě)入化學(xué)劑變量數(shù)組
     Next k
    adozjyyyhg.MoveNext
  Next i
  adozjyyyhg.Close
  For i = 1 To Count
    VarHuaXueji(i, 1) = i   '將年限數(shù)據(jù)寫(xiě)入化學(xué)劑變量數(shù)組
  Next i
  'For K = 0 To 10
  '  FrmHuaXueJI.MSFlexGrid1.TextArray(K) = Item(K)
  'Next K
 VarHNianXian = Count
End Sub

Public Sub OpenShengChengList()
   Dim Count As Integer
   On Error GoTo ioerr
   Count = 0        '表中的記錄數(shù)
   If OpeningDatabase = "" Then
     MsgBox "請(qǐng)打開(kāi)一個(gè)數(shù)據(jù)庫(kù)！"
     Exit Sub
   End If
   
 Set Data1 = New ADODB.Connection
  Data1.CursorLocation = adUseClient
  Data1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & OpeningDatabase
  Set adozjyyyhg = New ADODB.Recordset
  
  adozjyyyhg.Open "select * from 數(shù)據(jù)輸入表", Data1, adOpenStatic, adLockOptimistic
   
   With adozjyyyhg
  
      If (.EOF = True) And (.BOF = True) Then
         MsgBox "數(shù)據(jù)庫(kù)中沒(méi)有數(shù)據(jù)！"
         Exit Sub
      Else
        .MoveFirst
         Do While .EOF = False
           Count = Count + 1
           .MoveNext
         Loop
       'MsgBox "數(shù)據(jù)庫(kù)共有" & Count & "條記錄"
     End If
     
   End With
   VarPingJiaQi = Count
   'FrmListOutput.MSFlexGrid1.Rows = Count + 1
  
   adozjyyyhg.MoveFirst
   
   For i = 1 To Count
     For k = 1 To 7
        'MsgBox form1.data1.Recordset.Fields(k).
        TempS = adozjyyyhg.Fields(k).Value
        'FrmShengCheng.MSFlexGrid1.TextArray(k + I * 8) = TempS
        VarShengCheng(i, k + 1) = Val(TempS)
     Next k
     adozjyyyhg.MoveNext
  Next i
  adozjyyyhg.Close
  For i = 1 To Count
      VarShengCheng(i, 1) = i
  Next i
  Exit Sub
ioerr:
MsgBox "打開(kāi)的數(shù)據(jù)庫(kù)類型不對(duì)！"
End Sub



Public Sub OpenTouZiList()
  Dim Count As Integer
   Dim Item(0 To 10) As String
   Count = 0        '表中的記錄數(shù)
   
   'MsgBox OpeningDatabase
   If OpeningDatabase = "" Then
     MsgBox "請(qǐng)打開(kāi)一個(gè)數(shù)據(jù)庫(kù)！"
     Exit Sub
   End If
    Set Data1 = New ADODB.Connection
  Data1.CursorLocation = adUseClient
  Data1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & OpeningDatabase
  Set adozjyyyhg = New ADODB.Recordset
  
  adozjyyyhg.Open "select * from 投資表", Data1, adOpenStatic, adLockOptimistic
      
   With adozjyyyhg
         If (.EOF = True) And (.BOF = True) Then
         MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄"
         Exit Sub
      
      Else
        .MoveFirst
         Do While .EOF = False
           Count = Count + 1
           .MoveNext
         Loop
       'MsgBox "dfkgkfdhgkjfdh數(shù)據(jù)庫(kù)共有" & Count & "條記錄"
     End If
     
   End With
   
   'FrmListOutput.MSFlexGrid1.Rows = Count + 1
   
  adozjyyyhg.MoveFirst
   
   'For K = 0 To 10
   '  Item(K) = form1.data1.Recordset.Fields(K).Name
   'Next K
   For i = 1 To Count
       'FrmTouZi.MSFlexGrid1.TextArray(2 * I + 1) = form1.data1.Recordset.Fields(1).Value
       VarTouZi(i) = adozjyyyhg.Fields(1).Value
       VarLiuDongZiJin(i) = adozjyyyhg.Fields(2).Value
      ' MsgBox VarLiuDongZiJin(I)
       adozjyyyhg.MoveNext
  Next i
  adozjyyyhg.Close
 
End Sub

Public Sub OpenQiTaList()
     Dim Count As Byte
   
   If OpeningDatabase = "" Then
     MsgBox "請(qǐng)打開(kāi)一個(gè)數(shù)據(jù)庫(kù)！"
     Exit Sub
   End If
     Set Data1 = New ADODB.Connection
  Data1.CursorLocation = adUseClient
  Data1.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & OpeningDatabase
  Set adozjyyyhg = New ADODB.Recordset
  
  adozjyyyhg.Open "select * from 其它參數(shù)表", Data1, adOpenStatic, adLockOptimistic
   
   
   With adozjyyyhg

      If (.EOF = True) And (.BOF = True) Then
         MsgBox "數(shù)據(jù)庫(kù)無(wú)記錄"
         Exit Sub
      
      Else
        .MoveFirst
         Do While .EOF = False
           Count = Count + 1
           .MoveNext
         Loop
       'MsgBox "數(shù)據(jù)庫(kù)共有" & Count & "條記錄"
     End If
     .MoveFirst
     For k = 0 To 37
       VarQiTa(k) = .Fields(k).Value
     Next k
    .Close
    
   End With
   
   
   
End Sub

Public Function Power(X As Double, Y As Double) As Double
       Power = Exp(Y * Log(X))
End Function

Public Function FHouHuiShouQi() As Double
  Dim ss As Double
  ss = 0
  For i = 1 To VarPingJiaQi - 1
    If (VarShuiHouLeiJiTie(i) <= 0) And (VarShuiHouLeiJiTie(i + 1) > 0) Then
       ss = ss + i - (VarShuiHouLeiJiTie(i) / VarShuiHouTie(i + 1))
    End If
  Next i
  FHouHuiShouQi = ss
  
End Function
Public Function FQianHuiShouQi() As Double
  Dim ss As Double
  ss = 0
  For i = 1 To VarPingJiaQi - 1
    If (VarShuiQianLeiJiTie(i) <= 0) And (VarShuiQianLeiJiTie(i + 1) > 0) Then
       ss = ss + i - (VarShuiQianLeiJiTie(i) / VarShuiQianTie(i + 1))
    End If
  Next i
  FQianHuiShouQi = ss
  
End Function

Public Function caculFIRR1() As Double
  
 Dim Jing(1 To 30) As Double

Dim a As Double
Dim b As Double
Dim f0 As Double
Dim f1 As Double
Dim X As Double
Dim i As Integer
Dim fx As Double


Jing(1) = -6526.3      '所得稅后凈現(xiàn)金例子，結(jié)果應(yīng)為16.5%
Jing(2) = -4660.85
Jing(3) = 3758.01
Jing(4) = 6820.43
Jing(5) = 8812.08
Jing(6) = 13055.18
Jing(7) = 7112.42
Jing(8) = 3618.09
Jing(9) = 1215.32


'Jing(1) = -15073.1      '所得稅后凈現(xiàn)金例子，結(jié)果應(yīng)為16.5%
'Jing(2) = -71194.7
'Jing(3) = -97162.7
'Jing(4) = -83746.4
'Jing(5) = -28982#
'Jing(6) = 9073.4
'Jing(7) = 63112.6
'Jing(8) = 73878.9
'Jing(9) = 112256.2
'Jing(10) = 90626.5
'Jing(11) = 72881.1
'Jing(12) = 94032.2
'Jing(13) = 103644.1
'Jing(14) = 92497#
'Jing(15) = 81498.7
'Jing(16) = 88307#
'Jing(17) = 83678.1
'Jing(18) = 73941.1
'Jing(19) = 63647.2
'Jing(20) = 51088.8
'Jing(21) = 38067#
'Jing(22) = 28800.5
'Jing(23) = 19466.5
'Jing(24) = 12977.9
'Jing(25) = 9611.2
'Jing(26) = 6951.4
'Jing(27) = 3403.8
'Jing(28) = 2319.1

'
'Jing(1) = -15073.1     '所得稅前凈現(xiàn)金例子，結(jié)果應(yīng)為18.7%
'Jing(2) = -71194.7
'Jing(3) = -97162.7
'Jing(4) = -83746.4
'Jing(5) = -28982#
?? 文件大小 9820 K
?? 上傳用戶 lemon_zc1949
?? 所屬分類其他行業(yè)
??? 相關(guān)標(biāo)簽

#采油 #經(jīng)濟(jì)評(píng)價(jià)
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? module1.bas

?? 快捷鍵說(shuō)明
