Príklady prístupov

Vyslaný v pondelok 14. januára 2008 - 16:24 | by admin |

Cez malý kód, ktorý sme mohli privítať používateľa v závislosti na dobe otvorenia formulára. V tomto príklade vidíme tri rôzne správy:
1-ráno do 12:00;
2-Up o 19:00 Dobré popoludnie;
3-medzi 19:00 a 00:00 Dobrý večer.

Stačí malý kód, ktorý je nasledujúci:

Public function pozdrav ()
Dim strMsg As String

Ak čas <# # Potom 12:00:00
strMsg = "Hello! Pekný deň! "
ElseIf čas <= # 19:00:00 # Potom
strMsg = "Hello! Dobré popoludnie! "
Iný
strMsg = "Hello! Mať dobrú noc! "

End If
Zhoda = strMsg
End Function

Potom volať kód, používame textové pole a ako pôvod kontroly ich dodržiavania, písať = ().

Download: Súlad