Caros Colegas

 

Preciso de uma ajuda, estou usando este codigo para gerar automaticamente a data e a hora num textbox:

 

Private Sub txtDataInicio_LostFocus()
    If Trim(txtDataInicio.Text) <> "" Then txtDataInicio.Text = Format(txtDataInicio.Text, "dd/mm/yyyy hh:mm ")

End Sub

 

 mas ele esta retornando a seguinte data 31/12/1899 só que eu não posso colocar now pq tenho que alterar a hora que a pessoa fez o trabalho.

 

 

Alguem pode me ajudar

 

 

Abraços

  

 

Não entendi o porque nãopode utilizar o Now, se afinal assim que o foco sair do txtdatainicio a data a ser colocada lá será justamente a armazenada em NOW

Voce tem que fazer a formatação da data e na propriedade Format do Text, coloque a data abreviada e formate o Text com a formatação regional, que é possivel que seja "dd/mm/yyyy"

Text1.text = format$(Text1.text, "dd/mm/yyyy")

então teste

If Not IsDate(Text1.text) Then

 

vlu//