VBA - Программа для приложения Word

[zena]

Ввести с клавиатуры дату(описать её с помощью типа Date). Ввести цифру(от 0 до 9). Определить содержит ли введённая дата заданную цифру.

[zena]

В чём собсно проблема?

[Hector]

Любезный, в нежелании думать!

[Delirium]

zena, VBA - широкое понятие. Куда ввести дату? Word, Excel, Access? Ввели дату, сохранили ее как строку, проверили стандартной функцией, есть ли цифра в полученной строке. Задание для первоклассника.

[KnRSU]

Код:

Код: Выделить всё

Dim a as String
Dim b as String 
a = InputBox("", "", "")
If IsDate(a) Then
   b = InputBox("", "", "")
   If IsNumeric(b) Then
      If Val(b & "") >=0 and Val(b & "") <= 9 Then
         If InStr(1, Format$(a, "dd.mm.yyyy"), b, vbTextCompare) >= 0 Then
            MsgBox("Введённое число (" & b & ") содержится в введённой дате " & Format$(a, "dd.mm.yyyy") & " в позиции №" & Trim(Str(InStr(1, Format$(a, "dd.mm.yyyy"), b, vbTextCompare) + 1)) & " в отсчёте от начале строки")
         Else
            MsgBox("Введённое число (" & b & ") не содержится в введённой дате " & Format$(a, "dd.mm.yyyy"))
         End If
      Else
         MsgBox("Введённое число находится за пределами интервала [0, 9]")
      End If
   Else
      MsgBox("Введенное значение не является корректным значением для типа Integer/Long")
   End If
Else
   MsgBox("Введенное значение не является корректным значением для типа Date")
End If

как то так, мучайте мануалы хотябы чуток