• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[源码分享] 分享(两)个日期格式化函数,日期、时间格式不再别扭 [复制链接]

1#
本帖最后由 ghong3298226 于 2014-9-1 15:03 编辑

//返回自定义格式的系统当前日期时间,可以是日期或时间中一项或多项的组合
//strFormat 格式: YYYY-MM-DD WD hh:mm:ss (即:年-月-日 周日 时:分:秒)。大小写敏感。
//例: TracePrint lxDateTime("YYYY年MM月DD日 hh点mm分ss秒 星期WD")
//例: TracePrint lxDateTime("现在是hh点")
另外一个日期时间函数:日期时间格式化函数(二),返回经过指定时间后所处日期时间
[hide=d365]
Function LsDateTime(strFormat)
//返回自定义格式的系统当前日期时间,可以是日期或时间中一项或多项的组合
//strFormat 格式: YYYY-MM-DD WD hh:mm:ss (即:年-月-日 周日 时:分:秒)。大小写敏感。
//例: TracePrint lxDateTime("YYYY年MM月DD日 hh点mm分ss秒 星期WD")
//例: TracePrint lxDateTime("现在是hh点")
Dim varGetNow
varGetNow=split(now()," ")
If strFormat="?" then
HelpInf "例:strTemp=LxDateTime(" & chr(34) & "YYYY-MM-DD-WD hh:mm:ss" & chr(34) & ") 注意:大小写敏感"
End If
//处理周日
Select Case varGetNow(0)
Case "Sun"
varGetNow(0)="日"
Case "Mon"
varGetNow(0)="一"
Case "Tue"
varGetNow(0)="二"
Case "Wed"
varGetNow(0)="三"
Case "Thu"
varGetNow(0)="四"
Case "Fri"
varGetNow(0)="五"
Case "Sat"
varGetNow(0)="六"
End Select
strFormat=Replace(strFormat,"WD",varGetNow(0))
//处理时间
varGetNow=split(varGetNow(3),":")
strFormat=Replace(strFormat,"hh",varGetNow(0))
strFormat=Replace(strFormat,"mm",varGetNow(1))
strFormat=Replace(strFormat,"ss",varGetNow(2))
//处理年月日
varGetNow=split(Date(),"/")
strFormat=Replace(strFormat,"YYYY",varGetNow(0))
strFormat=Replace(strFormat,"YY",right(varGetNow(0),2))
strFormat=Replace(strFormat,"MM",varGetNow(1))
strFormat=Replace(strFormat,"DD",varGetNow(2))
LsDateTime=strFormat
End Function
[/hide]

    已有3评分我要评分查看所有评分

    Q群:214756144
    2#

    不错不错学习学习

    3#

    刚好需要

    4#

    这很不错。

    5#

    是挺开的

    6#

    丁丁更健康

    7#

    写得好,讲得妙,获益匪浅!谢谢大神~

    8#

    多学多健康

    发新话题 回复该主题