Программа для приложения Word
Ввести с клавиатуры дату(описать её с помощью типа Date). Ввести цифру(от 0 до 9). Определить содержит ли введённая дата заданную цифру.
|
Любезный, в нежелании думать!
|
zena, VBA - широкое понятие. Куда ввести дату? Word, Excel, Access? Ввели дату, сохранили ее как строку, проверили стандартной функцией, есть ли цифра в полученной строке. Задание для первоклассника.
|
Код:
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
как то так, мучайте мануалы хотябы чуток |
Время: 10:05.
© OSzone.net 2001-
