kk_lee69 发表于 2012-8-18 23:39:57

[已解决]请教8位数字日期格式换为 YYYY/MM/DD 格式的精简写法

本帖最后由 kk_lee69 于 2012-8-19 22:16 编辑

请教8位数字日期格式换为 YYYY/MM/DD 格式的精简写法

硬是要做 當然拆 字串 分成 YYYY MM DD 在組合回去 就可以....

想請教精簡一點的寫法......我只會用字串函數拆開在組合回去而已...

同樣的 如何把 YYYY/MM/DD換成 YYYYMMDD

Qokelate 发表于 2012-8-19 00:14:25

MsgBox(0, 0,StringRegExpReplace(20120413, '(\d{4})(\d\d)(\d\d)', '$1/$2/$3') )

tcpuuu 发表于 2012-8-19 00:42:14

本帖最后由 tcpuuu 于 2012-8-19 00:44 编辑

$WDA = GUICtrlCreateLabel("",100,100,163,17,0x01);記錄日期

Switch @WDAY
Case 1
GUICtrlSetColor ($WDA,0xFF0000)   
$Wday = "星期日"
Case 2
$Wday = "星期一"
Case 3
$Wday = "星期二"
Case 4
$Wday = "星期三"
Case 5
$Wday = "星期四"
Case 6
$Wday = "星期五"
Case 7
GUICtrlSetColor ($WDA,0x008000)
$Wday = "星期六"
EndSwitch
GUICtrlSetData($WDA,@YEAR&"年"&@MON&"月"&@MDAY&"日"&$Wday)
=======================================================
星期六 綠色
星期日 紅色

kk_lee69 发表于 2012-8-19 22:15:17

回复 2# Qokelate


    感謝幫忙謝啦就是缺這樣的語法 感謝!!
页: [1]
查看完整版本: [已解决]请教8位数字日期格式换为 YYYY/MM/DD 格式的精简写法