awingu 发表于 2010-1-4 14:44:10

yyyyMMddHHmmss格式的时间要怎么弄成yyyy-MM-dd HH:mm:ss

本帖最后由 awingu 于 2010-1-4 18:29 编辑

yyyyMMddHHmmss格式的时间要怎么弄成yyyy-MM-dd HH:mm:ss

程序读取mssql里面的时间内容的时候，在列表里面显示出来的是yyyyMMddHHmmss格式。比如2010-1-4 14:43:00的时间显示成20100104144300
我想让20100104144300显示成2010-01-04 14:43:00有没有办法？
或者要怎么弄？

afan 发表于 2010-1-4 14:46:43

StringFormat ( )

hzxymkb 发表于 2010-1-4 15:12:51

我来个详细点的吧！GUICtrlCreateLabel( "系统时间：" & @YEAR & "-" & @MON & "-" & @MDAY &" "&StringFormat("%02d:%02d:%02d", @HOUR, @MIN, @SEC), 215, 30)

顽固不化 发表于 2010-1-4 15:21:11

$D="20100104144300"
Dim $A
$A=_SPL(1,4)
$A=_SPL(5,2)
$A=_SPL(7,2)
$A=_SPL(9,2)
$A=_SPL(11,2)
$A=_SPL(13,2)

MsgBox(0,0,StringFormat("%s-%s-%s %s:%s:%s",$A,$A,$A,$A,$A,$A))

Func _SPL($ST,$ED)
        Return StringMid($D,$ST,$ED)
EndFunc
       

hzxymkb 发表于 2010-1-4 15:32:05

顽固不化 就是高人！写出来的东西技术含量就是高！

awingu 发表于 2010-1-4 18:29:05

OK，感谢顽固不化的指导，已经可以正常使用了。

faceyao 发表于 2010-1-4 19:26:38

4楼的那个可以

afan 发表于 2010-1-4 19:33:25

一行模式，呵呵~MsgBox(0, 0, StringRegExpReplace('20100104144300', '^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$', '$1-$2-$3 $4:$5:$6'))

afan 发表于 2010-1-4 19:46:55

udfFunc DT_Format($string)
        Local $DT = StringRegExpReplace($string, '^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$', '$1-$2-$3 $4:$5:$6')
        If @extended = 6 Then Return $DT
EndFunc   ;==>DT_Format
页: [1]
查看完整版本: yyyyMMddHHmmss格式的时间要怎么弄成yyyy-MM-dd HH:mm:ss