Даты в VBA

[dimok5]

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

[was3110]

Это Вам так задание выдали? Хоть объяснили куда вводить дату (что с клавиатуры это понятно)

[dimok5]

Нам всё время такие задания дают=\
Ну примерно что-то такое...
Нужно переменной присвоить тип даты. И осуществить запись даты в эту переменную.
Затем, в другую переменную записать число.
И после этого проверить есть ли в этой дате записанное число.

[was3110]

Ну, сейчас, уже более понятно. Однако, цифру 0-9 ищем среди "27.01.2011" или "27.01.11" Это разный формат одной и той же даты, которая в памяти представлена числом 40570. Так что не все однозначно в условии. Отвечай, сейчас сделаю.

[was3110]

Хотя, прежде чем делать, надо выбрать вариант.
1. Преобразуем дату в строку определенного формата. И цифру тоже в строку. И ищем вхождение подстроки в строке.
2. Определяем день даты как число (27). Определяем месяц однозначный (1) или двузначный (12) числом. определяем год(11) или (2011). И проверяем уже в них вхождение цифры.
Какой вариант сделать? Первый короче и вроде более предпочтительней.

Dim d As Date
Dim n As Integer, p As Integer ' цифра и позиция
Dim s As String
d = CDate("27.01.2011")
n = 5
If InStr(1, CStr(d), CStr(n)) Then
MsgBox "есть такая цифра"
Else
MsgBox "нет такой цифры"
End If

Дату и число я вводил для проверки, а ты введешь как тебе надо.

[dimok5]

хм....первый вариант я думаю лучше. Спасибо.

[dimok5]

У меня что-то вышло, но при вводе числа, не входящего в дату, не выдаёт ошибку о том, что этой цифры в дате не находится....

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"))
         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

Что нужно изменить в программе???