Date函数的问题【已解决】

xms77 · 发表于 2012-3-12 14:30:38

本帖最后由 xms77 于 2012-3-12 19:43 编辑

如何显示如下格式的日期：
12-Mar-2012

menfan1 · 发表于 2012-3-12 14:33:09

字符串替换

xms77 · 发表于 2012-3-12 19:41:57

本帖最后由 xms77 于 2012-3-12 19:43 编辑

回复 2# menfan1
谢谢你的提示，解决了！

Func _GetDateTime()
        Local $DateTime[3]
        If @MON = "01" Then $iMon = "Jan"
        If @MON = "02" Then $iMon = "Feb"
        If @MON = "03" Then $iMon = "Mar"
        If @MON = "04" Then $iMon = "Apr"
        If @MON = "05" Then $iMon = "May"
        If @MON = "06" Then $iMon = "Jun"
        If @MON = "07" Then $iMon = "Jul"
        If @MON = "08" Then $iMon = "Aug"
        If @MON = "09" Then $iMon = "Sep"
        If @MON = "10" Then $iMon = "Oct"
        If @MON = "11" Then $iMon = "Nov"
        If @MON = "12" Then $iMon = "Dec"
        $DateTime[0] = @MDAY & "-" & @MON & "-" & @YEAR
        $DateTime[1] = $iMon & @MDAY
        $iTime = _NowTime()
        $temp = StringSplit($iTime,":")
        $DateTime[2] = $temp[1]
                Return $DateTime
EndFunc  ;==> _GetDateTime

afan · 发表于 2012-3-13 16:56:27

回复 3# xms77

Func _GetMon3s()
        Local $aMon[12] = ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec']
        Return $aMon[@MON - 1]
EndFunc  ;==> _GetMon3s

xms77 · 发表于 2012-3-13 22:46:44

回复 4# afan
谢谢afan大大，你的代码简单多了，这就是技巧啊！
另外没想到一个简单的已解决动作，还能够被加分，真是太意外了，再次感谢大大的厚爱！

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

[AU3基础] Date函数的问题【已解决】

评分

相关帖子