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

[zena]

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

[Любезный]

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

[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


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