以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教，日期转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6770)
--  作者：baoxyang
--  发布时间：2010/4/23 16:04:00
--  请教，日期转换
dim s as string = "2010-4-1 9:01:23",说明分及秒为两位，月日时小于9时不补零。
请教，如何转换成日期格式为“yyyy-MM-dd HH:mm:ss"
谢各位提供简便方法。
--  作者：程兴刚
--  发布时间：2010/4/23 18:43:00
--  

这个日期时间哪里来的？直接在初始事件上想办法更简洁！
--  作者：程兴刚
--  发布时间：2010/4/23 18:48:00
--  
个人认为：如果是查找字符串或者是集合，那就是错误，列表项目不同，定义列表项目前提应该是具备唯一性。
--  作者：程兴刚
--  发布时间：2010/4/23 18:49:00
--  
以下是引用程兴刚在2010-4-23 18:48:00的发言：
个人认为：如果是查找字符串或者是集合，那就是错误，列表项目不同，定义列表项目前提应该是具备唯一性。

呵呵，回错帖子了！
--  作者：mr725
--  发布时间：2010/4/23 19:21:00
--  
以下是引用baoxyang在2010-4-23 16:04:00的发言：
dim s as string = "2010-4-1 9:01:23",说明分及秒为两位，月日时小于9时不补零。
请教，如何转换成日期格式为“yyyy-MM-dd HH:mm:ss"
谢各位提供简便方法。

如果没有好办法，就这样吧：
dim s as string = "2010-4-1 9:01:23"
dim sg,sg1 as string
sg = s.split(" ")(0)
sg1 = s.split(" ")(1)
for i as integer = 0 to sg.split("-").length-1
    if sg.split("-")(i).length = 1
        sg=sg.replace(sg.split("-")(i),"0" & sg.split("-")(i))
    end if
    if i > 0
        if sg1.split(":")(i).length = 1
            sg1=sg1.replace(sg1.split(":")(i),"0" & sg1.split(":")(i))
        end if
    end if
next
output.show(sg & " " & sg1)   \'结果 20010-04-01 9:01:23  就是太繁琐了些。

[此贴子已经被作者于2010-4-23 19:22:02编辑过]
--  作者：程兴刚
--  发布时间：2010/4/23 20:42:00
--  
如果在初始生成这个日期时间的时候想办法，会更简单。

按目前的需求，也可以这样：

dim s as string = "2010-4-1 9:01:23"
dim Values() as String
dim Value1s() as String
Values = s.split(" ")
Value1s = Values(0).split("-")
dim dt as date = "#" & Value1s(1) & "/" & Value1s(2) & "/" & Value1s(0) & " " & Values(1) & "#"
Output.show(format(dt,"yyyy-M-d hh:mm:ss"))
--  作者：程兴刚
--  发布时间：2010/4/23 20:44:00
--  
当日、月也需要补位时，改这里即可：

Output.show(format(dt,"yyyy-MM-dd hh:mm:ss"))
--  作者：mr725
--  发布时间：2010/4/23 21:02:00
--  
dim s as date = "2010-4-1 9:01:23"       \'这个有不对吗？
Output.show(format(s,"yyyy-MM-dd h:mm:ss"))  
--  作者：程兴刚
--  发布时间：2010/4/23 21:11:00
--  
没人说不对？
因为format对“-”不识别，导致我误以为时间格式不对。
--  作者：mr725
--  发布时间：2010/4/23 21:28:00
--  

有个问题:
dim s as date = "#4/1/2010 0:1:3#"   
Output.show(format(s,"yyyy-MM-dd h:mm:ss"))
结果怎会:2010-04-01 12:01:03  为何不按照24小时制式呢?