Задать вопрос
Ответы пользователя по тегу Microsoft Access
  • Как разбить дату на цифры, а слова на буквы?

    BudVic
    @BudVic Автор вопроса
    Начинающий программист
    Отвечаю сам на свой вопрос, возможно кому пригодится.

    Private Sub Кнопка()
    Dim sStr
    Dim Dat
    Dim Datall
    sStr = Split(Me!ДатаРождения, ".")
    Dat = Array(sStr(0), sStr(1), sStr(2))
    Datall = Join(Dat, "")
    Dim i As Long
    Dim numb() As String
    ReDim numb(Len(Datall) - 1)
    For i = 0 To Len(Datall) - 1
    numb(i) = Mid$(Datall, i + 1, 1)
    MsgBox numb(i)
    Next i
    End Sub
    Ответ написан
    Комментировать