Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Se alguem puder me ajudar este codigo esta emitindo o nome do mês em ingles queria
que mostra-se em portugues
vejam:
<%Function GetDaysInMonth(iMonth, iYear)Dim dTempdTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))GetDaysInMonth = Day(dTemp)End FunctionFunction GetWeekdayMonthStartsOn(dAnyDayInTheMonth)Dim dTempdTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)GetWeekdayMonthStartsOn = WeekDay(dTemp)End FunctionFunction SubtractOneMonth(dDate)SubtractOneMonth = DateAdd("m", -1, dDate)End FunctionFunction AddOneMonth(dDate)AddOneMonth = DateAdd("m", 1, dDate)End FunctionDim dDate ' Date we're displaying calendar forDim iDIM ' Days In MonthDim iDOW ' Day Of Week that month starts onDim iCurrent ' Variable we use to hold current day of month as we write tableDim iPosition ' Variable we use to hold current position in tableIf IsDate(Request.QueryString("date")) ThendDate = CDate(Request.QueryString("date"))ElseIf IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) ThendDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))ElsedDate = Date()If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 ThenResponse.Write "The date you picked was not a valid date. The calendar was set to today's date.<BR><BR>"End IfEnd IfEnd IfiDIM = GetDaysInMonth(Month(dDate), Year(dDate))iDOW = GetWeekdayMonthStartsOn(dDate)%><div align="center"></div><table width="100%" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#FFFFFF"><tr bgcolor="#000066"><td colspan=7 align="center" bgcolor="#FFCC00"><font color="#000000" size="-1" face="Verdana, Arial, Helvetica, sans-serif"><b><%= UCase(MonthName(Month(dDate)) & " " & Year(dDate)) %></b></font></td></tr><tr><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>D</b></font> </div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>S</b></font> </div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>T</b></font> </div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Q</b></font> </div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Q</b></font> </div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>S</b></font></div></td><td align="center" bgcolor="#FF6600"><div align="center"><font color=#99FF00 size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>S</b></font> </div></td></tr><%If iDOW <> 1 ThenResponse.Write vbTab & "<TR BGCOLOR=#E1F5FF>" & vbCrLfiPosition = 1Do While iPosition < iDOWResponse.Write vbTab & vbTab & "<td></TD>" & vbCrLfiPosition = iPosition + 1LoopEnd IfiCurrent = 1iPosition = iDOWDo While iCurrent <= iDIMIf iPosition = 1 ThenResponse.Write vbTab & "<TR BGCOLOR=#E1F5FF>" & vbCrLfEnd IfIf iCurrent = Day(dDate) ThenResponse.Write vbTab & vbTab & "<td ALIGN=""center"" width=""1"" height=""1"" BGCOLOR=#FFFF6C><div align=""center""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><B><A HREF=""calendario.asp?iddia=" & iCurrent & """>" & iCurrent & "</a></B></FONT></div></TD>" & vbCrLfElseResponse.Write vbTab & vbTab & "<td ALIGN=""center"" width=""1"" height=""1""><div align=""center""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><A HREF=""calendario.asp?iddia=" & iCurrent & """>" & iCurrent & "</A></FONT></div></TD>" & vbCrLfEnd If' If we're at the endof a row then write /TRIf iPosition = 7 ThenResponse.Write vbTab & "</TR>" & vbCrLfiPosition = 0End If' Increment variablesiCurrent = iCurrent + 1iPosition = iPosition + 1Loop' Write spacer cells at end of last row if month doesn't end on a Saturday.If iPosition <> 1 ThenDo While iPosition <= 7Response.Write vbTab & vbTab & "<td></TD>" & vbCrLfiPosition = iPosition + 1LoopResponse.Write vbTab & "</TR>" & vbCrLfEnd If%></table>
Carregando comentários...