wozniak

Eu fiz essa função aqui, você pode converte-la p/ c#:

Formatar data

Formatando uma data em diversos formatos:

Framework 1.1

Linguagem: VB.NET


=============

#Region "Method FormatDateTime()"

Public Function FormatDateTime(ByVal strDate As String, ByVal strFormat As String) As String

If strDate = "" Then Exit Function

If strFormat = "" Then Exit Function

Dim data As New System.DateTime(Year(strDate), Month(strDate), Day(strDate), Hour(strDate), Minute(strDate), Second(strDate))

Dim strReturn As String

Select Case strFormat

Case "DD/MM/YYYY"

strReturn = AddZero(data.Day) & "/" & AddZero(data.Month) & "/" & data.Year

Case "DD-MM-YYYY"

strReturn = AddZero(data.Day) & "-" & AddZero(data.Month) & "-" & data.Year

Case "DD.MM.YYYY"

strReturn = AddZero(data.Day) & "." & AddZero(data.Month) & "." & data.Year

Case "DD/MM/YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "/" & AddZero(data.Month) & "/" & data.Year

Case "DD-MM-YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "-" & AddZero(data.Month) & "-" & data.Year

Case "DD.MM.YYYY HH:MM:SS"

strReturn = AddZero(data.Day) & "." & AddZero(data.Month) & "." & data.Year

Case "HH:MM:SS"

strReturn = AddZero(data.Hour) & ":" & AddZero(data.Minute) & ":" & data.Second

End Select

Return strReturn

End Function

#End Region

 

#Region "Method AddZero()"

Function AddZero(ByVal str As String) As String

If str = "" Then Exit Function

If Len(str) = 1 Then str = "0" & str

Return str

End Function

#End Region

=============


Para chamar a função é simples:

FormatDateTime(now(),"DD/MM/YYYY HH:MM:SS")


Forte abraço e até o próximo!

Foi um colapso

eu dei uma misturada com .net, foi força do ábito

Abraços

maravilha
tenho outra tabela com uns 20 registros
esse loop vai ajudar bastante

brigadao vcs

deu erro no

next i
----^

Só um incremento ao post do amigo acima:

Para capturar mais de um valor você pode utilizar um laço for:

Dim strArray, i

strArray = Split("ABC-123-TDG-HTP","-")

for i = 0 to Ubound(strArray)

response.write strArray(i)

next i

O código acima quebra a string em 4 partes, você pode ter milhares de partes, e para capturar todas você utiliza o laço for com um contador (index)

Forte abraço

faz assim:

For i = 0 to UBound(arrayIDnot,2)

For x = 0 to UBound(arrayID) 

if Instr(trim(arrayidnot(0, i)),trim(arrayID(x)) then

response.write "Not"

end if

Next

next

t+

Faz uma pesquiza por GetRows(), vai te ajudar muito

T+