project QadFinancials > class BFixedAssetDepreciation > method GetTotalDaysOfMonth

function returns integer


Parameters


itDateinputdate


Internal usage


QadFinancials
method BFixedAssetDepreciation.DepreciationTypeDB
method BFixedAssetDepreciation.DepreciationTypeDBRemainingPer
method BFixedAssetDepreciation.DepreciationTypeDBSL
method BFixedAssetDepreciation.DepreciationTypeSL1
method BFixedAssetDepreciation.DepreciationTypeSL1Zero
method BFixedAssetDepreciation.DepreciationTypeYDSL


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.