VB.NET
<%
dim timedifference
TimeDifference = DateDiff("s", rs("updatetime"), Now)
If TimeDifference <60 then
response.write(TimeDifference & "秒前")
Elseif TimeDifference <60*60 then
response.write(TimeDifference\60 & "分钟前")
Elseif TimeDifference <60*60*24 then
response.write(TimeDifference\(60*60) & "小时前")
else if TimeDifference <60*60*60*24 then
response.write(TimeDifference\(60*60*24) & "天前")
end if
End If%>
Function
TimerString(pTimeValue)
'
tOutString = TimerString ( pTimeValue )
'
参数:pTimeValue 以秒表示的时间。
'
返回:tOutString 以文字表示的时间。
tOutString
=
""
tNameListStr
=
"
秒,分,小时,天,周,年
"
'
如果你要取消“年”单位="秒,分,小时,天,周"
tNameList
=
Split
(tNameListStr,
"
,
"
)
tStepListStr
=
"
1,60,60,24,7,52,65536
"
'
如果你要取消“年”单位="1,60,60,24,7,65536"
tStepList
=
Split
(tStepListStr,
"
,
"
)
tItemCount
=
UBound
(tNameList)
ReDim
tAbsValue(tItemCount)
tAbsValue(
0
)
=
CLng
(pTimeValue)
For
tIndex
=
1
To
tItemCount
tAbsValue(tIndex)
=
CLng
(tAbsValue(tIndex
-
1
))
\
CLng
(tStepList(tIndex))
Next
ReDim
tModValue(tItemCount)
For
tIndex
=
0
To
tItemCount
tModValue(tIndex)
=
tAbsValue(tIndex)
Mod
CLng
(tStepList(tIndex
+
1
))
If
CBool
(tModValue(tIndex))
Then
tOutString
=
tModValue(tIndex)
&
tNameList(tIndex)
&
tOutString
End
If
Next
TimerString
=
tOutString
End Function
如果你要取消"周"单位,而只保留"年":
tNameListStr = "秒,分,小时,天,年"
tStepListStr = "1,60,60,24,365,65536"
pTimeValue是这样计算出来的:
相对年=年-参照年(你可以选择一个闰年作为参照,你的网站不会早于这个日期的。)
一年是31557600秒(365.25天)
相对年×31557600+所在年天数×86400+当天的Timer(从0点开始的秒数,可以用Timer取得)
所在年天数需要另外一个程序计算,根据月份表计算。
pTimeValue用long表示,可以以秒记录68年。
C#
public
string
DateStringFromNow(DateTime dt)
{
TimeSpan span = DateTime.Now - dt;
if (span.TotalDays > 60)
{
return dt.ToShortDateString();
}
else if ( span.TotalDays > 30 )
{
return "1个月前";
}
else if (span.TotalDays > 14)
{
return "2周前";
}
else if (span.TotalDays > 7)
{
return "1周前";
}
else if (span.TotalDays > 1)
{
return string.Format("{0}天前", (int)Math.Floor(span.TotalDays));
}
else if (span.TotalHours > 1)
{
return string.Format("{0}小时前", (int)Math.Floor(span.TotalHours));
}
else if (span.TotalMinutes > 1)
{
return string.Format("{0}分钟前", (int)Math.Floor(span.TotalMinutes));
}
else if (span.TotalSeconds >= 1)
{
return string.Format("{0}秒前", (int)Math.Floor(span.TotalSeconds));
}
else
{
return "1秒前";
}
}
C#中使用TimeSpan计算两个时间的差值
可以反加两个日期之间任何一个时间单位。
private string DateDiff(DateTime DateTime1, DateTime DateTime2)
{string dateDiff = null;
TimeSpan ts1 = new TimeSpan(DateTime1.Ticks);
TimeSpan ts2 = new TimeSpan(DateTime2.Ticks);
TimeSpan ts = ts1.Subtract(ts2).Duration();
dateDiff = ts.Days.ToString()+"天"+ ts.Hours.ToString()+"小时"+ ts.Minutes.ToString()+"分钟"+ ts.Seconds.ToString()+"秒";
return dateDiff;
}
TimeSpan ts = Date1 - Date2;
double dDays = ts.TotalDays;//带小数的天数,比如1天12小时结果就是1.5
int nDays = ts.Days;//整数天数,1天12小时或者1天20小时结果都是1
说明:
1.DateTime值类型代表了一个从公元0001年1月1日0点0分0秒到公元9999年12月31日23点59分59秒之间的具体日期时刻。因此,你可以用DateTime值类型来描述任何在想象范围之内的时间。一个DateTime值代表了一个具体的时刻
2.TimeSpan值包含了许多属性与方法,用于访问或处理一个TimeSpan值
下面的列表涵盖了其中的一部分:
Add:与另一个TimeSpan值相加。
Days:返回用天数计算的TimeSpan值。
Duration:获取TimeSpan的绝对值。
Hours:返回用小时计算的TimeSpan值
Milliseconds:返回用毫秒计算的TimeSpan值。
Minutes:返回用分钟计算的TimeSpan值。
Negate:返回当前实例的相反数。
Seconds:返回用秒计算的TimeSpan值。
Subtract:从中减去另一个TimeSpan值。
Ticks:返回TimeSpan值的tick数。
TotalDays:返回TimeSpan值表示的天数。
TotalHours:返回TimeSpan值表示的小时数。
TotalMilliseconds:返回TimeSpan值表示的毫秒数。
TotalMinutes:返回TimeSpan值表示的分钟数。
TotalSeconds:返回TimeSpan值表示的秒数。
/// <summary>
/// 日期比较
/// </summary>
/// <param name="today">当前日期</param>
/// <param name="writeDate">输入日期</param>
/// <param name="n">比较天数</param>
/// <returns>大于天数返回true,小于返回false</returns>
private bool CompareDate(string today, string writeDate, int n)
{
DateTime Today = Convert.ToDateTime(today);
DateTime WriteDate = Convert.ToDateTime(writeDate);
WriteDate = WriteDate.AddDays(n);
if (Today >= WriteDate)
return false;
else
return true;
}