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

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

本帖最后由 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[6]
$A[0]=_SPL(1,4)
$A[1]=_SPL(5,2)
$A[2]=_SPL(7,2)
$A[3]=_SPL(9,2)
$A[4]=_SPL(11,2)
$A[5]=_SPL(13,2)

MsgBox(0,0,StringFormat("%s-%s-%s %s:%s:%s",$A[0],$A[1],$A[2],$A[3],$A[4],$A[5]))

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

udf

Func 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

		自动登录	找回密码
密码			加入

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

评分

评分