RELATORIO APENAS COM FAIXA DE MESES E DIAS.
CAROS AMIGOS,
Estou precisando de gerar um relatório apenas com faixa de meses e dias.
Por Exemplo com faixa de data completa (ano, mes e dia) faço assim:
Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof
diai = Day(text1.Text)
mesi = Month(text1.Text)
anoi = Year(text1.Text)
diaf = Day(text2.Text)
mesf = Month(text2.Text)
anof = Year(text2.Text)
CrystalReport1.SelectionFormula = [Ô]{cte.data} >= Date([Ô] & anoi & [Ô],[Ô] & mesi & [Ô],[Ô] & diai & [Ô]) and [Ô] & _
[Ô]{cte.data} <= Date([Ô] & anof & [Ô],[Ô] & mesf & [Ô],[Ô] & diaf & [Ô])[Ô]
Preciso apenas com o mes e o dia.
Desde já agradeço a atenção dispensada.
Estou precisando de gerar um relatório apenas com faixa de meses e dias.
Por Exemplo com faixa de data completa (ano, mes e dia) faço assim:
Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof
diai = Day(text1.Text)
mesi = Month(text1.Text)
anoi = Year(text1.Text)
diaf = Day(text2.Text)
mesf = Month(text2.Text)
anof = Year(text2.Text)
CrystalReport1.SelectionFormula = [Ô]{cte.data} >= Date([Ô] & anoi & [Ô],[Ô] & mesi & [Ô],[Ô] & diai & [Ô]) and [Ô] & _
[Ô]{cte.data} <= Date([Ô] & anof & [Ô],[Ô] & mesf & [Ô],[Ô] & diaf & [Ô])[Ô]
Preciso apenas com o mes e o dia.
Desde já agradeço a atenção dispensada.
Só usar assim, ou ajustar conforme sua necessidade.
CrystalReport1.SelectionFormula = [Ô]day(cte.data)=[Ô] & Mesi & [Ô] and month(cte.data)=[Ô] & Mesi
CrystalReport1.SelectionFormula = [Ô]day(cte.data)=[Ô] & Mesi & [Ô] and month(cte.data)=[Ô] & Mesi
Tópico encerrado , respostas não são mais permitidas