Знаки зодиака по введенной дате - VB

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

Даны два целых числа: D (день) и M (месяц), определяющие правильную дату. Вывести знак Зодиака, соответствующий этой дате: «Водолей» (20.1–18.2), «Рыбы» (19.2–20.3), «Овен» (21.3–19.4), «Телец» (20.4–20.5), «Близнецы» (21.5–21.6), «Рак» (22.6–22.7), «Лев» (23.7–22.8), «Дева» (23.8–22.9), «Весы» (23.9–22.10), «Скорпион» (23.10–22.11), «Стрелец» (23.11–21.12), «Козерог» (22.12–19.1).

Код к задаче: «Знаки зодиака по введенной дате - VB»

textual
Private Sub Command1_Click()
 
Dim k As Integer, SLeft As String, SRight As String, d As Single, S As String
 
'на всякий случай убираем пробелы
S = Replace(Text1.Text, " ", "")
 
'меняем в дате местами день и месяц
k = InStr(S, ".")
SLeft = Left(S, k - 1)
SRight = Right(S, Len(S) - k)
d = Val(SRight & "." & SLeft)
 
If d >= 1.2 Then S = "Водолей"
If d >= 2.19 Then S = "Рыбы"
If d >= 3.21 Then S = "Овен"
If d >= 4.2 Then S = "Телец"
If d >= 5.21 Then S = "Близнецы"
If d >= 6.22 Then S = "Рак"
If d >= 7.23 Then S = "Лев"
If d >= 8.23 Then S = "Дева"
If d >= 9.23 Then S = "Весы"
If d >= 10.23 Then S = "Скорпион"
If d >= 11.23 Then S = "Стрелец"
If d >= 12.22 Or d <= 1.19 Then S = "Козерог"
 
Label1.Caption = S
 
 
End Sub

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ