project QadFinancials > class BFixedAssetDepreciation > method GetTotalDaysOfMonth

Parameters

Internal usage

program code (program6/bfixedassetdepreciation.p)

if can-do ('1,3,5,7,8,10,12':U, string(month(itDate)))
then assign viDaysMonth = 31.

if can-do('4,6,9,11':U, string(month(itDate)))
then assign viDaysMonth = 30.

if month(itDate) = 2
then do:
    if year(itDate) MOD 4 = 0
    then assign viDaysMonth = 29.
    else assign viDaysMonth = 28.
end.

return viDaysMonth.