Função fillzero: Se as duas datas, mês e dia, forem números ímpares, adicione 0 na frente. Por exemplo, o formato geral de 3 de março de 2011 é que 2011-3-3 é convertido em um formato como 2011-03-03 por meio de uma função. Copie o código do código da seguinte forma:
função pública preencherzero(l1)
se len(l1)=1 então
preencherzero=0&l1
outro
preencherzero=l1
terminar se
função final
Exemplos de uso:
Copie o código do código da seguinte forma:
resposta ano (agora) e mês (agora) e dia (agora) resultado: 201116
resposta ano(agora)&fillzero(mês(agora))&fillzero(dia(agora)) Exibir resultados:20110106
Como controlar a exibição do formato de data longa e do formato de data abreviada:
Data abreviada:FORMATDATETIME(DATE,vbShortDate)
Data longa:FORMATDATETIME(DATE,vbLongDate)
Ao exibir uma data com base na localidade do Reino Unido (EUA), a data é exibida no seguinte formato:
Data abreviada: 09/07/97
Data Longa: Quarta-feira, 09 de julho de 1997
Nota: O formato de data abreviada aparece exatamente igual a sem qualquer formatação. Por padrão, as datas são exibidas no formato de data abreviada.
Como usar a função FORMATDATETIME() para manipular o tempo:
Tempo curto:FORMATDATETIME(TIME,vbShortTime)
Longo Tempo:FORMATDATETIME(TIME,vbLongTime)
Ao exibir a hora na localidade do Reino Unido (Estados Unidos), a hora é formatada da seguinte forma:
Pouco tempo:03:20
Longo tempo: 3h20min08s
Copie o código do código da seguinte forma:
<%
função PreenchimentoZero(str)
ttt=str
se len(str)=1 então
ttt=0&str
terminar se
PreencherZero=ttt
função final
'Data de conversão, adicione zero a um dígito 2003-1-2 --> 2003-01-02
função ConvertDate(tDate)
ttt=tData
se édata(tData) então
ttt=ano(tData) & - & FillZero(mês(tData)) & - & FillZero(dia(tData))
terminar se
DatadeConversão=ttt
função final
'Insira uma sequência de data e hora, converta-a em quatro dígitos adultos e os outros dois dígitos em uma nova sequência de data e hora
função ConvertDateTime(tDateTime)
ttt=tDataHora
se isdate(tDateTime) então
ttt = ano (tDateTime) & - & FillZero (mês (tDateTime)) & - & FillZero (dia (tDateTime)) & & FillZero (cstr (hora (tDateTime))) & : & FillZero (cstr (minuto (tDateTime)) ) & : & FillZero(cstr(segundo(tDateTime)))
terminar se
ConvertDateTime =ttt
função final
%>