[Resolvido] DIA DO ANO (qual o dia do ano hoje, se um ano inteiro

[filipefurriel 0]

Antes de começar a fz loucuras de programação, alguém conhece uma forma fácil de imprimir por meio de uma rápida expressão o dia do ano, ou seja, se um ano tem 365 dias, qual dia do ano é hoje? vwl glr.

[xanburzum 169]

Não entendi direito, você na realidade quer fazer uma diferença entre os dias ?

 

se for use o DateDiff

 

para saber o dia do ano por extenso

 

ex. 1:

 

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

 

Ex. 2:

 

   <%  
   Function ExibeData(data)  
     dia_semana = WeekDay(data)  
     Select Case dia_semana  
     Case 1 : dia_semana = “Domingo”  
     Case 2 : dia_semana = “Segunda-Feira”  
     Case 3 : dia_semana = “Terça-Feira”  
     Case 4 : dia_semana = “Quarta-Feira”  
     Case 5 : dia_semana = “Quinta-Feira”  
     Case 6 : dia_semana = “Sexta-Feira”  
     Case 7 : dia_semana = “Sábado”  
     End Select  
     mes = Month(data)  
     Select Case mes  
     Case 1 : mes = “Janeiro”  
     Case 2 : mes = “Fevereiro”  
     Case 3 : mes = “Março”  
     Case 4 : mes = “Abril”  
     Case 5 : mes = “Maio”  
     Case 6 : mes = “Junho”  
     Case 7 : mes = “Julho”  
     Case 8 : mes = “Agosto”  
     Case 9 : mes = “Setembro”  
     Case 10 : mes = “Outubro”  
     Case 11 : mes = “Novembro”  
     Case 12 : mes = “Dezembro”  
     End Select  
     ExibeData = dia_semana & “, ” & Day(Date()) & “ de ” & mes & “ de ” & Year(data)  
   End Function  

   ‘ Exemplo  
   Response.Write(ExibeData(now()))  
   %> 

 

e para usar:

 

Response.Write(ExibeData(objRS(“data”)))
Response.Write(ExibeData(Now()))

[filipefurriel 0]

xanburzum não é isso não, deixa eu ser mais especifico...

um ano tem 365 dias, sendo que 01/01/2012 foi o 1º dia do ano, assim, qual será o dia do ano hoje, exemplo: 256? ... 302? ... qual será?

Entendeu?

[xanburzum 169]

você quer saber qual o número do dia...

 

peraí eu tenho isso, senão podemos criar

[filipefurriel 0]

Fico a espera se você souber, mesmo assim, terei q programar outro possível desenvolvimento, se no meu processo a resposta vier eu abro mão do meu desenvolvimento. abr.

[xanburzum 169]

tá ai....

 

bem simples e funcional, pode testar

 

<%
'Declarando variáveis
Dim data1, data2, Ddata

data1 = #01/01/2011# 'Data fixa 1 janeiro
data2 = #22/02/2011#'Pega Data desejada

'Conta a quantidade de dias de diferença entre Data fixa e Data desejada e adiciona mais 1 devida a função DateDiff
Ddata = DateDiff("d", data1, data2+1)


response.write(Ddata)
%>

[filipefurriel 0]

Hum, interessante. Muito bom, vou testar. Vwl xanburzum, já havia resolvido meu caso com uma programação bem mais longa, porém, esta expressão é a que eu procurava, excelente. vwl. Realmente este post pode ser considerado resolvido.