como contar os dias do mes?

[iGuiM 0]

Opá galera. Estou com um problema mais que dee linguagem mesmo eu acho. Eu quero fazer um calendário, ou melhor, imprimir o calendário do mês da tela. Mês atual seria fácil pegar com um Month(Now), mas o meu problema e na hora de fazer o loop dos dias.. como fazer para verificar ateh q dia o mês vai? 29, 30 ou 31? Valeu!

[nostrinkes 0]

Existem codigos legais sobre este assunto em javascript.mais se persistir no asp,,, tente fazer um select casecase mes130case me2......se souber fazer array é mais fácilMais tenta o javascript.. valeu.... :lol: B)

[d.eleete 0]

Pois eh.. acabei de achar isso no aspin :lol:

 

InputDate =Date()DayNum = Int(DatePart("d",InputDate))WeekNum = Int(DatePart("ww",InputDate))DayWeekNum = Int(DatePart("w",InputDate,vbMonday))MonthNum = Int(DatePart("m",InputDate))YearNum = Int(DatePart("yyyy",InputDate))Select Case MonthNum Case 4, 6, 9, 11	'months with 30 Days	MonthDays = 30 Case 2      ' == Leap year calculations for February: the rule is that all years that are evenly divisible by 400 or are evenly divisible by 4 and NOT divisible by 100 are leap years 	leap1 = YearNum Mod 400 	If leap1 = 0 Then  MonthDays = 29	Else  leap2 = YearNum Mod 4  leap3 = YearNum Mod 100  If leap2 = 0 And test3 > 0 Then  	MonthDays = 29  Else  	MonthDays = 28  End If	End If Case Else  'all other months      MonthDays = 31 End Select