Question

excel用vba宏处理一些日期时间

有一个excel表在B列的数据全部是日期时间，格式是这样的：Fri 2/17 11:29:00
就是简写的星期+日期+时间，现在要求用vba宏处理这个日期时间加上16个小时 然后格式变成 2/18/12 23:00，如某行单元格原来的值为Fri 2/17 11:59:00 则变成 2/18/12 03:59，感谢所有的热心网友~

Answer 1

在VBA中日期的一部分加减可以使用dateadd函数。
比如dateadd("yyyy",1,now())，在今天的日期上加上一年。
比如dateadd("yyyy",-1,now())，在今天的日期上减去一年。
比如dateadd("d",1,now())，在今天的日期上加上一天。
比如dateadd("d",-1,now())，在今天的日期上减去一天。
比如dateadd("m",1,now())，在今天的日期上加上一月。
比如dateadd("d",-1,now())，在今天的日期上减去一月。

Answer 2

不用VBA，直接用你的日期 +TEXT("16:00","h:mm")就可以了

追问

因为还有其他数据要自动化处理，所以必须使用vba，谢谢！

追答

囧~~~简单写了一个，操作方法：选中要+小时的单元格，然后运行宏（如果要修改加的小时，请修改(#4:00:00 PM#)），
Sub Macro1()
'
' Macro1 Macro
''
Dim r, c, rs As Integer
c = Selection.Column
rs = Selection.Row + Selection.Rows.Count '结束行
For r = Selection.Row To rs
Cells(r, c) = Cells(r, c) + (#4:00:00 PM#)
Next r
End Sub

Answer 3

Function zftosj(str)
Dim sj As Date
sj = "2012/" & Right(str, Len(str) - 4)
zftosj = sj + #4:00:00 PM#
End Function

Answer 4

有表格吗》？可以发给我，qls38@139.com

追问

已发