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

本帖最后由 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]