VB.net如果Day（Now）= 1

Question

我希望这个程序在某一天（生日）做某事 我试过了

If Date.Day(Now) = 1 And Month(Now) = 3 Then
  MsgBox("Happy Birthday!")
End If

但Date.Day(Now)似乎不正确（Month(Now)工作正常）。 错误是：

  

没有为类型'Date'和'Integer'

定义Operator'='

Answer 1

使用.NET Framework DateTime structure及其属性

If DateTime.Now.Day = 13 And DateTime.Now.Month = 9 Then
    Console.WriteLine("Happy Birthday!")
End If

如下面的评论中所示，您正在混合调用VB6兼容性库（Microsoft.VisualBasic.dll中的Month（现在））并调用DateTime结构（Date别名），但DateTime结构不会有一个名为Day的共享成员，而是有一个名为Now的共享属性，您可以从此属性中提取Day值。

如果您坚持使用Microsoft.VisualBasic兼容库，那么您的代码应该是

If Day(Now) = 13 And Month(Now) = 9 Then
.....