开始时间 12:13:14
结束时间 13:14:15
如何实现时间的直接相减(相加),得出用时01:01:01
如果把他们转化成秒!在减,然后在转换回去,那就太麻烦了!
11 个解决方案
#1
dim a as date
dim b as date
a=#12:13:14#
b=#13:14:15#
print "相差时间:" & format(b-a,"hh:mm:ss")
dim b as date
a=#12:13:14#
b=#13:14:15#
print "相差时间:" & format(b-a,"hh:mm:ss")
#2
但是我如何把#加进取
a="#" & starttime & "#" ????
而且我这里显示的是
a=#12:13:14 AM#
b=#1:14:15 PM#
如何把他变成24小时制
a="#" & starttime & "#" ????
而且我这里显示的是
a=#12:13:14 AM#
b=#1:14:15 PM#
如何把他变成24小时制
#3
Format函数
根据格式表达式中的指令来格式化参数
哈哈哈哈哈哈 看看语法吧
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
参数是什么捏？
是这些啦：
其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.
firstdayofweek参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbFirstJan:从包含一月一日的那一周开始(缺省)
vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中
vbFirstFullWeek:从本年第一周开始,而此周完全在本年中
对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.
对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式
对于日期和时间序数,该函数使用日期和时间格式或数值格式
对于字符串,该函数创建自定义的字符串格式
举例说明：
Dim VarTime,VarDate,VarStr
VarTime=#18:27:25#
VarDate=#January7,2002#
'以系统设置的长时间格式返回当前系统时间.
VarStr=Format(Time,"LongTime")
'以系统设置的长日期格式返回当前系统日期.
VarStr=Format(Date,"LongDate")
VarStr=Format(VarTime,"h:m:s") '返回"18:27:25"
VarStr=Format(VarTime,"hh:mm:ssAMPM") '返回"06:27:25PM"
'如果没有指定格式,则返回字符串
VarStr=Format(27)'返回"27"
'以下为用户自定义的格式
VarStr=Format(1234.5,"##,##0.00") '返回"1,234.50"
VarStr=Format(334.9,"###0.00") '返回"334.90"
VarStr=Format("VB","<") '返回"vb"
VarStr=Format("vb",">") '返回"VB"
根据格式表达式中的指令来格式化参数
哈哈哈哈哈哈 看看语法吧
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
参数是什么捏？
是这些啦：
其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.
firstdayofweek参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbFirstJan:从包含一月一日的那一周开始(缺省)
vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中
vbFirstFullWeek:从本年第一周开始,而此周完全在本年中
对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.
对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式
对于日期和时间序数,该函数使用日期和时间格式或数值格式
对于字符串,该函数创建自定义的字符串格式
举例说明：
Dim VarTime,VarDate,VarStr
VarTime=#18:27:25#
VarDate=#January7,2002#
'以系统设置的长时间格式返回当前系统时间.
VarStr=Format(Time,"LongTime")
'以系统设置的长日期格式返回当前系统日期.
VarStr=Format(Date,"LongDate")
VarStr=Format(VarTime,"h:m:s") '返回"18:27:25"
VarStr=Format(VarTime,"hh:mm:ssAMPM") '返回"06:27:25PM"
'如果没有指定格式,则返回字符串
VarStr=Format(27)'返回"27"
'以下为用户自定义的格式
VarStr=Format(1234.5,"##,##0.00") '返回"1,234.50"
VarStr=Format(334.9,"###0.00") '返回"334.90"
VarStr=Format("VB","<") '返回"vb"
VarStr=Format("vb",">") '返回"VB"
#4
用FORMAT()
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
#5
只是显示格式不同。其实在内存中date类型都是double数字。
#6
关键在于
我的数据
a=12:13:14
怎么编程
a=#12:13:14#
并且是24小时制的!
我的数据
a=12:13:14
怎么编程
a=#12:13:14#
并且是24小时制的!
#7
up
#8
Dim a, b, c As Date
a = #12:13:14#
b = #13:14:15#
c = b - a
a = #12:13:14#
b = #13:14:15#
c = b - a
#9
来晚了
只能强列同意各楼上
只能强列同意各楼上
#10
ding
#11
ding
#1
dim a as date
dim b as date
a=#12:13:14#
b=#13:14:15#
print "相差时间:" & format(b-a,"hh:mm:ss")
dim b as date
a=#12:13:14#
b=#13:14:15#
print "相差时间:" & format(b-a,"hh:mm:ss")
#2
但是我如何把#加进取
a="#" & starttime & "#" ????
而且我这里显示的是
a=#12:13:14 AM#
b=#1:14:15 PM#
如何把他变成24小时制
a="#" & starttime & "#" ????
而且我这里显示的是
a=#12:13:14 AM#
b=#1:14:15 PM#
如何把他变成24小时制
#3
Format函数
根据格式表达式中的指令来格式化参数
哈哈哈哈哈哈 看看语法吧
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
参数是什么捏？
是这些啦：
其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.
firstdayofweek参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbFirstJan:从包含一月一日的那一周开始(缺省)
vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中
vbFirstFullWeek:从本年第一周开始,而此周完全在本年中
对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.
对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式
对于日期和时间序数,该函数使用日期和时间格式或数值格式
对于字符串,该函数创建自定义的字符串格式
举例说明：
Dim VarTime,VarDate,VarStr
VarTime=#18:27:25#
VarDate=#January7,2002#
'以系统设置的长时间格式返回当前系统时间.
VarStr=Format(Time,"LongTime")
'以系统设置的长日期格式返回当前系统日期.
VarStr=Format(Date,"LongDate")
VarStr=Format(VarTime,"h:m:s") '返回"18:27:25"
VarStr=Format(VarTime,"hh:mm:ssAMPM") '返回"06:27:25PM"
'如果没有指定格式,则返回字符串
VarStr=Format(27)'返回"27"
'以下为用户自定义的格式
VarStr=Format(1234.5,"##,##0.00") '返回"1,234.50"
VarStr=Format(334.9,"###0.00") '返回"334.90"
VarStr=Format("VB","<") '返回"vb"
VarStr=Format("vb",">") '返回"VB"
根据格式表达式中的指令来格式化参数
哈哈哈哈哈哈 看看语法吧
Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
参数是什么捏？
是这些啦：
其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.
firstdayofweek参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbFirstJan:从包含一月一日的那一周开始(缺省)
vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中
vbFirstFullWeek:从本年第一周开始,而此周完全在本年中
对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.
对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式
对于日期和时间序数,该函数使用日期和时间格式或数值格式
对于字符串,该函数创建自定义的字符串格式
举例说明：
Dim VarTime,VarDate,VarStr
VarTime=#18:27:25#
VarDate=#January7,2002#
'以系统设置的长时间格式返回当前系统时间.
VarStr=Format(Time,"LongTime")
'以系统设置的长日期格式返回当前系统日期.
VarStr=Format(Date,"LongDate")
VarStr=Format(VarTime,"h:m:s") '返回"18:27:25"
VarStr=Format(VarTime,"hh:mm:ssAMPM") '返回"06:27:25PM"
'如果没有指定格式,则返回字符串
VarStr=Format(27)'返回"27"
'以下为用户自定义的格式
VarStr=Format(1234.5,"##,##0.00") '返回"1,234.50"
VarStr=Format(334.9,"###0.00") '返回"334.90"
VarStr=Format("VB","<") '返回"vb"
VarStr=Format("vb",">") '返回"VB"
#4
用FORMAT()
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
Format 函数
返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函数的语法具有下面几个部分：
部分 说明
expression 必要参数。任何有效的表达式。
format 可选参数。有效的命名表达式或用户自定义格式表达式。
firstdayofweek 可选参数。常数，表示一星期的第一天。
firstweekofyear 可选参数。常数，表示一年的第一周。
设置值
firstdayofweek 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
VbSunday 1 星期日（缺省）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数有下面设置：
常数 值 说明
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。
vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。
VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。
说明
格式化 作法
数字 使用预先定义的命名数值格式或创建用户自定义数值格式。
日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
日期和时间序数 使用日期和时间格式或数值格式。
字符串 创建自定义的字符串格式。
如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
#5
只是显示格式不同。其实在内存中date类型都是double数字。
#6
关键在于
我的数据
a=12:13:14
怎么编程
a=#12:13:14#
并且是24小时制的!
我的数据
a=12:13:14
怎么编程
a=#12:13:14#
并且是24小时制的!
#7
up
#8
Dim a, b, c As Date
a = #12:13:14#
b = #13:14:15#
c = b - a
a = #12:13:14#
b = #13:14:15#
c = b - a
#9
来晚了
只能强列同意各楼上
只能强列同意各楼上
#10
ding
#11
ding