Skip to content

Commit

Permalink
new file: VBA/BudgetAndBilling.bas
Browse files Browse the repository at this point in the history
  • Loading branch information
Ray nieva authored and Ray nieva committed Jun 24, 2017
1 parent e28e742 commit e5c44a7
Showing 1 changed file with 30 additions and 0 deletions.
30 changes: 30 additions & 0 deletions VBA/BudgetAndBilling.bas
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
Option Explicit

Sub Main
' This program is intended to be used to calculate my weekly budget based on income that week and projected expenses that week.
Output "Calculating Weekly/ Budget"

' This is usually weekly (net) income but can be another period like bi-weekly or monthly
Output "Get Income for week/period"
Dim income1 As Double

income1 = InputValue("income1")

' At this point start inputting billing items. These are essentially billing items for the current week or period.
' The question is at this point what direction this program will go? Will there be permanently assigned billing items or billing items adhoc defined each week. Can Flowgorithm define a true OO approach?
End Sub

' The following functions are called whenever the program needs to input or output data.
' You can change these functions to use other controls rather than pop-up windows.

Function InputValue (Name As String) As Double
InputValue = Val(InputBox("Please enter a value for " & Name))
End Function

Function InputText (Name As String) As String
InputText = InputBox("Please enter a value for " & Name)
End Function

Sub Output (Text As String)
Msgbox Text
End Sub

0 comments on commit e5c44a7

Please sign in to comment.