INTERVALO DE DATAS NO CRYSTAL
Ola Amigos
Tenho um campo data de nascimento e tenho um relatorio onde digitarei um periodo e desejo pegar todos os aniversariantes desse intervalo digitado.
O relatorio esta no Crystal 7 com VB6.
Acredito que na formula do Crystal eu deva pegar apenas o dia e o mes, porem nao consegui resolver o problema, poderiam me ajudar?
Ja tentei varias sintaxes e algumas deram erro e outras exibiram os dados normalmente sem o filtro desejado.
No momento, estou usando a sintaxe abaixo que tambem nao esta funcionando:
strFormula = [Ô]month{ALUNOS.TBCLI_DATANASC} =[Ô] & Month(CDate(dtpInic.Value))
strFormula = strFormula & [Ô] AND day{ALUNOS.TBCLI_DATANASC} = [Ô] & Day(CDate(dtpInic.Value))
strFormula = strFormula & [Ô] and month{ALUNOS.TBCLI_DATANASC} = [Ô] & Month(CDate(dtpFIM.Value))
strFormula = strFormula & [Ô] AND day{ALUNOS.TBCLI_DATANASC} = [Ô] & Day(CDate(dtpFIM.Value))
Obrigado
Tenho um campo data de nascimento e tenho um relatorio onde digitarei um periodo e desejo pegar todos os aniversariantes desse intervalo digitado.
O relatorio esta no Crystal 7 com VB6.
Acredito que na formula do Crystal eu deva pegar apenas o dia e o mes, porem nao consegui resolver o problema, poderiam me ajudar?
Ja tentei varias sintaxes e algumas deram erro e outras exibiram os dados normalmente sem o filtro desejado.
No momento, estou usando a sintaxe abaixo que tambem nao esta funcionando:
strFormula = [Ô]month{ALUNOS.TBCLI_DATANASC} =[Ô] & Month(CDate(dtpInic.Value))
strFormula = strFormula & [Ô] AND day{ALUNOS.TBCLI_DATANASC} = [Ô] & Day(CDate(dtpInic.Value))
strFormula = strFormula & [Ô] and month{ALUNOS.TBCLI_DATANASC} = [Ô] & Month(CDate(dtpFIM.Value))
strFormula = strFormula & [Ô] AND day{ALUNOS.TBCLI_DATANASC} = [Ô] & Day(CDate(dtpFIM.Value))
Obrigado
Companheiro, tenta assim
cr1.SelectionFormula = [Ô]{ALUNOS.TBCLI_DATANASC}>=date([Ô] & _
Year(CDate(Text2.Text)) & [Ô],[Ô] & Month(CDate(Text2.Text)) & [Ô],[Ô] & _
Day(CDate(Text2.Text)) & [Ô])[Ô] & _
[Ô] and {ALUNOS.TBCLI_DATANASC}<=date([Ô] & _
Year(CDate(Text3.Text)) & [Ô],[Ô] & Month(CDate(Text3.Text)) & [Ô],[Ô] & _
Day(CDate(Text3.Text)) & [Ô])[Ô]
[ô] text2 ->data inicial
[ô]text3 -> data final
flw
cr1.SelectionFormula = [Ô]{ALUNOS.TBCLI_DATANASC}>=date([Ô] & _
Year(CDate(Text2.Text)) & [Ô],[Ô] & Month(CDate(Text2.Text)) & [Ô],[Ô] & _
Day(CDate(Text2.Text)) & [Ô])[Ô] & _
[Ô] and {ALUNOS.TBCLI_DATANASC}<=date([Ô] & _
Year(CDate(Text3.Text)) & [Ô],[Ô] & Month(CDate(Text3.Text)) & [Ô],[Ô] & _
Day(CDate(Text3.Text)) & [Ô])[Ô]
[ô] text2 ->data inicial
[ô]text3 -> data final
flw
Bom vamos ver, primeiro use a função Mid para o Crystal entender a data.. assim...
E depois filtre..
Abraços, aaa, notei que esse tópico é bem antigo, se já resolveu o problema, por favor encerre o tópico, abraços.
Dim Data1 As String
Data1 = Mid(cbovcto.Text, 7, 4) & [Ô],[Ô] & Mid(cbovcto.Text, 4, 2) & [Ô],[Ô] & Mid(cbovcto.Text, 1, 2)
Dim Data2 As String
Data2 = Mid(cbovcto.Text, 7, 4) & [Ô],[Ô] & Mid(cbovcto.Text, 4, 2) & [Ô],[Ô] & Mid(cbovcto.Text, 1, 2)
E depois filtre..
CRRep.RecordSelectionFormula = [Ô]{Tab1.CampoData1}>=date([Ô] & Data1 & [Ô]) and {Tab2.CampoData2}<=date([Ô] & Data2 & [Ô])[Ô] Abraços, aaa, notei que esse tópico é bem antigo, se já resolveu o problema, por favor encerre o tópico, abraços.
Tópico encerrado , respostas não são mais permitidas