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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы