Trabalhando com RSS percebi que era preciso formatar a data e a hora da notícia em conformidade com o RFC822 (por exemplo: Thu, 28 Dec 2006 16:37:32 GMT).
Verifiquei que a data deste formato é muito utilizado hoje em aplicações web e como não encontrei nenhuma função que fizesse a conversão de Data/Hora para este formato, desenvolvi esta função.
<% '----------------------------------------------------- 'Nome: FormatDateRFC822(ByVal DataHora) 'Sinopse: Formata uma data no padrão RFC-822 ' exemplo: 'Thu, 28 Dec 2006 16:37:32 GMT' 'Parametros: ' DataHora: Data e Hora 'Retorno: String 'Autor: Gabriel Fróes - www.codigofonte.com.br '----------------------------------------------------- Function FormatDateRFC822(ByVal DataHora) Dim Semana Dim Dia Dim Mes Dim Ano Dim Hora Dim Minuto Dim Segundo Dim GMT If IsDate(DataHora) Then 'Dia da Semana Select Case Weekday(DataHora) Case 1 Semana = "Sun" Case 2 Semana = "Mon" Case 3 Semana = "Tue" Case 4 Semana = "Wed" Case 5 Semana = "Thu" Case 6 Semana = "Fri" Case 7 Semana = "Sat" End Select 'Dia do Mês Dia = Day(DataHora) If Dia < 10 Then Dia = "0" & Dia 'Mês Select Case Month(DataHora) Case 1 Mes = "Jan" Case 2 Mes = "Feb" Case 3 Mes = "Mar" Case 4 Mes = "Apr" Case 5 Mes = "May" Case 6 Mes = "Jun" Case 7 Mes = "Jul" Case 8 Mes = "Aug" Case 9 Mes = "Sep" Case 10 Mes = "Oct" Case 11 Mes = "Nov" Case 12 Mes = "Dec" End Select 'Ano Ano = Year(DataHora) If Len(Ano) = 2 Then Ano = "20" & Ano 'Hora Hora = Hour(DataHora) If Hora = 0 Then Hora = "00" 'Minuto Minuto = Minute(DataHora) If Minuto = 0 Then Minuto = "00" 'Segundo Segundo = Second(DataHora) If Segundo = 0 Then Segundo = "00" 'Montando o resultado GMT = Semana & ", " & Dia & " " & Mes & " " & Ano & " " & Hora & ":" & Minuto & ":" & Segundo & " GMT" Else GMT = "" End If 'Retornando a função FormatDateRFC822 = GMT End Function '------------------------------- 'EXEMPLO DE CHAMADA '------------------------------- Response.Write FormatDateRFC822(Now()) %>