NJNEWS
|
AMPARO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2011 23:11 hs
Bom dia amigos é seguinte tenho uma textbox de pesquisa, meu BD é em Firebird para fazer a pesquiza tebho que digitar assim 2011-10-01, para ele fazer a busca não tem como digitar normalmente e ele converter Grato |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2011 23:17 hs
sim colega na pesquis coloque
Format(txtData.Text,"YYYY-MM-DD")
pronto, digite normal e pesquise
|
|
|
|
NJNEWS
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2011 00:12 hs
Ola amigo Treze ao digitar na textbox ele sai a data 1899-12-31 sera que tenho que usar tipo assim, Private Sub txtProcurar_LostFocus txtProcurar = Format(txtProcurar.Text, "YYYY-MM-DD") |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2011 05:30 hs
Eu uso esta função abaixo para Select, já me retorna a data no formato da pesquisa.
Public Function inverdaTA(srDTA As String) As String
Dim sDIA As String
Dim sMES As String
Dim sANO As String
sDIA = Format(Day(srDTA), "00")
sMES = Format(Month(srDTA), "00")
sANO = Format(srDTA, "yyyy")
inverdaTA = "#" & sANO & "/" & sMES & "/" & sDIA & "#"
Exit Function
End Function
Para chamar a função, evite trazer no TextBox este formato, chame assim:
srDTA = Format$(txtData.Tex, "dd/mm/yyyy")
srDTA = inverdaTA(srDTA)
A variável retorna no formato da pesquisa.
vlu//
|
|
|
|
NJNEWS
|
AMPARO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2011 07:43 hs
LCRamos
nao sei se é assim, mais não funcionou ??? Private Sub txtProcurar_Change()
Filtro
If opt4.Value = True Then
txtProcurar.MaxLength = 10
srDTA = Format$(txtProcurar.Text, "dd/mm/yyyy")
srDTA = inverdaTA(srDTA)
End If
End Sub
|
|
|
|
|
|
Postada em 16/05/2011 08:34 hs
Deixe configuração regional do windows para dd/mm/yyyy
srDTA = Format(txtProcurar.Text, "dd/mm/yyyy")
ou
srDTA = Format(txtProcurar.Text, "yyyy/mm/dd")
|
|
|
|
