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

Date函数的问题【已解决】

本帖最后由 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
        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 = @MDAY & "-" & @MON & "-" & @YEAR
        $DateTime = $iMon & @MDAY
        $iTime = _NowTime()
        $temp = StringSplit($iTime,":")
        $DateTime = $temp
                Return $DateTime
EndFunc;==> _GetDateTime

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

回复 3# xms77 Func _GetMon3s()
      Local $aMon = ['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大大，你的代码简单多了，这就是技巧啊！
另外没想到一个简单的已解决动作，还能够被加分，真是太意外了，再次感谢大大的厚爱！
页: [1]
查看完整版本: Date函数的问题【已解决】