如何在Text中显示某一年（在该年中某一月，以及这个月的最后一天呢）？如何写成函数呢？

Question

function getLastdayOfYear( iYear as integer ) as string 
   getLastdayOfYear=format(trim(Str(iyear)) + "-12-31","yyyy-mm-dd")
end functionFunction getLastdayOfMonth(iYear as integer ,iMonth as Integer) as string
   dim t as string
   if imonth >=12 then
        t=Trim(str(iYear+1)) + "-01-01"
   else
        t=Trim(Str(iyear )) + "-" +  trim(str(imonth+1)) + "-01"
        t=format((cdate(t)-1),"yyyy-mm-dd")
   end if 
   t=format(t,"yyyy-mm-dd")
   getLastdayOfMonth=tend Function

Answer 1

错了。该为
Function getLastdayOfMonth(iYear as integer ,iMonth as Integer) as string
  dim t as string
  if imonth >=12 then
        t=Trim(str(iYear+1)) + "-01-01"
  else
        t=Trim(Str(iyear )) + "-" +  trim(str(imonth+1)) + "-01"
  end if 
  t=format((cdate(t)-1),"yyyy-mm-dd")
  getLastdayOfMonth=tend Function

Answer 2

老兄﹐你們剛學編程吧﹐這么簡單都不會
Function getLastdayOfMonth(iYear as integer ,iMonth as Integer) as string
  dim NextMonthStartDate as string
  NextMonthStartDate=cstr(iYear)+"-"+cstr(iMonth+1)+"-01"
  getLastdayOfMonth=cstr(dateadd("d",-1,nextmonthstardate))
end Function