vb日期格式问题？？？

我用rq1 = Format(Now, "YYYY-MM-DD")取得今天的日期
rq1的值是2009-4-13
我想让rq1的值是2009-04-13
该怎么办？？？

解决方案 »

  1.   


    Private Sub Command1_Click()
        MsgBox Format(Now, "yyyy-mm-dd")
        '结果2009-04-14
    End SubLZ,不知你怎么得到的
      

  2.   

    不对吧,rq1=Format(Now,"YYYY-MM-DD")的结果就是2009-04-13，你怎么知道不对？？ 
      

  3.   

    我也奇怪的了MsgBox Format(Now, "yyyy-mm-dd")
    这样输出是2009-04-14但一赋值
    rq1 = Format(Now, "yyyy-mm-dd")
            MsgBox (rq1)
    结果就是2009-4-14
    是不是rq1的类型问题
      

  4.   

    我这么声明rq1的
    Dim rq1 As Date
      

  5.   

    楼上正确: Dim rq1 As String
      

  6.   


    '这个跟系统的短日期格式设置有关系
    '修改：控制面板－区域和语言选项－自定义－日期－短日期格式－改为：yyyy-MM-dd
      

  7.   

    Format(Now-1, "YYYY-MM-DD") '昨天
    Format(Now+1, "YYYY-MM-DD") '明天