Agenda asp

[krisa]

Hola a todos...

Tengo que realizar una agenda para mi empresa por semanas (de lunes a domingo) para que cada empleado entre y programe en la agenda lo que va a hacer en esa semana. Actualmente la agenda pide un rango de fechas de 7 días y con esto grafica la semana (ej: del 3 de enero - 9 de enero)

Pero la agenda no valida que efectivamente 3 de enero sea lunes. Si por ejemplo yo ingreso 5 enero al 11 de enero, como hago para saber que 5 no es lunes sino Miercoles?????? Me dijeron que me tocaba hacer un calendario para poder saber a que dia de la semana se estaba refiriendo.

No hay funciones de asp de calendario o que validen el dia o no se... quien me puede dar ideas???? porfa es urgente

[kunndry]

Hola no se si hay funciones para eso, pero podrias hacer lo siguiente para saber el nombre del dia.

Contar los dias que faltan hasta ese dia, y luego con la orden today o now(no me acuerdo como se llamaba), pues hacer cuentas de la siguiente manera

n*7+d=dias que falten, siendo d<7, y con eso ya,solo tendrias que asignarle un nombre para cada d.

no se si quedo claro lo que queria decir, jeje, me da la impresión de queno.

De todas maneras, imagno que si que habra algo para las fechas.

[sjam7]

con la funcion WeekDay() puedes saber el dia de la semana en numero, el lunes es el dia 2, martes el 3, etc... el domingo es el 1

checala asi <%=WeekDay(date())%> y te imprimira en pantalla el numero de dia actual

[lexus]

hola lo qeu puedes hacer es sacar el ultimo dia de cada mes o del mes actual, con esto haces un ciclo que te recorra desde 1 hasta el ultimo dia de ese mes, luego te saldran unos numeros que corresponden a cada dia, con este numero le sacas el weekday y te saldran todos los dias de ese mes..
asi:

Código:

 
 
<%
' funcion para sacar el ultimo dia del mes.
Function ultimodiadelmes(mes, ano)
DIm messig
messig = DateAdd("m", 1, DateSerial(ano, mes, "01"))
ultimodiadelmes = Day(DateAdd("d", -1, messig))
End Function
 
dim d, mes, ano
mes= month(now) ' mes actual
ano = year(now) ' ano actual
' ciclo que nos recorre los dias del mes determinado
for d = 1 to ultimodiadelmes(mes, ano) 
 
 
Response.write WeekDayName(WeekDay(d)) ' imprime el nombre del dia
Response.write "<br>" 
next
%>

espero te sirva, si deseas tambien tengo un calendario muy bueno, luego trato de resumirlo para postearlo aqui, esta en italiano pero es muy facil de personalizar.suerte.

[lexus]

bueno aprovecho para colocar el calendario aqui por si alguien mas le sirve,
a mi por ejemplo me sirve para un calendario de eventos, es muy facil de personalizar... espero les sirva a todos.

Código:

<%
Dim giorno,mese,anno,tmese,day1,primog, mese2, anno2, dayoff,ultimog,x,giorno1
   
   giorno = request("giorno")
   If giorno = "" then
   giorno = day(now())
   End If
   
   mese = request("mese")
   If mese = "" then
   mese = month(now())
   End If
   anno = request("anno")
   If anno = "" then
   anno = year(now())
   End If
   If mese = 12 then
	  mese2 = 1
   anno2 = anno+1
   else 
   mese2 = mese+1
   anno2 = anno
   End If
   
   day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
	  dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
	  primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
   ultimog = Weekday(dayoff)-1
   
   If ultimog = 0 then
   ultimog = 7
   End If
   
   If primog = 0 then
   primog = 7
   End If
   Select Case mese
   case 1
   tmese = "Ene"
   case 2
	tmese = "Feb"
   case 3
   tmese = "Mar"
   case 4
   tmese = "Abr"
   case 5
   tmese = "May"
   case 6
   tmese = "Jun"
   case 7
   tmese = "Jul"
   case 8
   tmese = "Ago"
   case 9
   tmese = "Sep"
   case 10
   tmese = "Oct"
   case 11
   tmese = "Nov"
   case 12
   tmese = "Dic"
   End Select
x=1
   %>
			  <table width="190" border="0" cellspacing="1" cellpadding="1">
				<tr bgcolor="#3399CC">
				  <td><a href="estapagina.asp?mese=<%if mese > 1 then response.write mese-1 else response.write 12 End If%>&anno=<%if mese > 1 then response.write anno else response.write anno-1 End If%>"><img src="../img/botones/ant.gif" border="0"></a></td>
				  <td width="50%" bordercolor="#666666" bgcolor="#3399CC"><strong><%=tmese%></strong></td>
				  <td width="50%" align="center" bordercolor="#666666"><strong><%=anno%></strong></td>
				  <td><a href="estapagina.asp?mese=<%if mese < 12 then response.write mese+1 else response.write 1 End If%>&anno=<%if mese < 12 then response.write anno else response.write anno+1 End If%>"><img src="../img/botones/sig.gif" border="0"></a></td>
				</tr>
				<tr>
				  <td colspan="4">
					<table width="100%" border="1" cellpadding="1" cellspacing="1" bordercolor="#666666">
					  <tr align="center" bgcolor="#CCCCCC">
						<td><strong>L</strong></td>
						<td><strong>M</strong></td>
						<td><strong>M</strong></td>
						<td><strong>J</strong></td>
						<td><strong>V</strong></td>
						<td><strong> S</strong></td>
						<td><strong> D </strong></td>
					  </tr>
					  <tr>
						<%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
						<td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#FFF7D5""" End If%>>
						  <div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
	 response.write "#000000"
	 Else
	 response.write "#CCCCCC"
	 End If%>">
							<%if giorno1 >= day1 and giorno1 <= dayoff then%>
							<a href="javascript:jumpto('dondeiranloseventos.asp?dia=<%=day(day1-primog+x)%>&mes=<%=month(day1-primog+x)%>&ano=<%=year(day1-primog+x)%>')"><%=day(day1-primog+x)%></a>
							<%else%>
							<%=day(day1-primog+x)%>
							<%End If%>
						</font></div></td>
						<%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
						<%
giorno1 = giorno1 + 1
x=x+1
loop%>
					</table></td>
				</tr>
			  </table>

[krisa]

Muchas Muchas Muchas gracias... voy a probar a ver si me resulta esta solución.

[lexus]

hola krisa, no habia visto qe eras de medellin, bueno cualquier cosa aqui tienes un caleño a la orden para cualquier cosa que necesites.... chao suerte.