by Sean Wilkins (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating:
(2 Votes)
Determine Beginning & End of Month for Processing
Inputs
Date derived from system
Code Returns
Beginning and end dates of the previous month for financial calculations
API DeclarationsPublic sBegDtTmp As String * 10 'beginning date for calcs
Public sEndDtTmp As String * 10 'ending date for calcs
sEndDtTmp = Format$((DateValue(Now) - Day(Now)), "mm/dd/yyyy")
sBegDtTmp = Format$(DateSerial(Year(sEndDtTmp), Month(sEndDtTmp), 1), "mm/dd/yyyy")