订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp自定义格式化日期函数

网络 2012/11/20 17:40:25 深山行者 字体: 浏览 5920

' 格式化时间(显示)
' 参数:n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"ymdhms"
' 7:"m-d"

<%
nowtime = "2012-11-15 18:27:06"
%>

演示 1:<%=Format_Time(nowtime,"1")%><br />
结果 1:2012-11-15 18:27:06<hr>
演示 2:<%=Format_Time(nowtime,"2")%><br />
结果 2:2012-11-15<hr>
演示 3:<%=Format_Time(nowtime,"3")%><br />
结果 3:18:27:06<hr>
演示 4:<%=Format_Time(nowtime,"4")%><br />
结果 4:2012年11月15日<hr>
演示 5:<%=Format_Time(nowtime,"5")%><br />
结果 5:20121115<hr>
演示 6:<%=Format_Time(nowtime,"6")%><br />
结果 6:20121115182706<hr>
演示 7:<%=Format_Time(nowtime,"7")%><br />
结果 7:11-15<hr>

<%
Function Format_Time(s_Time, n_Flag)
 Dim y, m, d, h, mi, s
 Format_Time = ""
 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
     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
     ' yyyymmdd
     Format_Time = y & m & d & h & mi & s
  Case 7
     ' m-d
     Format_Time = m & "-" & d
 End Select
End Function
%>

相关阅读
网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法
记录滚动条位置(使用userdate)
深山文章管理系统 v1.0 bulid 090418
万圣节留言板模板
用css做的英文首字母大写和英文全都大写通过各个浏览器
07 问题错误整理 程序目录权限 父路径没打开错误
动态返回selected选择框的代码说明
innerHTML支持firefox火狐
共有0条关于《asp自定义格式化日期函数》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
纯asp根据当前日期计算出当前年份的属相
sql server中前缀为PK、UK、DF、CK、FK表的意思
ASP利用fso读取文件夹里所有文件的名字
更多>>最新添加文章
呼伦贝尔市北天草原旅行社有限公司
四川悠旅地旅游有限公司
连云港五洲旅行社有限公司
邓州市途鸿旅行社
连云港华夏国际旅行社有限公司
重庆长航江山国际旅行社
松原市海航商务旅行社
广西亚太国际旅行社有限公司
更多>>随机抽取信息
深山网吧留言板系统v4.0
深山留言板(9.10教师节模板)
uni-app跨端开发微信小程序时页面栈超过10层时小程序像卡死一样假性不能点击无法跳转的解决方案
jQuery设置提交表单disabled属性所有input、button、extarea、select、checkbox、radio都生效
JavaScript:iframe自动适应高度
CSS选择符详解