Question

我希望设置一个固定dd和mm但是当前年份的日期，例如01/01/2018或31/01 / 201,05 / 08/201（在我们中dd和mm相反）等等。你好伙计们，我希望设定一个固定dd和mm但是当前年份的日期，例如01/01/2018或31/01 / 201,05 / 08/201（在我们dd和mm中是相反的）等等。我知道只有数字和字符串可以设置为公共const;

因此我到目前为止尝试过：

Public Const gen1 As Long = CLng(#1/1/year(date)#)

但不起作用请问任何提示？感谢

Answer 1

常量不能包含变量，在VBA中，你不能像变量那样对变量进行Dim并同时赋值（你可以在VB.NET中使用）。

它会写得更像这样：

type Sort struct {
    Field string `xml:"field"`
    Order string `xml:"field>order"`
}

type Report struct {
    Sort Sort       `xml:"sort"`
}

但那也会给你一个错误......

如果您尝试将gen1的值指定为当前年份，您只需要：

Public gen1 As Long 
gen1 = CLng(#1/1/year(date)#)

如果您希望将当年的1月1日作为日期（不是很长），那么您可以这样做：

gen1 = Year(Date)

Answer 2

公共财产也应该没问题：

Public Property Get TheDate() As Date
    TheDate = DateSerial(Year(Date), 1, 1)
End Property

然后打电话给它：

Debug.Print TheDate

将当前年份的日期设置为公共const

2 个答案: