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

ASP 格式化显示时间为几个月,几天前,几小时前,几分钟前,或几秒前

　2015-5-23 16:10:18　　字体：大中小　浏览 1724　我要评论

Function DateStringFromNow(Byval sTheDate)

' 格式化显示时间为几个月,几天前,几小时前,几分钟前,或几秒前

Dim iSeconds, iMinutes, iHours, iDays

iSeconds = DateDiff("s", sTheDate, Now()) 'd/h/n/s

iMinutes = Int(iSeconds/60)

iHours = Int(iSeconds/3600)

iDays = Int(iSeconds/86400)

If iDays > 60 Then

DateStringFromNow = sTheDate

ElseIf iDays > 30 Then

DateStringFromNow = "1个月前"

ElseIf iDays > 14 Then

DateStringFromNow = "2周前"

ElseIf iDays > 7 Then

DateStringFromNow = "1周前"

ElseIf iDays > 1 Then

DateStringFromNow = iDays & "天前"

ElseIf iHours > 1 Then

DateStringFromNow = iHours & "小时前"

ElseIf iMinutes > 1 Then

DateStringFromNow = iMinutes & "分钟前"

ElseIf iSeconds >= 1 Then

DateStringFromNow = iSeconds & "秒前"

Else

DateStringFromNow = "1秒前"

End If

End Function

加入收藏: 打印本页

当前标签：日期

前一页：asp判断是否是手机访问

后一页：ASP读取json并输出

Ads loading...

相关阅读: ( 2018-5-14 10:35:46 )ASP版通过身份证信息获取对应的生日性别年龄; ( 2016-8-15 19:04:22 )asp获得系统Unix时间戳与将Unix时间戳转为正常日期; ( 2016-3-12 14:58:19 )Asp得到当月天数的函数方法; ( 2015-3-11 9:06:06 )asp判断是否是手机访问; ( 2013-8-6 8:01:49 )经常使用到有关数据库的操作sql; ( 2012-10-29 9:53:56 )深山旅行社管理系统商业版增加线路日期报价功能样式选择(增加了3个日期报价效果); ( 2012-8-14 9:46:58 )javascript日期验证比较; ( 2011-5-25 22:07:30 )asp简易论坛制作教程(三)——数据库的设置

共有0条关于《ASP 格式化显示时间为几个月,几天前,几小时前,几分钟前,或几秒前》的评论: 发表评论

正在加载评论……

返回顶部发表评论

呢称：
表情：
内容：	评论内容：不能超过 400 字，需审核，请自觉遵守互联网相关政策法规。
验证码：

深山工作室网友评论声明，请自觉遵守互联网相关政策法规。

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

Ads loading...

更多信息>>栏目类别选择: rss学习; 个人空间; 网站设计; 网站公告; 下载; photoshop学习; ASP学习; DIV+CSS学习; SEO搜索引擎忧化; java学习; HTML学习; 网站信息; 网站类信息

更多>>同类信息: 批量删除access字段里面fld.Properties.Delete; ASP操作access或sqlserver数据库的函数库; asp中求两个数的百分比（利用百分比函数FormatPercent就可以自带%的符号）; asp利用sql操作数据表、数据库的一些方法; rs操作数据表记录集对象的方法; [转载]中国行政区划数据（省市区街道）; ASP版通过身份证信息获取对应的生日性别年龄; ASP网站打开特别卡提示：msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法

Ads loading...

更多>>最新添加文章: 批量删除access字段里面fld.Properties.Delete; ASP操作access或sqlserver数据库的函数库; asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法; asp中求两个数的百分比（利用百分比函数FormatPercent就可以自带%的符号）; asp利用sql操作数据表、数据库的一些方法; rs操作数据表记录集对象的方法; asp利用dateadd获得上个月、本月、下个月的第一天和最后一天; asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）

业务 QQ：565449214
手机：139 6134 7334

更多>>随机抽取信息: 淘宝产品首字母类别效果; 华东宾馆; JavaScript技巧:让网页自动穿上外套; 用Javascript仿flash焦点图片效果支持IE与火狐; 旅行社网站管理系统免费版 V2.4; 修改注册表优化Win XP技巧20招; 网站页面重新构写,正在验证其它浏览器; 如何让百度、Google收录你的站点

Ads loading...