asp 日期格式化函数 android软件开发教程

  次阅读 来源:互联网(转载协议) 2016-03-01 11:04 我要评论(0)

============================================

格式化时间(显示)

参数:n_Flag

1:"yyyy-mm-dd hh:mm:ss"

2:"yyyy-mm-dd"

3:"hh:mm:ss"

4:"yyyy年mm月dd日"

5:"yyyymmdd"

6:"yyyymmddhhmmss"

============================================

Function FormatTime(s_Time, n_Flag)

Dim y, m, d, h, mi, s

FormatTime = ""

If IsDate(s_Time) = False Then Exit Function

y = cstr(year(s_Time))

m = cstr(month(s_Time))

If len(m) = 1 Then m = "0" & m

d = cstr(day(s_Time))

If len(d) = 1 Then d = "0" & d

h = cstr(hour(s_Time))

If len(h) = 1 Then h = "0" & h

mi = cstr(minute(s_Time))

If len(mi) = 1 Then mi = "0" & mi

s = cstr(second(s_Time))

If len(s) = 1 Then s = "0" & s

Select Case n_Flag

Case 1

yyyy-mm-dd hh:mm:ss

FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

Case 2

yyyy-mm-dd

FormatTime = y & "-" & m & "-" & d

Case 3

hh:mm:ss

FormatTime = h & ":" & mi & ":" & s

Case 4

yyyy年mm月dd日

FormatTime = y & "年" & m & "月" & d & "日"

Case 5

yyyymmdd

FormatTime = y & m & d

case 6

yyyymmddhhmmss

FormatTime= y & m & d & h & mi & s

End Select

End Function

%>

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 全球陷入"区块链狂热"潮,大规模应用还需等待

    全球陷入"区块链狂热"潮,大规模应用还需等待

  • 区块链最近太火,但A股多家公司明确表态不考虑涉足

    区块链最近太火,但A股多家公司明确表态不考虑涉足

  • 汤晓鸥:人工智能的中国式文艺复兴

    汤晓鸥:人工智能的中国式文艺复兴

  • 马云的新零售?张近东的智慧零售?抑或是刘强东的第四次零售革命?

    马云的新零售?张近东的智慧零售?抑或是刘强东的第四次零售革命?

网友点评网友点评
阅读推荐阅读推荐

算法 任何一个入门的软件开发人员都会听到这句话:算法是软件的灵魂!近年来大火的机器学习即是在算法在人工智能上的集中体现。今日头条通...

据《日本经济新闻》报道,日本东京大学教授稻叶雅幸等人开发出再现日本人骨骼肌肉构造的机器人。机器人各部位的肌肉和骨骼长度与日本人的平...

以奥黛丽-赫本为原型打造的人形机器人索菲娅首次拜访了印度。索菲娅是世界上首位获得公民身份的机器人,她在12月30日出现在了印度理工学院...

在查获现场,代售点电脑旁的一台机器人通过敲击电脑键盘抢票。 广州日报惠州讯 (全媒体记者秦仲阳 通讯员张中铃摄影报道)2018年春运售票已...