Ver Mensaje Individual
  #8 (permalink)  
Antiguo 28/03/2005, 10:28
fercom
 
Fecha de Ingreso: septiembre-2003
Ubicación: Lima Peru
Mensajes: 70
Antigüedad: 13 años, 10 meses
Puntos: 0
Solucion

Aqui les dejo como me quedo al final, funciona perfecto.
Gracias por su colaboración

Código:
<% 
  Function diaslaborables
  	totalferiados = 0
	While ((Repeat4__numRows <> 0) AND (NOT programadas_descuento.EOF))
		fecha=(programadas_descuento.Fields.Item("fecha_inicio").Value)
		dias=(programadas_descuento.Fields.Item("cantidad_dias").Value)
		'---------------------------------------------------------
		diainicio = Day(fecha)'left(fecha,2)
		mesinicio = Month(fecha)'mid(fecha,4,2)
		anioinicio = Year(fecha)'right(fecha,4)
		inicio = anioinicio&"/"&mesinicio&"/"&diainicio
		'---------------------------------------------------------		
		fin = Dateadd("d",(dias-1),fecha)
		diafin = day(fin)'left(fin,2)
		mesfin = Month(fin)
		aniofin = Year(fin)'right(fin,4)
		fin = aniofin&"/"&mesfin&"/"&diafin
		'---------------------------------------------------------				
		'conexion BD
		Dim Feriados
		Dim Feriados_numRows
		
		Set Feriados = Server.CreateObject("ADODB.Recordset")
		Feriados.ActiveConnection = MM_Con_Vacaciones_STRING
		Feriados.Source = "SELECT count(*) AS TOTAL FROM Tbl_Feriados WHERE Fecha BETWEEN '"+inicio+"' AND '"+fin+"' "
		Feriados.CursorType = 0
		Feriados.CursorLocation = 2
		Feriados.LockType = 1
		Feriados.Open()
		
		Feriados_numRows = 0
		totalferiados = (dias-(Feriados.Fields.Item("TOTAL").Value))+totalferiados
  		diaslaborables = totalferiados
  

  		Feriados.Close()
 		Set Feriados = Nothing
  
  
  	Repeat4__index=Repeat4__index+1
	Repeat4__numRows=Repeat4__numRows-1
	programadas_descuento.MoveNext()
	Wend
  End Function		  
%>
__________________
Fernando Parodi