VB计算两个日期时间的间隔

Posted 2023-04-15

比如我有两个时间的字符串：
DateTime1 = "2011年6月27日 6:52:22"
DateTime2 = “2011年6月28日 13:52:14"
我怎么求出这两个时间的中间时长
直接使用 35:52:22 这种形式

DATEDIFF 函数计算指定的两个日期中第二个日期与第一个日期的时间差的日期部分。换句话说，它得出两个日期之间的间隔。结果是等于date2 - date1 的日期部分的带符号整数值。
示例代码:
Dim time1 As Date
Dim time2 As Date
Dim td as date
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
td=datediff("ss",time1,time2)
这个只可以求出相差多少秒，还需要你自己进位求出是几秒几分几小时，你可以自己百度"datediff"的用法！ 参考技术A DateTime1 = "2011年6月27日  6:52:22"
DateTime2 = "2011年6月28日  13:52:14"
Dim hh, ss, mm
mm = DateDiff("s", DateTime1, DateTime2)
ss = mm \\ 60
hh = ss \\ 60
ss = ss Mod 60
mm = mm Mod 60
MsgBox hh & ":" & ss & ":" & mm

本回答被提问者采纳 参考技术B Dim time1 As Date
Dim time2 As Date

time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
Debug.Print (time2 - time1) * 24 * 3600
你转化一下就可以了追问

结果在那里呢？比如我Time3就是最终结果，该怎么写？

追答

Dim time1 As Date
Dim time2 As Date
Dim time3 As Long
Dim h As Long
Dim h1 As Long
Dim m As Long
Dim m1 As Long
Dim s As Long
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
time3 = (time2 - time1) * 24 * 3600
h = time3 \ 3600
h1 = time3 Mod 3600
m = h1 \ 60
m1 = h1 Mod 60
s = m1
MsgBox h & " 时" & m & "分" & s & "秒"

参考技术C

可以使用VB的DateDiff 函数

参考技术D DateDiff 函数

毫无疑问

msdn 里有的

C# 计算两个日期的时间间隔

文章目录

• 计算间隔
• • 方法一：DateTime.Subtract(DateTime)
  • 方法二：直接相减
• 知识说明:
• • TimeSpan方法
  • TimeSpan结构

计算间隔

方法一：DateTime.Subtract(DateTime)

参数为两个datetime类型，返回的是处理后的字符串

如果不知道字符串怎样转化为DateTime 类型，可以参考我整理的另一篇博文：
https://yangyongli.blog.csdn.net/article/details/117649851

方法一用DateTime.Subtract(DateTime) 方法进行计算，其结果与方法1相同，表示用当前时间减去参数所代入的时间，返回一个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;
}

方法二：直接相减

1、两个DateTime直接相减，得到一个TimeSpan，表示两个时间的间隔

DateTime dTimeEnd = examAirTime.AddMinutes(examPeriod); 
DateTime dTimeServer = dataClass.getDateServer(); 
TimeSpan ts = dTimeEnd - dTimeServer; 
TimeSpan ts2 = dTimeEnd.Subtract(dTimeServer); 
MessageBox.Show(ts.ToString() + "\\n" + ts2.TotalMinutes.ToString());

知识说明:

1.DateTime值类型代表了一个从公元0001年1月1日0点0分0秒到公元9999年12月31日23点59分59秒之间的具体日期时刻。

因此，你可以用DateTime值类型来描述任何在想象范围之内的时间。一个DateTime值代表了一个具体的时刻。

2.TimeSpan值包含了许多属性与方法，用于访问或处理一个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值表示的秒数。

TimeSpan结构

TimeSpan结构表示一个时间间隔，按正负天数、小时数、分钟数、秒数以及秒的小数部分进行度量。

• TimeSpan对象的文本（.tostring()）“11.13:46:40”，表示 11 天，13 小时，46 分钟和 40 秒。

• TimeSpan.TotalSeconds 属性：获取以整秒数和秒的小数部分表示的当前 TimeSpan 结构的值，可为负数。即将天、小时、分、秒转化为秒来显示。

• TimeSpan的Days、Hours、minutes、seconds属性：分别用于获取时间间隔的天、小时、分、秒。