Formato de Fechas

quiero mostrar esas fechas en una tabla.

"QNet" escribió en el mensaje
news:

Quieres poner texto o solo utilizar formato americano?

QNet

"Omar Valdovino" wrote in message
news:
> Hola a todos:
>
> Como puedo darle el formato a una fecha para que siempre se presente
como:
>
> 01/12/2004 (Primero de diciembre del 2004)
> 05/08/2004 (Cinco de Agosto del 2004)
>
>

Esto te Servira Omar

Function FormatFecha(sFecha)
Dim dd, mm, yy

If DatePart("d", CDate(sFecha)) < 10 Then
dd = "0" + CStr(DatePart("d", CDate(sFecha)))
Else
dd = CStr(DatePart("d", CDate(sFecha)))
End If

If DatePart("m", CDate(sFecha)) < 10 Then
mm = "0" + CStr(DatePart("m", CDate(sFecha)))
Else
mm = CStr(DatePart("m", CDate(sFecha)))
End If

yy = DatePart("yyyy", CDate(sFecha))

' If (yy >= 1900) And (yy <= RangoAnioy) Then
FormatFecha = dd & "/" & mm & "/" & yy
' Else
' FormatFecha = ""
' End If
'Lo que esta con comilla funciona para VB 6
End Function


Will


"Omar Valdovino" escribió en el
mensaje news:

Hola a todos:

Como puedo darle el formato a una fecha para que siempre se presente

como:

01/12/2004 (Primero de diciembre del 2004)
05/08/2004 (Cinco de Agosto del 2004)

Muchas Gracias, yo buscaba una funcion como el format de Visual y la verdad
no se me habia ocurrido hacerla yo. :)
"Will" escribió en el mensaje
news:

Esto te Servira Omar

Function FormatFecha(sFecha)
Dim dd, mm, yy

If DatePart("d", CDate(sFecha)) < 10 Then
dd = "0" + CStr(DatePart("d", CDate(sFecha)))
Else
dd = CStr(DatePart("d", CDate(sFecha)))
End If

If DatePart("m", CDate(sFecha)) < 10 Then
mm = "0" + CStr(DatePart("m", CDate(sFecha)))
Else
mm = CStr(DatePart("m", CDate(sFecha)))
End If

yy = DatePart("yyyy", CDate(sFecha))

' If (yy >= 1900) And (yy <= RangoAnioy) Then
FormatFecha = dd & "/" & mm & "/" & yy
' Else
' FormatFecha = ""
' End If
'Lo que esta con comilla funciona para VB 6
End Function


Will


"Omar Valdovino" escribió en el
mensaje news:
> Hola a todos:
>
> Como puedo darle el formato a una fecha para que siempre se presente
como:
>
> 01/12/2004 (Primero de diciembre del 2004)
> 05/08/2004 (Cinco de Agosto del 2004)
>
>