cdate vba

Ответ от Sir Dragon the Great[гуру]
Public Function Zodiac(R As Range) As String Dim D As Date On Error Resume Next D = CDate(Day(R.Value) & \",\" & month(R.Value) & \".\" & \"2000\") If Err.number <> 0 Then Zodiac = \"#ОШИБКА\" Exit Function End If On Error Goto 0 Select Case True Case (D <= CDate(\"21.01.2000\") And D >= CDate(\"01.01.2000\")) Or D >= CDate(\"22.12.2000\") Zodiac = \"Козерог\" Case (D >= CDate(\"22.01.2000\") And D <= CDate(\"21.02.2000\")) Zodiac = \"Водолей\" Case (D >= CDate(\"22.02.2000\") And D <= CDate(\"21.03.2000\")) Zodiac = \"Рыбы\" \'и т. д. End Select End Function