В новой форме вывести пол человека, возраст, и гороскоп - VB
Формулировка задачи:
написать программу в vba ! дана форма в ней ввести имя фамилию отчество , дату рождения! и кнопку вычислить ! программа в новой форме должна вывести пол человека, возраст, и гороскоп ) пожалуйста помогите )
Решение задачи: «В новой форме вывести пол человека, возраст, и гороскоп»
textual
Листинг программы
Private Sub Command1_Click() Dim str() As String Dim pol As String Dim age str = Split(Text1.Text) 'делаем массив из ф.и.о. If Right(str(2), 1) = "ч" Then pol = "мужской" 'если последняя буква отчества - ч, тогда муж. If Right(str(2), 1) = "а" Then pol = "женский" 'если последняя буква отчества - а, тогда жен. age = Format(Date, "yyyy") - Right(Text2.Text, 4) 'из текущего года вычитаем год вписанный в Text2 MsgBox "Пол: " & pol & "Возраст: " & age End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д