Работа с БД, Дата - 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