<% function nombreMes(mes) select case mes case 1 nombreMes = "Enero" case 2 nombreMes = "Febrero" case 3 nombreMes = "Marzo" case 4 nombreMes = "Abril" case 5 nombreMes = "Mayo" case 6 nombreMes = "Junio" case 7 nombreMes = "Julio" case 8 nombreMes = "Agosto" case 9 nombreMes = "Septiembre" case 10 nombreMes = "Octubre" case 11 nombreMes = "Noviembre" case 12 nombreMes = "Diciembre" end select end function topico=request.QueryString("topico") verif_mes = month(date()) if verif_mes >= 7 then anio= year(date()) else anio = year(date()) end if 'response.Write(verif_mes) 'response.Write("
") 'response.Write(anio) fecha_origen="01/01/"&anio fecha_origen=cdate(fecha_origen) fecha1 =fecha_origen fecha2 = dateadd("m",6,fecha1) 'fecha1 =(date()) 'fecha2 = dateadd("m",6,fecha1) 'fecha1 = "1/"& Month(fecha1) &"/"& Year(fecha1) 'fecha2 = "1/"& Month(fecha2) &"/"& Year(fecha2) If Month(fecha1) < 10 then fechaq1 = "0" &Month(fecha1) & "/01/"& Year(fecha1) Else fechaq1 = Month(fecha1) & "/01/"& Year(fecha1) End if If Month(fecha2) < 10 then fechaq2 = "0" &Month(fecha2) & "/01/"& Year(fecha2) Else fechaq2 = Month(fecha2) & "/01/"& Year(fecha2) End if fe1 = Month(fecha1) mes1=nombreMes(fe1) ano1 = year(fecha1) fe2 = dateadd("m",1,fecha1) fe3 = dateadd("m",2,fecha1) fe4 = dateadd("m",3,fecha1) fe5 = dateadd("m",4,fecha1) fe6 = dateadd("m",5,fecha1) an2 = dateadd("m",1,fecha1) an3 = dateadd("m",2,fecha1) an4 = dateadd("m",3,fecha1) an5 = dateadd("m",4,fecha1) an6 = dateadd("m",5,fecha1) fe2 = Month(fe2) mes2=nombreMes(fe2) ano2 = year(an2) fe3 = Month(fe3) mes3=nombreMes(fe3) ano3 = year(an3) fe4 = Month(fe4) mes4=nombreMes(fe4) ano4 = year(an4) fe5 = Month(fe5) mes5=nombreMes(fe5) ano5 = year(an5) fe6 = Month(fe6) mes6=nombreMes(fe6) ano6 = year(an6) 'tomo fecha Const adCmdText = &H0001 Const adOpenStatic = 3 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\HomePages\Eniac\BDAccess\cursos2.mdb;" set rso = CreateObject("ADODB.Recordset") sqlSQL="SELECT * FROM Programados1 " _ &" WHERE ((([Programacion].[Fecha_desde])>=#"&fechaq1&"#) AND (([Programacion].[Fecha_hasta])<=#"&fechaq2&"#) AND (([topicos].[cod_topico])="&topico &") AND ((Programados1.cod_idioma)=1))" rso.Open sqlSQL,Conn,adopenstatic,adcmdtext 'Set rso = Conn.Execute(sqlSQL) var="1Ssemestre" 'semestre=1 'semestre=1 'response.Write(sqlSQL) %> Calendario de Cursos, Eniac
 

Cursos Eniac Segundo Semestre

<% End if nmes = 1 fin = rso.recordcount cuenta = 1 Do While NOT rso.EOF %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% for numero_mes = 1 to 6 If Not rso.EOF then If trim(categoria) = trim(rso(9)) then 'response.Write(categoria & " " &categoria2) 'response.Write(curso & " " &curso2) Select Case numero_mes Case 1 n_mes = fe1 Case 2 n_mes = fe2 Case 3 n_mes = fe3 Case 4 n_mes = fe4 Case 5 n_mes = fe5 Case 6 n_mes = fe6 End Select %> <% If NOT rso.EOF Then If trim(month(rso(4)))= trim(n_mes) then Diffecha= rso(5)-rso(4) Select Case Diffecha Case 2%> <%Case 1%> <%Case 0%> <%Case else%> <% End Select categoria = rso(9) curso= rso(11) rso.movenext 'cuenta = cuenta +1 If NOT rso.EOF then categoria2 = rso(9) curso2 = rso(11) else Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop End If If trim(categoria) <> trim(categoria2) or trim(curso) <> trim(curso2) Then Do while numero_mes < 6 %> <% numero_mes = numero_mes + 1 loop if trim(categoria) <> trim(categoria2) then %> <% end if categoria = categoria2 curso = curso2 End If Else%> <% End if Else %> <% End If end if next Loop If rso.EOF Then Do while numero_mes < 6 %>
 
Duración (Días)
Julio
Agosto
Septiembre
Octubre
Noviembre
 Diciembre
Desktop Computing - Microsoft
Hojas de Cálculo

GE 401: Técnicas Fundamentales para el Uso Efectivo de MS Excel (Nivel Fundamentos)

 3 - 4 al 6 - 6 al 8 -1 al 3
GE 402: Técnicas Avanzadas para Usuarios de MS Excel (Nivel Intermedio) 3 2 al 4 11 al 13 15 al 17 15 al 17 3 al 5 8 al 10
GE 403: Desarrollo de Soluciones utilizando VisualBasic para MS Excel (Nivel Avanzado) 3 7 al 9 - 8 al 10 - 17 al 19 -
GE 480: Excel para Auditores 3 - 13 al 15 - 22 al 24 --

 

Programación para Venezuela / En otros países se dictan según demanda

Si desea mayor información puede contactarnos por el e-mail: info.cursos@eniac.com

Regresar