计算公司利润的程序可以按照以下步骤进行：
计算营业利润
以营业收入为基础，减去营业成本、营业税金及附加、销售费用、管理费用、财务费用、资产减值损失，再加上公允价值变动收益（减去公允价值变动损失）和投资收益（减去投资损失）。
计算利润总额
以营业利润为基础，加上营业外收入，减去营业外支出。
计算净利润
以利润总额为基础，减去所得税费用。
示例公式
假设营业收入为 `营业收入`，营业成本为 `营业成本`，营业税金及附加为 `营业税金及附加`，销售费用为 `销售费用`，管理费用为 `管理费用`，财务费用为 `财务费用`，资产减值损失为 `资产减值损失`，公允价值变动收益为 `公允价值变动收益`，投资收益为 `投资收益`，营业外收入为 `营业外收入`，营业外支出为 `营业外支出`，所得税费用为 `所得税费用`，则：
营业利润 = `营业收入` - `营业成本` - `营业税金及附加` - `销售费用` - `管理费用` - `财务费用` - `资产减值损失` + `公允价值变动收益` - `投资收益`
利润总额 = 营业利润 + `营业外收入` - `营业外支出`
净利润 = 利润总额 - `所得税费用`
Excel操作步骤
设置预算模板
打开Excel，创建一个新的工作簿。
在Sheet1中，设置预算表头，如“月份”、“收入”、“成本”、“利润”等。
使用快捷键Ctrl + T创建表格，便于后续数据处理。
输入预算数据
在对应的单元格中输入预算数据，如各月的收入、成本等。
使用数据验证功能（快捷键Alt + D + V + V）设置下拉列表，限制输入范围。
编写公式计算利润
在“利润”列的单元格中输入公式=B2-C2（假设收入在B列，成本在C列），然后拖动填充柄（或使用快捷键Ctrl + E）应用到整个列。
自动化计算
可以使用Excel的公式和VBA代码来自动化计算利润。例如，编写一个VBA宏来自动计算利润：
```vba
Sub 自动计算利润（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
' 定义预算数据范围
Dim rngIncome As Range
Dim rngCost As Range
Dim rngProfit As Range
Set rngIncome = ws.Range（"B2:B13"） ' 假设收入数据在B2到B13
Set rngCost = ws.Range（"C2:C13"） ' 假设成本数据在C2到C13
Set rngProfit = ws.Range（"D2:D13"） ' 利润数据在D2到D13
' 计算利润
For Each cell In rngProfit
cell.Value = rngIncome.Cells（cell.Row - 1, 1）.Value - rngCost.Cells（cell.Row - 1, 1）.Value
Next cell
End Sub
```
通过以上步骤和公式，可以有效地计算公司的利润，并确保其准确性和及时性。