- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- win7 日期格式问题求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27938)
-- 发布时间：2013/1/14 17:49:00
-- 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
怎么能把后边的星期几去掉啊
-- 发布时间：2013/1/14 18:35:00
--
呃，这个……实在没办法就截取字符串吧。
dim str as string = dt1.tostring.substring(0, dt1.indexof(" "))
-- 发布时间：2013/1/15 9:03:00
--
在控制面板中，设置一下日期时间格式即可。
-- 发布时间：2013/1/15 9:11:00
--
改我自己的没问题，可谁知道哪个同学的电脑日期也设置了显示星期几啊，我不能要求别人也改吧，还有没有通用的方法？那我所有的动态日期筛选都要加上截取字符然后再转为datetime。。。。。。??
谢谢lin，不过代码少了点东西
dim str as string = dt1.tostring.substring(0, dt1.tostring.indexof(" "))
[此贴子已经被作者于2013-1-15 9:23:26编辑过]
-- 发布时间：2013/1/18 22:01:00
--
第一种方法：
DIM D AS DATE = DATE.TODAY
DIM F AS STRING = Cstr(D.Date).TrimEnd(" ","星","期","一","二","三","四","五","六","日")
第二种方法：
DIM D AS DATE = DATE.TODAY
Dim F As String = F.Month & "/" & F.Day & "/" & F.Year