联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  格式化时间(显示)函数   3星级
格式化时间(显示)函数
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2007-08-17     文章录入:Admin
【字体:
[内容提要]
暂无简介
' ============================================
 ' 格式化时间(显示)
 ' 参数:n_Flag
 ' 1:"yyyy-mm-dd hh:mm:ss"
 ' 2:"yyyy-mm-dd"
 ' 3:"hh:mm:ss"
 ' 4:"yyyy年mm月dd日"
 ' 5:"yyyymmdd"
 ' 6:"yy-mm-dd"
 ' 7:mm-dd hh:mm
 ' 8:mm-dd 
 ' 9:"yyyy年mm月dd日 星期N"
 ' 10: N, mm/dd/yyyy
 ' ============================================
 Function Format_Time(s_Time, n_Flag)
  Dim y, m, d, h, mi, s
  dim DayName
  Format_Time = ""
  If IsDate(s_Time) = False Then Exit Function
  y = cstr(year(s_Time))
  m = cstr(month(s_Time))
  If len(m) = 1 And n_Flag<>8 Then m = "0" & m
  d = cstr(day(s_Time))
  If len(d) = 1 And n_Flag<>8 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
   Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
  Case 2
   ' yyyy-mm-dd
   Format_Time = y & "-" & m & "-" & d
  Case 3
   ' hh:mm:ss
   Format_Time = h & ":" & mi & ":" & s
  Case 4
   ' yyyy年mm月dd日
   Format_Time = y & "年" & m & "月" & d & "日"
  Case 5
   ' yyyymmdd
   Format_Time = y & m & d
  Case 6
   If Len(y)=4 Then y=Right(y,2)
   ' yyyy-mm-dd
   Format_Time = y & "-" & m & "-" & d
  Case 7
   ' mm-dd hh:mm
   Format_Time = m & "-" & d & " " & h & ":" & mi
  Case 8
   ' mm-dd
   Format_Time = m & "-" & d
  case 9
    DayName=split("日|一|二|三|四|五|六","|")
    Format_Time=y & "年" & m & "月" & d & "日 星期"&DayName(Weekday(S_Time)-1)
  case 10
     DayName=split("Sun|Mon|Tue|Wed|Thu|Fri|Sat","|")
   Format_Time=DayName(Weekday(S_Time)-1) &", " &m&"/"& d &"/" & Y
  End Select
 End Function
上一篇文章:何时该用AJAX,何时不要用AJAX?? 下一篇文章:用Asp实现QQ在线查询功能
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息