Достъп Примери

Публикувано на понеделник, 14 януари, 2008 - 16:24 | от администратор |

През малък код можем да приветстваме на потребителя в зависимост от времето, когато отворите формата. В този пример можем да видим три различни съобщения:
1-сутрин до 12:00 часа;
2-Up от 19:00 Добър ден;
3-между 19:00 и 00:00 Добър вечер.

Просто трябва малко код, който е както следва:

Поздрави на публична функция ()
На Дим strMsg като низ

Ако Time <# 12:00:00 PM # Тогава
strMsg = "Здравей! Приятен ден! "
ElseIf Time <= # 7:00:00 PM # Тогава
strMsg = "Здравей! Добър следобед! "
Още
strMsg = "Здравей! Приятна вечер! "

Крайна сметка, ако
Съвместимост = strMsg
End Function

Тогава да се обадя на кода, ние използваме текстовото поле и произхода на мониторинг на спазването напишете = ().

Изтегли: съответствие