ESTUDIO DE ESPAÑOL  
 
  LOS COMPLEMENTOS DEL VERBO 27-06-2025 15:19 (UTC)
   
 

«Los complementos del verbo

Al igual que el sustantivo y el adjetivo, también el verbo tiene dos tipos básicos de complementos:

Argumentos: son complementos necesarios para el verbo; es decir, el verbo los rige o exige. Sin ellos, o la oración es agramatical o el verbo presenta otro significado.

Entre los argumentos se encuentran los complementos directos, los complementos de régimen o regidos, algunos complementos indirectos y otros complementos adverbiales, que la gramática tradicional trataba entre los complementos circunstanciales, así como los atributos:

Tengo frío [CD] en el despacho.

Confío siempre en mi familia [CR].

He dado un libro [CD] a María [CI].

Esa casa cuesta mucho [C. adv.].

María reside en Madrid [C. adv.]

Puse el libro [CD] en la mesa [C. adv.].

El niño se quedó triste [atrib.]

Adjuntos: son complementos no exigidos por el verbo; sin ellos, la oración es gramatical y el verbo no cambia de significado. Entre ellos se encuentran los complementos circunstanciales propiamente dichos, algunos complementos indirectos, los dativos y los predicativos:

Ayer [CC] vi a Juan en el parque [CC].

Pinté un cuadro a mi madre [CI].

Trajeron limpia [predic.] la ropa.»

[Gómez Torrego, Leonardo: Gramática didáctica del español. Madrid: sm, 2000, p. 297]

 

 
  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 & "
 
 
Google
 

 













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