В новой форме вывести пол человека, возраст, и гороскоп - 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

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

10 голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы