Ir para conteúdo
Fórum Script Brasil
  • 0

Funções com data e hora


dark0

Pergunta

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 "&lt;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 por bareta
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...