Excel获取当前日期和时间

在Excel中，可以使用多种不同的方式来获取当前日期和时间，这对于许多应用程序和数据分析任务都是非常有用的。

下面介绍三种方法来获取当前日期和时间。

方法一：使用内置函数

使用Excel的内置函数可以方便地获取当前日期和时间。Excel中可以使用NOW()函数来获取当前日期和时间，该函数返回一个数字，它代表excel内部的日期和时间格式。

要获取当前日期和时间，只需将NOW()函数作为公式输入到单元格中。然后，你可以使用格式化选项来将此单元格的格式更改为所需的日期和/或时间格式。

例如：要仅显示日期，而不显示时间，请先选择一个单元格，然后使用快捷键Ctrl+1打开"格式单元格"对话框。在"数字"选项卡中，选择"日期"类别并选择所需的日期格式即可。通常日期格式为"yyyy/mm/dd"或"yyyy年mm月dd日"。

同样的方式，可以设置只显示时间，或者同时显示日期和时间。

方法二：使用VBA宏

除了使用内置函数之外，可以使用VBA宏来获取当前日期和时间。这个方法比使用内置函数更灵活，它可以很容易地将日期和时间格式化为所需的格式。

为了在Excel VBA中获取当前日期和时间，可以使用"Date"和"Time"函数。这两个函数返回当前日期和时间的日期 /时间值。

以下是一些示例代码，可用于从Excel VBA中获取当前日期和时间值：

Sub DateAndTime()
    MsgBox "The current date is: " & Date & vbCrLf & "The current time is: " & Time, vbInformation, "Date and Time"
End Sub

Sub DateOnly()
    MsgBox "The current date is: " & Format(Date, "yyyy-mm-dd"), vbInformation, "Date Only"
End Sub

Sub TimeOnly()
    MsgBox "The current time is: " & Format(Time, "hh:mm:ss AM/PM"), vbInformation, "Time Only"
End Sub

Sub DateTime()
     MsgBox "The current date and time is: " & Format(Now, "yyyy-mm-dd hh:mm:ss AM/PM"), vbInformation, "Date and Time"
End Sub

可以将上面的代码保存为一个名为"datetime.xlsm"的Excel工作簿，在必要时使用。

方法三：使用时间戳

使用时间戳也是获取当前日期和时间的一种常见方法。时间戳是一个数字，它代表自1970年1月1日以来的秒数。当您需要比较和计算日期和/或时间时，时间戳非常有用。

以下是一些示例代码，用于将当前日期和时间转换为时间戳：

Sub UnixTimeNow()
    Dim UnixTime As Long
    UnixTime = CLng(Now - #1/1/1970#) * 86400
    MsgBox "The current Unix time is: " & UnixTime, vbInformation, "Unix Time Now"
End Sub

Sub UnixTimeCustom()
     Dim UnixTime As Long
     UnixTime = CLng(#3/1/2009 10:30:30 AM# - #1/1/1970#) * 86400
     MsgBox "The Unix time of 3/1/2009 10:30:30 AM is: " & UnixTime, vbInformation, "Unix Time Custom"
End Sub

您可以根据需要自定义格式，例如将时间戳转换为日期和时间格式。

总之，上述方法是以Excel获取当前日期和时间的三种方法，你可以根据特定应用的需求选择最适合的方法来提取和记录时间。