vb整点定时提醒

Private Sub Command1_Click()
If Left(Year(Date$), 4) = Text1 And Left(Month(Date$), 6, 2) = Text2 And Left(Day(Date$), 8, 2) = Text3 And Right(Label1, 5) = "00:00" Then
MsgBox ("你该休息了")
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

为什么我一运行这个程序的时候就提示我错误的参数号或无效的属性赋值?

我就想实现的是用三个TEXT控件输入 年 月 日 在我设定的当天到整点就提醒

麻烦高手帮我看下

LEFT有两个参数，你给了三个参数，所以出错

对于你的程序，我改动了一下，给你做参考吧，其实你判断的地方多余了

Private Sub Command1_Click()

If Year(Date) = Text1 And Month(Date) = Text2 And Day(Date) = Text3 And Right(Label1, 5) = "00:00" Then
MsgBox ("你该休息了")
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub

if语句换为

If Year(Date$) = Text1 And Month(Date$) = Text2 And Day(Date$) = Text3 And Right(Label1, 5) = "00:00" Then

就行了

我看了一下，可能还有一个地方的错误

Text1，Text2，Text3是不是控件的名称

如果是的话，两者进行比较的时候要使用Text1.text的

即 Year(Date) = Text1.text

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息