Tenho uma aplicação na qual desejo realizar a consulta num E3chart selecionando a data porém a hora com um valor pré definido, por exemplo : data inicial sempre com 00:00:00 e data final sempre 23:59:00 sem que precise digitar esses valores.
Valor de hora fixo no datepicker
Olá @SHIELDAUTOMACAO,
Nesse caso, uma das formas seria criar um script conforme imagem:
Atenciosamente,
Lucas Angelo
Será que não tem como elaborar um script que chame o datepicker com a hora já fixada e a data selecionável?
Boa tarde @SHIELDAUTOMACAO,
Sim, o ultimo parametro do método ShowDatePicker() do objeto Viewer é para definir a data Default do janela.
ShowDatePicker(DateValue, [Left], [Top], [DefaultDate])
Abre uma caixa de diálogo para a alteração da data e da hora. Este método retorna Verdadeiro se o usuário confirmar a data ou Falso se o usuário cancelar a edição. A nova data é retornada no parâmetro DateValue. A posição da caixa de diálogo pode ser configurada através dos parâmetros opcionais Left e Top, que indicam a distância da margem esquerda e do topo da tela em pixels, respectivamente. Caso estes parâmetros não sejam informados, a caixa de diálogo é centralizada. O valor do parâmetro opcional DefaultDate é a data e a hora do momento em que a caixa de diálogo é aberta. Se não é informada a data, assume a data atual. Se não é informada a hora, inicia como “00:00:00”. Se nem a data nem a hora são informadas, inicia com a data e a hora atuais.
Este script chama o DatePicker com data e hora atual, como ficaria pra chamar ele com a data atual mas hora com valor fixo 23:59:59 por exemplo?
Não consegui rodar o script anterior
Desde já… grato !!!
Sub Foo()
Dim dt
Dim lastTime
lastTime = TimeSerial(23, 59, 59)
If Application.ShowDatePicker(dt, , , lastTime) Then
dt = CDate(FormatDateTime(dt, vbShortDate) & " " & lastTime)
MsgBox dt
End If
End Sub
Prezados colegas, muito obrigado pela ajuda… RESOLVIDO!!