安卓/ios按键精灵辅助工具[脚本源码分享] （两）个日期格式化函数，日期、时间格式不再别扭

/返回自定义格式的系统当前日期时间，可以是日期或时间中一项或多项的组合

//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]