按收益期分摊收入

22119679@QQ.com

大家好，我是这样分摊收入的，我是个会计

22119679@QQ.com

因为是公司，所以不好公开

有需要的朋友可以密我

yeminqiang

也没觉得有多神秘。真心分享模拟个数据也不难。估计是想收钱。
说错了，楼主也表介意。

22119679@QQ.com

其实我只是想得瑟一下，楼上的你想错了，哈哈哈！！！

22119679@QQ.com

1. Sub Sheet2_按钮1_Click()
   
2.   
   
3.   If Cells(1, 6) = "" Or IsNull(Cells(2, 6)) Or IsNull(Cells(3, 6)) Then
   
4.      MsgBox ("输入信息不全，请重新输入")
   
5.      Cells(1, 6).Select
   
6.      Exit Sub
   
7.   End If
   
8.   
   
9.   If Cells(1, 6) > Cells(2, 6) Then
   
10.      MsgBox ("输入有误，终止日早于起始日")
    
11.      Cells(1, 6).SetFocus
    
12.      Exit Sub
    
13.   End If
    
14.   
    
15.   Range("A:D").ClearContents
    
16.    
    
17.   Dim Startdate As Date, Enddate As Date, Mydate As Date, Monthlength As Integer, Daylength As Integer, Income As Double, Tempincome As Double, Tempincome2 As Double
    
18.   Startdate = Cells(1, 6).Value
    
19.   Enddate = Cells(2, 6).Value
    
20.   Income = Cells(3, 6).Value
    
21.   Monthlength = DateDiff("m", Startdate, Enddate)
    
22.   Daylength = DateDiff("d", Startdate, Enddate) + 1
    
23.   Tempincome = Income
    
24.   
    
25.   Cells(1, 1) = "年度"
    
26.   Cells(1, 2) = "月度"
    
27.   Cells(1, 3) = "天数"
    
28.   Cells(1, 4) = "金额"
    
29.   For i = 0 To Monthlength
    
30.     Mydate = DateAdd("m", i, Startdate)
    
31.     If Monthlength = 0 Then
    
32.        Cells(i + 2, 1) = Year(Mydate)
    
33.        Cells(i + 2, 2) = Month(Mydate)
    
34.        Cells(i + 2, 3) = Daylength
    
35.        Cells(i + 2, 4) = Income
    
36.     ElseIf i = 0 Then
    
37.        Tempincome2 = Round(Income / Daylength * (Day(DateSerial(Year(Mydate), Month(Mydate) + 1, 0)) - Day(Mydate) + 1), 2)
    
38.        Tempincome = Tempincome - Tempincome2
    
39.        Cells(i + 2, 1) = Year(Mydate)
    
40.        Cells(i + 2, 2) = Month(Mydate)
    
41.        Cells(i + 2, 3) = Day(DateSerial(Year(Mydate), Month(Mydate) + 1, 0)) - Day(Mydate) + 1
    
42.        Cells(i + 2, 4) = Tempincome2
    
43.       
    
44.     ElseIf i = Monthlength Then
    
45.        Tempincome2 = Round(Income / Daylength * (Day(DateSerial(Year(Mydate), Month(Mydate) + 1, 0)) - Day(Mydate) + 1), 2)
    
46.        Cells(i + 2, 1) = Year(Mydate)
    
47.        Cells(i + 2, 2) = Month(Mydate)
    
48.        Cells(i + 2, 3) = Day(Enddate)
    
49.        Cells(i + 2, 4) = Round(Tempincome, 2)
    
50.     Else
    
51.        Tempincome2 = Round(Income / Daylength * Day(DateSerial(Year(Mydate), Month(Mydate) + 1, 0)), 2)
    
52.        Tempincome = Tempincome - Tempincome2
    
53.        Cells(i + 2, 1) = Year(Mydate)
    
54.        Cells(i + 2, 2) = Month(Mydate)
    
55.        Cells(i + 2, 3) = Day(DateSerial(Year(Mydate), Month(Mydate) + 1, 0))
    
56.        Cells(i + 2, 4) = Tempincome2
    
57.     End If
    
58.     T = DateAdd("s", 0.1, Now)
    
59.     Do Until Now > T
    
60.         DoEvents
    
61.     Loop
    
62.   Next
    
63. End Sub

复制代码