Przykłady odwiedzin

Posted on poniedziałek, styczeń 14, 2008 - 16:24 | by admin |

Przez mały kod możemy powitać użytkownika w zależności od otwarciu formularza. W tym przykładzie możemy zobaczyć trzy różne komunikaty:
1-rano do 12:00;
2-Up o 19:00 dzień dobry;
3-Między 19:00 a 00:00 wieczorem Dobrej.

Wystarczy niewielki kod, który jest w następujący sposób:

Publiczny Powitanie function ()
Dim strMsg As String

Jeśli czas <# 12:00:00 # Następnie
strMsg = "Hello! Miłego dnia! "
ElseIf czas <= # 19:00:00 # Następnie
strMsg = "Hello! Dzień dobry! "
Więcej
strMsg = "Hello! Dobrej nocy! "

End If
Zgodność = strMsg
End Function

Następnie wywołać kod, używamy pola tekstowego i jako pochodzenia monitorowania zgodności napisać = ().

Download: Zgodność