|
|
Postada em 28/12/2004 10:53 hs
Oi, Alguém conhece alguma Função p/ deixar data assim: nomeMês/Ano ??
Já pesquisei a FormatDateTime, mas a mesma não tem esta opção. Será que isto apenas seria possível usando a função Month(DataX) & "/" & Year(DataX) ? E como eu faria uma busca usando SQL dentro de várias datas onde a data tiver mês/ano = valor desejado ? Grato,
http://www.vilmarbro.com.br
|
|
|
|
|
|
|
|
Postada em 28/12/2004 13:24 hs
Public Function DataMesANo(vgData)
dim Mes
Mes = Month(vgData)
DataMesANo = Mes & "/" & year(vgData)
End Function Public Function MesPortugues(Mes)
'vamos achar o mes
select case Mes
case 1 'se for janeiro
MesPortugues = "Janeiro"
case 2 'se for fevereiro
MesPortugues = "Fevereiro"
case 3 'se for março
MesPortugues = "Março"
case 4 'se for abril
MesPortugues = "Abril"
case 5 'se for maio
MesPortugues = "Maio"
case 6 'se for junho
MesPortugues = "Junho"
case 7 'se for julho
MesPortugues = "Julho"
case 8 'se for agosto
MesPortugues = "Agosto"
case 9 'se for setembro
MesPortugues = "Setembro"
case 10 'se for outubro
MesPortugues = "Outubro"
case 11 'se for novembro
MesPortugues = "Novembro"
case 12 'se for dezembro
MesPortugues = "Dezembro"
end select
End Function
|
|
|
|
|
|
Postada em 28/12/2004 14:05 hs
Oi Martini, Legal a função, mas já que não existe uma função nativa do VBScript que faça isso(como existe no VB.Net), acho que a sua função ficaria melhor assim:
Public Function DataMesANo(vgData)
dim Mes
Mes = Month(vgData)
DataMesANo = MonthName(Mes) & "/" & year(vgData)
End Function grato,
http://www.vilmarbro.com.br
|
|
|
|
|
|
Postada em 28/12/2004 14:21 hs
Oi, E qto a minha segunda pergunta do 1º tópico, ficou assim conforme exemplo abaixo:
SQL = "select rtrim(ltrim(str(month(crdate)))) + '/' + rtrim(ltrim(str(year(crdate)))) from sysobjects where month(crdate) = 8 and year(crdate) = 2000" T+
http://www.vilmarbro.com.br
|
|
|
|
|
|
Postada em 30/12/2004 13:25 hs
Select (right(('0' + cast(Month(N1_AQUISIC) as varchar)),2) + '/' + cast(Year(N1_AQUISIC) as varchar)), * From SN1010
Where D_E_L_E_T_ <> '*'
And Month(N1_AQUISIC) = 01
And Year(N1_AQUISIC) = 2004
|
|
|
|
|
|
Postada em 30/12/2004 13:27 hs
ah!!!, eu fiz sem usar a função monthname porque eu acho que não tem em vbscript, pois quando eu tentei usar dava erro ... |
|
|
|
