Olá a todos!
Tenho um projecto e gostaria de saber como colocar saudação no formulário ao abrir (Bom dia, boa tarde ou boa noite)?
Tenho um projecto e gostaria de saber como colocar saudação no formulário ao abrir (Bom dia, boa tarde ou boa noite)?
Sub Saudacao()
Dim vHoraAgora As Date
vHoraAgora = Time
If vHoraAgora < #12:00:00 PM# Then
MsgBox "Boa dia!"
ElseIf vHoraAgora < #6:00:00 PM# Then
MsgBox "Bom tarde!"
Else
MsgBox "Boa noite!"
End If
End Sub