Macro - Ageing

Sub RunAge()
'
' run the ageing routine
'
' Infile - name of the file to be checked
' DateColumn - name of the column value which contains the date
' to be aged
' TranColumn - name of the column which contains the amount
' to be aged
' Agewidth - number of days in a single ageing bucket (e.g. 30)
' AgeDate - the date the ageing report is to be run as of
' Report - where the report is to be written
' Note that the sequence of parameters does not matter
'
'
'
Dim oEZ As New cEZ

oEZ.Age _
Infile:=BASEDIR & "clmdensp.txt", _
DateColumn:="fdos", _
TranColumn:="paidamt", _
Report:=BASEDIR & "clmdensp.age", _
AgeWidth:=30, _
AgeDate:="6/30/2004"

LoadSheet _
ToSheet:="$Debug", _
Infile:=BASEDIR & "clmdensp.age"

Set oEZ = Nothing
End Sub

Main Page

Complete Auditor resources
Links \| Privacy Policy \| FAQ \| Downloads \| Trademarks