主题：win7 日期格式问题求助

Dim value() As String
Dim filter As String
Dim dt1 As Date
Dim dt2 As Date

value = e.node.fullpath.split("\")
Dim y As Integer = value(0)
dt1 = new Date(y,1,1)
dt2 = new Date(y,12,31)

MessageBox.Show(dt1 & dt2)

输出的日期是

此主题相关图片如下：1.png

怎么能把后边的星期几去掉啊

改我自己的没问题，可谁知道哪个同学的电脑日期也设置了显示星期几啊，我不能要求别人也改吧，还有没有通用的方法？那我所有的动态日期筛选都要加上截取字符然后再转为datetime。。。。。。??

谢谢lin，不过代码少了点东西

dim str as string = dt1.tostring.substring(0, dt1.tostring.indexof(" "))