ESTUDIO DE ESPAÑOL  
 
  EL ACTA 27-06-2025 16:13 (UTC)
   
 


 

        El acta es un escrito o modalidad de comunicación escrita que tiene por objeto dejar constancia de lo tratado, sucedido y acordado en una junta o reunión.  Se extiende en hojas o folios sueltos, o bien en libros destinados expresamente para ese propósito.

         Las sociedades mercantiles, las empresas cooperativas, las juntas de determinados organismos públicos o cuasi-públicos, las instituciones de diversa naturaleza, tienen la obligación de llevar los correspondientes libros de actas, en los que quede debida constancia de los acuerdos que se han pactado por los miembros que las representan.

La redacción del acta debe contener básicamente lo siguiente:

v     Ciudad, hora y fecha en que la reunión se celebre.

v     Nombres de los asistentes.

v     Persona que la presidió y existencia del quórum.

v     Orden del día.

v     Acuerdos tomados.

Cierre y firmas de las personas a quienes incumba a hacerlo.

ACTA No 2

REUNIÓN ORDINARIA, martes 29 de junio de 2004.  Presidida por  Luis Phillips, Presidente.  La misma inició a las 5:45pm, con la participación de 6 miembros.

Tema: Reunión con los directivos del IPA.

Se llegaron a los siguientes ACUERDOS:

La fecha de la reunión será el jueves 12 de agosto, a las 6:00pm, en un restaurante.  Se pedirán cotizaciones en El Ejecutivo, El Continental y el Granada.

Enviar nota al Director para que se le permita al Dr. Iván Wilson, delegado de los padres de familia, para que evalúe el funcionamiento de la clínica, especialmente en lo referente a las medicinas y si los encargados están capacitados en primeros auxilios.

Aprobó, por unanimidad, la compra del MSOffice 2003, por un costo de $262.50.

Lo de la conexión de INTERNET.  Se presentó la cotización de WISPER, para su discusión posterior.  Se solicitó conseguir dos cotizaciones más, además, someter  la propuesta a reunión de delegados.  La decisión quedó pendiente.

El prof. Guzmán enviará una nota al director solicitándole que pida una línea telefónica para la oficina de la asociación.  Esta cubrirá el costo de la misma.

Se aprobó que se filmaran los tranques en las horas pico, tanto en la mañana como al mediodía, con el fin de presentarla a la Directiva del IPA.

Reunión con directivos del IPA.  Se acordó enviar una nota al Director para invitarlo a la reunión-cena.

Nimia Herrera G.                                                                    Luis Phillips

Secretaria de Actas                                                                   Presidente

La reunión concluyó a las 7:30 p.m.

 
  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