开卷有分，大家帮帮

Text1.text = "1-1-" & 06，现在的结果为'2001-01-06',正确应该是'2006-01-01',请问如何写！！！

解决方案 »

  1.   

    回楼上的，不行。原代码如下：Dim xDate As Date
    xDate = "1-1-" & Me.Text2.Text   'me.text2.text=06
    Me.Text.Text = xDate 
    结果:2001-1-6
      

  2.   

    xDate = Format("1-1-06", "DD-MM-YY")
      

  3.   

    如果前面的"1-1-"是"月-日-"的话这样写
    xDate = Format("1-1-06", "DD-YY-MM")如果是"日-月-"上面那样就可以了
      

  4.   

    因为你的系统日期格式应该是"yyyy-mm-dd"，所以系统自动把相应位置上的数字变成了年月日，你用format把它翻过来就行了