Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Pens@dor

Converter formato de Data

Recommended Posts

Movido Para JavaScript!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá tenho essa função para converter o formato de data, é muito eficiente e simples de usar:

<% Private Function lZeros(byVal lValue, byVal iLength) lZeros = Right(String(iLength, "0") & Trim(cStr(lValue)), iLength) End Function Private Function fDate(byVal oDate, byVal sFormat) Dim iDay, iMonth, iYear iDay = DatePart("d", oDate) iMonth = DatePart("m", oDate) iYear = DatePart("yyyy", oDate) fDate = Replace(lcase(sFormat), "w", WeekDayName(DatePart("w", oDate))) fDate = Replace(fDate, "hh", lZeros(DatePart("h", oDate),2)) fDate = Replace(fDate, "nn", lZeros(DatePart("n", oDate),2)) fDate = Replace(fDate, "ss", lZeros(DatePart("s", oDate),2)) fDate = Replace(fDate, "dd", lZeros(iDay,2)) fDate = Replace(Replace(fDate,"mmmm", MonthName(iMonth)),"mmm", MonthName(iMonth, True)) fDate = Replace(fDate, "mm", lZeros(iMonth,2)) fDate = Replace(Replace(fDate, "yyyy", iYear), "yy", right(cStr(iYear),2)) End Function %>
Exemplo de uso <%=rs(fDate("campodata",mm/dd/yyyy))%> ou strSQL="Select * from tabela where campodata = '"+fDate(now,dd/mm/yyyy)+"' 'També tem o lance de trabalhar com horas

 

Bom aproveito

 

T+

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá tenho essa função para converter o formato de data, é muito eficiente e simples de usar:

<% Private Function lZeros(byVal lValue, byVal iLength) lZeros = Right(String(iLength, "0") & Trim(cStr(lValue)), iLength) End Function Private Function fDate(byVal oDate, byVal sFormat) Dim iDay, iMonth, iYear iDay = DatePart("d", oDate) iMonth = DatePart("m", oDate) iYear = DatePart("yyyy", oDate) fDate = Replace(lcase(sFormat), "w", WeekDayName(DatePart("w", oDate))) fDate = Replace(fDate, "hh", lZeros(DatePart("h", oDate),2)) fDate = Replace(fDate, "nn", lZeros(DatePart("n", oDate),2)) fDate = Replace(fDate, "ss", lZeros(DatePart("s", oDate),2)) fDate = Replace(fDate, "dd", lZeros(iDay,2)) fDate = Replace(Replace(fDate,"mmmm", MonthName(iMonth)),"mmm", MonthName(iMonth, True)) fDate = Replace(fDate, "mm", lZeros(iMonth,2)) fDate = Replace(Replace(fDate, "yyyy", iYear), "yy", right(cStr(iYear),2)) End Function %>
Exemplo de uso <%=rs(fDate("campodata",mm/dd/yyyy))%> ou strSQL="Select * from tabela where campodata = '"+fDate(now,dd/mm/yyyy)+"' 'També tem o lance de trabalhar com horas

 

Bom aproveito

 

T+

Obrigado.

 

Mas eu preciso que ela seja em JavaScript, em VBScript é fácil, mas em JavaScript é que não estou conseguindo. :wacko:

 

Como posso estar fazendo ??

 

Valeu,

 

[]'s

B)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.