Problemas de compatibilidad de fechas
Hola amigos tengo un problema tengo el siguiente codig no se si este bien soy un poco nuevo en esto pero no se si me puedan ayudar
dia=thisform.combo2.ListIndex
mes=thisform.combo3.ListIndex
anio=thisform.text1.Value
FECHA="mes/dia/anio"
Select Reporte
Set filter to reporte.Fecha=DATE(12/28/2004)
go top
Do while !Eof()
Skip
enddo
¿En este caso lo que tiene que hacer es tomar los valores de los combos y transformarlos a fechas pero no puedo hacer que el valor se compatibla alguien me puede ayudar?
dia=thisform.combo2.ListIndex
mes=thisform.combo3.ListIndex
anio=thisform.text1.Value
FECHA="mes/dia/anio"
Select Reporte
Set filter to reporte.Fecha=DATE(12/28/2004)
go top
Do while !Eof()
Skip
enddo
¿En este caso lo que tiene que hacer es tomar los valores de los combos y transformarlos a fechas pero no puedo hacer que el valor se compatibla alguien me puede ayudar?
1 respuesta
Respuesta de falvarez
1
Reemplaza por el siguiente código:
dia=thisform.combo2.ListIndex
mes=thisform.combo3.ListIndex
anio=thisform.text1.Value
DIA=PADL(ALLT(STR(DIA)),2,'0')
MES=PADL(ALLT(STR(MES)),2,'0')
ANIO=STR(ANIO,4)
FECHA=CTOD(DIA+'/'+MES+'/'+ANIO)
Select Reporte
Set filter to Fecha=FECHA
go top
Do while !Eof()
Skip
Enddo
Brow normal
dia=thisform.combo2.ListIndex
mes=thisform.combo3.ListIndex
anio=thisform.text1.Value
DIA=PADL(ALLT(STR(DIA)),2,'0')
MES=PADL(ALLT(STR(MES)),2,'0')
ANIO=STR(ANIO,4)
FECHA=CTOD(DIA+'/'+MES+'/'+ANIO)
Select Reporte
Set filter to Fecha=FECHA
go top
Do while !Eof()
Skip
Enddo
Brow normal
