Funções com data e hora

[dark0]

Função que mostra a Hora:

Function Fun_Hora()
    hora = hour(now)
    minutos = minute(now)
    segundos =second(now)
    if len(hora) = 1 or hora < 10 or hora = 0 then
  hora = "0" + CStr(hora)
    end if

    if len(minutos) = 1 or minutos < 10 then
  minutos = "0" + CStr(minutos)
    end if
    if len(segundos) = 1 or segundos < 10 then
  segundos = "0" + CStr(segundos)
    end if
    Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function

Para usar, apenas chame no Response.Write Fun_Hora, ou <%=Fun_Hora%> Função que mostra a Data:

Function Fun_Data()
    dia = day(now)
    mes = month(now)
    ano = year(now)
    Fun_Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)
End Function

Para mostrar, use a mesma coisa da função da hora! Uma Sub (Um procedimento) que redireciona a pagina usando Java Script

Sub redireciona(pagina)
    response.write "<script>"
    response.write "window.location='"&pagina&"'"
    response.write "</script>"
End Sub

Para usar, use assim: no meio do codigo asp, chame:

redireciona "pagina.asp"

Abraços Dark! Função que formata data. Exclente! Esta função lhe ajudará muito. (e quando eu digo muito, é porque é muitooo mesmo (você verá com o tempo...))

dim dd, mm, aa
Function FormataData(data)
dd = Day(data)
mm = Month(data)
aa = Year(data)

if len(dd) = 1 then dd = "0" & dd
if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)
End Function

Mostrar data usando matriz:

<%
dim meses(12)

meses(1)="Janeiro"
meses(2)="Fevereiro"
meses(3)="Março"
meses(4)="Abril"
meses(5)="Maio"
meses(6)="Junho"
meses(7)="Julho"
meses(8)="Agosto"
meses(9)="Setembro"
meses(10)="Outubro"
meses(11)="Novembro"
meses(12)="dezembro"

dim semana(7)

semana(1) ="Domingo"
semana(2) ="Segunda-Feira"
semana(3) ="Terça-Feira"
semana(4) ="Quarta-Feira"
semana(5) ="Quinta-Feira"
semana(6) ="Sexta-Feira"
semana(7) ="Sábado"


sem = weekday(date)
dia = day(date)
mes = month(date)
ano = year(date)

function diadomes(d)
nc = len(dia)
if nc < 2 then
 diadomes = 0&dia
else
 diadomes = dia
end if
end function

data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano
%>
<hr>
<font color="333333" size=-2 face="verdana"><b><%=data%></b></font>

Aprendendo a fazer uma contagem regressiva (entre datas).

<span style='color:red'>A função datediff também tem outras rotinas como calcular diferencas de horas, minutos, segundos...</span>

exemplo:

Hora: DateDiff("h", hora1, hora2)

Minutos: DateDiff("h", hora1, hora2)

Segundos: DateDiff("s", hora1, hora2)

Bem, neste tutorial veremos como criar uma contagem regressiva para uma certa data.

<%

data1 = date() 'Pega a data atual

data2 = #30/04/2004# 'Coloca a data que você quer utilizar na contagem, neste exemplo usaremos a data de atualização do site

fdata = DateDiff("d", data1, data2)

response.write "Faltam " & fdata & " para atualização do site!!!" 'Imprime a mensagem na tela.

%>

[]'s

Victor

Editado Setembro 22, 2009 por bareta