Exibir uma mensagem de cumprimento
Através de um pequeno código podemos dar as boas vindas ao utilizador dependendo da hora em que abra o formulário. Neste exemplo podemos ver três mensagens diferentes:
1-Até às 12:00 Bom dia;
2-Até às 19:00 Boa tarde;
3-Entre as 19:00 e as 24:00 Boa noite.
Apenas precisamos de um pequeno código, que é o seguinte:
Public Function Cumprimento()
Dim strMsg As StringIf Time < #12:00:00 PM# Then
strMsg = “Ola! Tenha um bom dia!”
ElseIf Time <= #7:00:00 PM# Then
strMsg = “Ola! Tenha uma boa tarde!”
Else
strMsg = “Ola! Tenha uma boa noite!”End If
Cumprimento = strMsg
End Function
Depois para chamar o código, utilizamos uma caixa de texto e como origem do controlo escrevemos =cumprimento().
Download: Cumprimento
Sem comentários.