ESTUDIO DE ESPAÑOL - ORACION COMPUESTA

ESTUDIO DE ESPAÑOL

ORACION COMPUESTA

27-06-2025 16:28 (UTC)

Oración compuesta
Coordinación	Copulativa	Afirmativa (y,e): Salimos a la puerta y lo saludamos.
		Negativa (ni) : No quiere ni puede hacerlo
	Disyuntiva	(o, u, o bien): ¿Sales o te quedas en casa?
	Adversativa	Restrictiva (pero, más, etc.): Mi hermana es lista, pero no trabaja.
		Exclusiva (sino que): No vende sus fincas sino que compra más.
	Distributiva	(bien... bien, ya...ya...; aquí...allí...Uno canta, otro baila. Estos días ya llueve, ya hace sol.
	Explicativa	(esto es, es decir): le hizo un quite, esto es, se llevó al toro.
Yuxtaposición	Equivalente a coordinación: llegué, ví vencí
	Equivalente a subordinación : te ruego me acompañes.
Transposición	Sustantiva	Sujeto: me disgusta que mientas siempre
		C. Directo: Carmen cree que Juan volverá
		C. De un sustativo: Expresó su seguridad de que aprobaría.
		C. de adjetivo: No es digno de que confíes en él
		Atributo: Juan está que muerde; Luis es quien tú sabes
	Adjetiva	Especificativa: los ciclistas que estaban cansados abandonaron la carrera.
		Explicativa: Los ciclistas, que estaban cansados, abandonaron la carrera.
	Circunstancial o Adverbial	Lugar: Hemos estado hoy donde comimos el domingo.
		Tiempo: iremos cuando nos llame.
		Modo: Subí al tren como pude.
		Causa: No bebo porque me hace daño
		Finalidad: Cierra bien la puerta para que no entre frío.
Subordinación		Condicional: si haces lo que te digo, te irá bien.
		Concesiva: Aunque tenga fiebre, estoy mucho mejor.
		Consecutiva: Es tan alto, que no cabe por la puerta
		Comparativa: Pedro es tan alto como Juan (es alto)

AYUDA SOBRE ESPAÑOL

CALENDARIO

ASP Fácil - Código

Calendario

<% 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 'NombreMes '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5 'Utilizaba esta variable para depurar 'Dim sOrigen 'iDia, iMes, iAno --> la fecha seleccionada Dim iDia, iMes, iAno, sEnviado 'iDiasDelMes: numero de días del mes 'iDiaSemana: día de la semana en que cae la fecha 'iPrimerDiaSemanaMes: el día de la semana en que empieza el mes Dim iDiasDelMes, iDiaSemana, iPrimerDiaSemanaMes Dim dFecha 'la fecha enterita 'Para pintar la tabla necesito Dim iActual, iPosicion 'Recojo los valores del form iDia = Request.Form("Dia") iMes = Request.Form("Mes") iAno = Request.Form("Ano") sEnviado = Request.Form("Enviado") 'sOrigen = "form" 'Establezco la fecha según lo enviado if sEnviado <> "" then iDia = CInt(iDia) iMes = CInt(iMes) iAno = CInt(iAno) else '¿La he enviado desde un link? if Request.QueryString("Dia") <> "" then iDia = CInt(Request.QueryString("Dia")) iMes = CInt(Request.QueryString("Mes")) iAno = CInt(Request.QueryString("Ano")) 'sOrigen = "qrs" else 'La pongo a la fecha de hoy iDia = Day(Now) iMes = Month(Now) iAno = Year(Now) 'sOrigen = "auto" end if end if if not IsDate(DateSerial(iAno, iMes, iDia)) then 'Avisamos y utilizamos la de hoy Response.Write("No es una fecha válida. Se utilizará la fecha de hoy.
") dFecha = Date iMes = Month(dFecha) iDia = Day(dFecha) iAno = Year(dFecha) else 'Formamos la expresión de fecha dFecha = DateSerial(iAno, iMes, iDia) end if 'Hallo los días del mes select case iMes case 1,3,5,7,8,10,12 iDiasDelMes = 31 case 2 if iAno mod 4 = 0 then 'Año bisiesto! iDiasDelMes = 29 else iDiasDelMes = 28 end if case else iDiasDelMes = 30 end select 'Hallo el día de la semana iDiaSemana = DatePart("w", DateSerial(iAno, iMes, iDia)) 'Y el día de la semana en que empieza el mes iPrimerDiaSemanaMes = DatePart("w", DateAdd("d", - iDia+1, DateSerial(iAno, iMes, iDia)), 2) 'Las siguientes líneas las utilizo para depurar. ;-) 'Response.Write(dFecha) 'Response.Write( iDia & "/" & iMes & "/" & iAno & "
") 'Response.Write "Origen: " & sOrigen & "
" 'Response.Write "Dia: " & iDia & ", Mes: " & iMes &", Año: " & iAno & "
" 'Response.Write "Días del mes: " & iDiasDelMes & "
" 'Response.Write "El mes empieza en: " & iPrimerDiaSemanaMes & "
" 'Vamos a pintar la tabla %> <% 'Relleno con blancos si el mes no empieza en Lunes! if iPrimerDiaSemanaMes <> 1 then iPosicion = 1 Response.Write vbTab & " " & VbCrLf do while iPosicion < iPrimerDiaSemanaMes Response.Write vbTab & vbTab & "" & vbcrlf iPosicion = iPosicion + 1 loop end if 'Pintamos el calendario iActual = 1 iPosicion = iPrimerDiaSemanaMes do while iActual <= iDiasDelMes if iPosicion = 1 then 'Empezamos nueva semana, es decir nueva fila Response.Write vbTab & "" & VbCrLf end if if iActual = iDia then 'Resaltamos la fecha seleccionada Response.Write vbTab & vbTab & "" & vbCrLf else Response.Write vbTab & vbTab & "" & vbCrLf end if if iPosicion = 7 then 'Estamos en domingo, cerramos la semana :) Response.Write vbTab & "" & vbCrLf 'Pongo iPosicion a cero pq voy a sumarle uno ahorita mismo iPosicion = 0 end if 'Incrementamos! iActual = iActual + 1 iPosicion = iPosicion + 1 loop 'Relleno con blancos si no termino en domingo 'Primero compruebo que no sea uno, pues si terminamos en 7 (domingo) 'al incrementar por ultima vez se queda en 1. Típico en los bucles :-) if iPosicion <> 1 then while iPosicion <= 7 'Las celdas blancas... Response.Write vbTab & vbTab & "" & vbCrLf iPosicion = iPosicion + 1 wend '... y el fin de fila! Response.Write vbTab & "" & vbCrLf end if %>

&Ano=<%=Year(DateAdd("m", -1, dFecha))%>"><<	<%=NombreMes(iMes)& " " & Year(dFecha)%>					&Ano=<%=Year(DateAdd("m", 1, dFecha))%>">>>
L	M	X	J	V	S	D

"& iActual & "	" & iActual & "

Este sitio web fue creado de forma gratuita con PaginaWebGratis.es. ¿Quieres también tu sitio web propio?

Registrarse gratis