Работа с БД, Дата - VB
Формулировка задачи:
Здравствуйте, у меня такая проблема! Я к программе подключил БД SQl. Мне нужно что бы при добавлении нового сотрудника в бд оно смотрело что бы сотрудник не был младше 18! Заранее спасибо
Решение задачи: «Работа с БД, Дата»
textual
Листинг программы
Dim strAge As String strAge = CStr(Abs(DateDiff("yyyy", DTPicker1.Value, Date, vbMonday))) If strAge > 18 Then MsgBox "Больше 18 лет!" Else MsgBox "Меньше 18 лет!" End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д