|
<%
datToday = Date() 'today's date
intThisYear = Year(datToday) 'the current year
intThisMonth = Month(datToday) 'the current month
intThisDay = Day(datToday) 'the current day
strMonthName = MonthName(intThisMonth) 'the name of the current month
'now get the name of the current day
strWeekDayName = WeekDayName(WeekDay(datToday), False, vbSunday)
'find the first and last days of this month
datFirstDay = DateSerial(intThisYear, intThisMonth, 1)
intFirstWeekDay = WeekDay(datFirstDay, vbSunday)
intLastDay = GetLastDay(datToday)
intPrintDay = 1 'the value of the day number to print in the page
%>
<% = strMonthName %> <% = intThisYear %> |
Dim |
Lun |
Mar |
Mer |
Jeu |
Ven
|
Sam |
<% While intPrintDay <= intLastDay %>
<% For intLoopDay = 1 To 7 %> <% If intPrintDay = intThisDay Then %>
<% Else %>
| <% End If %>
<% If intFirstWeekDay > 1 Then %> - <% intFirstWeekDay = intFirstWeekDay - 1 %>
<% Else %> <% If intPrintDay > intLastDay Then %> - <% Else %> <% = intPrintDay %>
<% End If %> <% intPrintDay = intPrintDay + 1 %> <% End If %> |
<% Next %>
<% Wend %>
|