none
Variavel de Data com InputBox, como fazer? RRS feed

  • Pergunta

  • Pessoal, sou iniciante e estou editando um código e preciso incluir uma variável de data. Segue o código onde aparece para selecionar a data:

    Rep.SetProperty "Datas","04/07/2012"

    Pretendo fazer isso com o InputBox, como faço?
    quinta-feira, 5 de julho de 2012 14:45

Respostas

  • Não sei que objeto é representado por Rep, mas mesmo assim tente:

    Sub Exemplo()
        Dim dt As Date
        Dim sDatas As String
            
        sDatas = InputBox("Informe o valor do texto 'Datas'", , "Datas")
        If sDatas = "" Then Exit Sub
        On Error Resume Next
        dt = InputBox("Informe a data (d/m/aaaa)", , Date)
        On Error GoTo 0
        If dt = 0 Then
            MsgBox "Data inválida!", vbCritical
            Exit Sub
        Else
            Rep.SetProperty sDatas, VBA.Format(dt, "dd/MM/yyyy")
        End If
    End Sub

    Se não der, experimente alterar a sintaxe da função Format. Volte a postar.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 5 de julho de 2012 21:24
    Moderador