Tuesday, April 05, 2005
Get No Of Days In Month
GetNoOfDaysInMonth
Function (dateTimeVar investmentPaidDate)
numberVar intDay := 1;
dateVar monthStartDate := CDate (Year (investmentPaidDate), Month (investmentPaidDate) ,1) ;
dateVar monthEndDate := CDate (Year (investmentPaidDate), (Month (investmentPaidDate))+1 ,1);
monthEndDate = DateAdd ("d", -1 , monthEndDate );
intDay = DateDiff ("d", monthStartDate , monthEndDate );
intDay;
Function (dateTimeVar investmentPaidDate)
numberVar intDay := 1;
dateVar monthStartDate := CDate (Year (investmentPaidDate), Month (investmentPaidDate) ,1) ;
dateVar monthEndDate := CDate (Year (investmentPaidDate), (Month (investmentPaidDate))+1 ,1);
monthEndDate = DateAdd ("d", -1 , monthEndDate );
intDay = DateDiff ("d", monthStartDate , monthEndDate );
intDay;