Dim EsteDia As Integer Dim EsteMes As Integer Dim EsteAño As Long EsteDia = Day(Fecha01.Value) EsteMes = Month(Fecha01.Value) EsteAño = Year(Fecha01.Value) Text1.Text = CDate(EsteDia + 3 & "/" & EsteMes & "/" & EsteAño)
.open "Select * From empleados WHERE " & "FechaNacimiento Between " & "# " + Fecha_Inicial + " # And # " + Fecha_Final + " #", Bd, adOpenStatic, adLockOptimistic
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso