auxarrays.asp

O código abaixo complementa o calendário estruturado:

<%
Dim weekdays, months, monthdays, fDay, lDay
'weekdays = Array("Dom", "Seg", "Ter", "Qua", "Qui", "Sex", "Sab")
weekdays = Array("D", "S", "T", "Q", "Q", "S", "S")
weekdbig = Array("Domingo", "Segunda-Feira", "Terça-Feira", "Quarta-Feira", "Quinta-Feira", "Sexta-Feira", "Sábado")
months = Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
monthDays = Array(31,28,31,30,31,30,31,31,30,31,30,31)

function diasemana(data)
 diasemana = weekdbig(WeekDay(data)-1)
end function

function WriteMonth(data)
 WriteMonth = months(month(data)-1)
end function

sub dbug(vari)
 Response.Write "<script>alert('Valor: "&vari&"')</script>"
end sub
%>

Esta matéria foi postada originalmente no ASP4Developers por João Márcio Gonçalves Prado, que na época era "Webmaster Santanense Tecidos.
Diversos programas e sistemas ASP feitos para todo o tipo de empresas em MG.
". Hoje, vai saber...