怎么判断任何一天的前一天的日期呢 ?谢谢!

解决方案 »

  1.   

    你是要得到前一天的日期?dateadd("d",-1,the date u input)
      

  2.   

    日期型变量减1就得到前一天如msgbox date - 1得到昨天的日期
      

  3.   

    private sub GetBeforeDate(p_date as date)
       getbeforedate=dateadd("d",-1,p_date)
    end sub
      

  4.   

    private FunctionGetBeforeDate(p_date as date)
       GetBeforeDate=Dateadd("d",-1,p_date)        '得到任意一天的前一天
    end sub