时间格式转换为数字格式

fy100

如何将时分秒化成秒，如用时1：30：15化成用了多少秒？

yiynlove

用 DatePart  函数分别取得小时数 和分钟数  然后换算成秒 在把他们加起来就行了

DatePart 函数

[url=]请参阅[/url]     [url=]示例[/url]     [url=]特性[/url]

返回一个包含已知日期的指定时间部分的 Variant (Integer)。

语法

DatePart(interval, date[,firstdayofweek[, firstweekofyear]])

DatePart 函数语法中有下列[url=]命名参数[/url]：

部分	描述
interval	必要。[url=]字符串表达式[/url]，是要返回的时间间隔。
date	必要。要计算的 Variant (Date) 值。
Firstdayofweek	可选。指定一个星期的第一天的[url=]常数[/url]。如果未予指定，则以星期日为第一天。
firstweekofyear	可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval [url=]参数[/url]的设定值如下：

设置	描述
yyyy	年
q	季
m	月
y	一年的日数
d	日
w	一周的日数
ww	周
h	时
n	分钟
s	秒

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	从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays	2	从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek	3	从第一个无跨年度的星期开始。

说明

DatePart 函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date 是[url=]日期文字[/url]，则指定的年份成为该日期的固定部分。但是，如果 date 用双引号 (" ") 括起来，且年份略而不提，则在每次计算 date 表达式时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

yiynlove

DatePart 函数示例
本示例先取得一个日期，然后使用 DatePart 函数显示该日期是发生在该年的哪一季。

Dim TheDate As Date    ' 声明变量。
Dim Msg   
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

wj2368

1. Sub yy()
   
2. a = Hour([a1]) * 60 * 60 + Second([a1]) + Minute([a1]) * 60
   
3. MsgBox a
   
4. End Sub
   

复制代码

CheryBTL

1. =TEXT(A1,"[s]")

复制代码

或者：

1. =A1*24*3600
   
2. =A1*86400

复制代码

1374297653

=HOUR(D12)*3600+MINUTE(D12)*60+SECOND(D12)

fy100

谢谢！太好了！

fy100

1374297653 发表于 2013-2-19 18:06
=HOUR(D12)*3600+MINUTE(D12)*60+SECOND(D12)

谢谢你！