VB6.0中怎样根据当天日期求每月最大日期(最后一天)和最小日期（第一天）

Question

VB6.0中怎样根据当天日期求每月最大日期(最后一天)和最小日期（第一天）

Answer 1

function GetFirstDay(d as date) as date
    getfirstday=cdate(year(d) & "-" & month(d) & "-1"
end functionfunction GetLastDay(d as date) as date
    dim M as long
    dim Y as long
    y=year(d)
    m=month(d)+1
    if m=13 then 
        getlastday=cdate(cstr(y) & "-12-31")
    else
        getlastday=dateadd("d",cdate(cstr(y) & "-" & cstr(m) & "-1"),-1)
    end if
end function随手写的,可能有错误