如何從雙倍的時間戳中減去秒數？

Question

我想從時間戳中減去任何秒，其類型爲Double。

下面是我想象的功能：

Function subtractSeconds() 

Dim timeStamp As Double 
Dim timeStampSeconds As Double 

timeStamp = Cells(1, 1) 
'timeStampSeconds = getSeconds(timeStamp) 

'Cells(1, 1) = timeStamp - timeStampSeconds 

End Function 

這裏是我到目前爲止，與comments幫助。我當然要找的東西更優雅：

Function subtractSeconds() 

Dim timeStamp As Double 
Dim timeStampHours As Long 
Dim timeStampMinutes As Long 
Dim timeStampSeconds As Long  

timeStamp = Cells(1, 1) 

Cells(1, 1) = Format(Cells(1, 1), "yyyy/m/d hh:mm:ss") 
timeStampHours = DatePart("h", Cells(1, 1)) 
timeStampMinutes = DatePart("m", Cells(1, 1)) 
'timeStampSeconds = DatePart("s", Cells(1, 1)) 

'something like the following to put the date time back together without seconds 
'Cells(1, 1) = Format(Cells(1, 1), "yyyy/m/d") & TimeValue(timeStampHours & ":" & timeStampMinutes & ":" & 0)) 

'Convert back to double 

End Function 

Answer 1

如果你能Format()您Cells(1, 1)，那麼它包含恰好被格式化爲一個數呈現一個有效的VBA日期。

此時你需要

Cells(1, 1).Value = DateAdd("s", -DatePart("s", Cells(1, 1).Value), Cells(1, 1).Value) 

然而，這將數的單元格中的外觀更改爲日期，即使它仍然會被存儲爲一個數字。如果你想保持多項外觀，使用Value2：

Cells(1, 1).Value2 = DateAdd("s", -DatePart("s", Cells(1, 1).Value2), Cells(1, 1).Value2)