Question

我正在尝试设置今天的日期，并以不同的格式使用它来完成各种任务，但我不知道如何去做。我知道Date是一个全局变量，但它在我们的系统上采用2017-12-19格式，对于某些任务，我需要它mm-dd-yyyy或mm-dd但我不知道如何在不提示用户手动输入所述格式的日期的情况下进行设置。我也可以像字符串一样使用Date变量，还是需要转换它？

Sub BasedOnDate()
Dim filename As String, Source As String, Destination As String
Dim myValx As String
Dim myVal1 As Date
Dim myValn As Date
Dim myFile As String
Dim myPath As String

'trying to declare today's date, but just the month and day as "mm-yy"
myVal1 = Date("mm-yy")
myValn = Replace(myVal1, "-", "\")

'trying to declare the date here in the desired format
myValx = Date("mm-dd-yyyy")

'File paths
Source = "\\Rdcicgtcuwd01p\app_log\36196_WMS\WMS_36196_PROD_" & myValx & ".csv"
Destination = "\\olscmesf003\gcm_emea\TCU_REPORTS\APPS\Reports\Regional\Workflow Management System\2017\" & myValn


FileCopy Source, Destination


End Sub

Answer 1

您可以使用Format() function：

myValx = Format(Date, "mm-dd-yyyy")

提示：请记住Format()返回字符串，这里工作正常，但在其他情况下可能会出现问题。

在一个模块中使用不同格式的Date变量

1 个答案: