Строковые функции - VB

Узнай цену своей работы

Формулировка задачи:

Мне надо изменить код так, чтобы он смог работать с числами. Вот код:
Должно быть как на картинке. Я пытался сам. Label мне не нужен(по заданию), убирая строки с Label я так же, убирал строки которые с ним могут быть связаны. Не получилось. Помогите, чем сможете, спасибо!

Решение задачи: «Строковые функции»

textual
Листинг программы
Dim d As Date
If IsDate(Text1.Text) Then
d = Text1.Text
Label1 = Day(d)
Label2 = Month(d)
Label3 = Year(d)
Else
MsgBox "Format ##.##.#### or ##/##/####"
End If

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

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