Foros del Web - Mostrar semana del año

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - Mostrar semana del año (http://www.forosdelweb.com/f15/mostrar-semana-del-ano-223744/)

Mostrar semana del año

Saludos

He estado desarrollando un trabajo sencillo en asp, que permite realizar consultas y modificaciones. Entre todo este trabajo, tengopensado colocar la semana del año (ej. Semana 31 del 26 de Julio al 01 de Agosto del 2004)
Este dato me es indispensable para que pueda mostrar cual fue la entrada de datos por semana y a su vez a fin de año saber el global de la facturacion.

Necesito que este codigo me permita al abrir la pagina asp que este en la semana actual (o sea que este actualizado a la semana del año en curso) y me diga cuantas semanas restan para que termine el año.

A su vez este codigo me va a servir para realizar consultas por semana y año, es decir cuando de click en una semana (ej. Semana 31) tomare datos (ej. <a href="mipagina.asp?data=<%=("Orden")%> target="cwindows">=<%=("Orden")%></a>) y los redireccionare a otra página mostrando los días de la semana y cuales fueron los porcentajes de facturacion por dia.

de antemano muchas gracias, y espero que me puedan aportar ideas y alguna parte de codigo como ejemplo para realizar este trabajo que me esta dando dolor de cabeza.

Gracias a todos los que participan en este foro.

Ok

****
:'( Help
****

Utiliza este codigo javascript para lo que necesitas y envialo a ASP o tradúcelo todo a ASP:

Código:

<script>

function getWeekNr()

{

        var today = new Date();

        Year = takeYear(today);

        Month = today.getMonth();

        Day = today.getDate();

        now = Date.UTC(Year,Month,Day+1,0,0,0);

        var Firstday = new Date();

        Firstday.setYear(Year);

        Firstday.setMonth(0);

        Firstday.setDate(1);

        then = Date.UTC(Year,0,1,0,0,0);

        var Compensation = Firstday.getDay();

        if (Compensation > 3) Compensation -= 4;

        else Compensation += 3;

        NumberOfWeek =  Math.round((((now-then)/86400000)+Compensation)/7);

        return NumberOfWeek;

}
 
 

function takeYear(theDate)

{

        x = theDate.getYear();

        var y = x % 100;

        y += (y < 38) ? 2000 : 1900;

        return y;

}

</script>

Hola, fijate éste código:

Código:

<% 

    today = Date() 

 

    thisMonth = month(today) 

    thisDay = day(today) 

    refd = today + 1 - thisDay 

 

    response.write "Today:<br>" 

    response.write today & "<br>" 

    response.write "(" & fdate(today) & ")" 

 

    response.write "<p>First day of last year:<br>" 

    fdly = dateadd("yyyy", -1, dateadd("m", 1-thisMonth, refd))  

    response.write fdly & "<br>" 

    response.write "(" & fdate(fdly) & ")" 

 

    response.write "<p>Last day of last year:<br>" 

    ldly = dateadd("m", 1-thisMonth, refd) - 1 

    response.write ldly & "<br>" 

    response.write "(" & fdate(ldly) & ")" 

 

    response.write "<p>First day of this year:<br>" 

    fdty = dateadd("m", 1-thisMonth, refd) 

    response.write fdty & "<br>" 

    response.write "(" & fdate(fdty) & ")" 

 

    response.write "<p>Last day of this year:<br>" 

    ldty = dateadd("yyyy", 1, dateadd("m", 1-thisMonth, refd)) - 1 

    response.write ldty & "<br>" 

    response.write "(" & fdate(ldty) & ")" 

 

    response.write "<p>First day of next year:<br>" 

    fdny = dateadd("yyyy", 1, dateadd("m", 1-thisMonth, refd)) 

    response.write fdny & "<br>" 

    response.write "(" & fdate(fdny) & ")" 

 

    response.write "<p>Last day of next year:<br>" 

    ldny = dateadd("yyyy", 2, dateadd("m", 1-thisMonth, refd)) - 1 

    response.write ldny & "<br>" 

    response.write "(" & fdate(ldny) & ")" 

 

    response.write "<p>First day of last month:<br>" 

    fdlm = dateadd("m", -1, refd) 

    response.write fdlm & "<br>" 

    response.write "(" & fdate(fdlm) & ")" 

 

    response.write "<p>Last day of last month:<br>" 

    ldlm = refd - 1 

    response.write ldlm & "<br>" 

    response.write "(" & fdate(ldlm) & ")" 

 

    response.write "<p>Number of days in last month:<br>" 

    numdlm = day(refd - 1) 

    response.write numdlm & "<br>" 

 

    response.write "<p>First day of this month:<br>" 

    fdtm = refd 

    response.write fdtm & "<br>" 

    response.write "(" & fdate(ldny) & ")" 

 

    response.write "<p>Last day of this month:<br>" 

    ldtm = dateadd("m", 1, refd) - 1 

    response.write ldtm & "<br>" 

    response.write "(" & fdate(ldtm) & ")" 

 

    response.write "<p>Number of days in this month:<br>" 

    numdtm = day(dateadd("m", 1, refd) - 1) 

    response.write numdtm & "<br>" 

 

    response.write "<p>First day of next month:<br>" 

    fdnm = dateadd("m", 1, refd) 

    response.write fdnm & "<br>" 

    response.write "(" & fdate(fdnm) & ")" 

 

    response.write "<p>Last day of next month:<br>" 

    ldnm = dateadd("m", 2, refd) - 1 

    response.write ldnm & "<br>" 

    response.write "(" & fdate(ldnm) & ")" 

 

    response.write "<p>Number of days in next month:<br>" 

    numdnm = day(dateadd("m", 2, refd) - 1) 

    response.write numdnm & "<br>" 

 

    function fdate(dt) 

        fdate = formatdatetime(dt, 1) 

    end function 

%>

Lo saqué de aspfaq.com.

Saludos

Gracias por sus aportaciones ...

He logrado conseguir un avance respecto a mostrar el numero de semana y las semanas restantes del año, pero tengo la siguiente duda
¿como muestro la fecha de esta manera?

ej. Semana 31 Del 26 de Julio al 01 de Agosto del 2004

Si tengo ya en una variable el numero de semana, como le puedo hacer para mostrar el día que empieza y el dia que termina del mes y año respectivamente.

Les muestro parte del codigo que estoy usando:

<%
'guardo en una variable el numero de semana
Trimm = DatePart("ww", Date)
'como el año tiene 54 semanas, resto el dato anterior a 54
Trimm1 = (54-Trimm)
'muestro el numero de semana y las semanas restantes
Response.Write "Semana " & Trimm & " y restan " & Trimm1 & " semanas<br>"
' mostramos los dias transcurridos desde el 1 de enero hasta la fecha actual
Trimm2 = datePart("y", Date)
Response.Write "Han transcurrido " & Trimm2 & " días<br><br>"
%>

Hasta aqui he avanzado, he pensado tomar la fecha de los dias transcurridos para mostrar el primer dia de la semana, pero aun no se como conseguirlo.

Cualquier aportacion sera bien recibida y de antemano muchas gracias por sus comentarios

********
Help!
********