- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]长日期格式，如何固定hh:mm:ss部分为23:59:59 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24596)
-- 发布时间：2012/10/18 1:42:00
-- [求助]长日期格式，如何固定hh:mm:ss部分为23:59:59
如上图，如何在重新选择后，hh:mm:ss部分还为23:59:59，现在选择后，变成00:00:00
而且希望可以手工修改这一部分
-- 发布时间：2012/10/19 17:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期格式设置.rar |
做了一个例子，选择结束日期的时候，比如选2012-12-24
显示是 2012-12-24 23：59：59
而不是 2012-12-24 00：00：00
-- 发布时间：2012/10/19 18:07:00
--
这样做……
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期格式设置.table |
-- 发布时间：2012/10/19 18:46:00
--
谢谢lin_hailun，这样做基本满意了，不过还有一点小问题，就是这个23:59:59有时候需要修改为12:56:38,现在这个方法，修改的时候，会报错
-- 发布时间：2012/10/20 10:01:00
--
不明白楼上的意思，具体说说，还有就是报什么错。
-- 发布时间：2012/10/20 12:26:00
--
就是手工修改23:59:59的时候
-- 发布时间：2012/10/20 14:01:00
--
textchange事件中代码改为这样：
Dim d As Date = e.Sender.Text
e.Sender.Text = "#" & Format(d, "G") & "#"
-- 发布时间：2012/10/20 14:23:00
--
嗯嗯，好的，如下。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:日期格式设置.table |
-- 发布时间：2012/10/20 15:16:00
--
Dim d As Date = e.Sender.Text
e.Sender.Text = "#" & Format(d, "yyyy-MM-dd") & " 23:59:59#"
Dim d As Date = e.Sender.Text
e.Sender.Text = "#" & Format(d, "yyyy-MM-dd") & " 23:59:59#"
两遍好像代码一样啊，没有发现哪里不同
我的意思是，还可以修改后面的时间，这样的话，时间就修改不了了
[此贴子已经被作者于2012-10-20 15:17:14编辑过]
-- 发布时间：2012/10/20 15:36:00
--
楼主，打开错了项目吧。有修改了的，测试正常。