Que Hago????

Puedes utilizar funciones para formatear las fechas, algunos ejemplos:

<%
Function Y2KDate1(ByVal Fecha)
'' convierte la fecha al formato mm/dd/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate1 = Valor
Else Y2KDate1 = Fecha
End If
End Function

Function Y2KDate2(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate2 = Valor
Else Y2KDate2 = Fecha
End If
End Function

Function Y2KDate3(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yyyy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Year(Fecha)
Y2KDate3 = Valor
Else Y2KDate3 = Fecha
End If
End Function
%>
<!-- comprobacion de las fechas -->
<%=Y2KDate1(Date)%><br>
<%=Y2KDate2(Date)%><br>
<%=Y2KDate3(Date)%>

Un saludo

Juan C. Barreiro
Depto. Desarrollo
www.barnamarketing.com


"Pamela" escribió en el mensaje
news:f3bd01c3f177$e38c97b0$

Estimados :
Junto con saludarles les solicito ayuda para la siguiente
situacion
Estoy desarrollando una aplicacion donde fundamentalmente
se utilizan numero y fechas, en los numeros se definio que
como separador de decimales se usara el punto y separador
de miles la coma, por lo tanto se utilizo el LCID 1033
pero al utilizar esto la fecha me quedan en formato
mm/dd/yyyy, formato que no me sirve para trabajar, esto me
provoca enorme problemas como la bd oracle, ya que debo
enviar y recibir la fecha a la bd, intente usar las
funciones day, month y year para manejar la fecha pero no
me sirve, me invierte la fecha, estoy desconcertada
necesito orientacion al respecto...

DEsde ya mucahs gracias a quien pueda ayudarme!!!
SAludos


Desde ya muchas gracias

Juan C.

Agradezco enormente tu ayuda, de todo lo que me haz
explicado me aclaro enormente en mis dudas.

Mil Gracias

SAludos
PAmela
Chile

Puedes utilizar funciones para formatear las fechas,

algunos ejemplos:

<%
Function Y2KDate1(ByVal Fecha)
'' convierte la fecha al formato mm/dd/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate1 = Valor
Else Y2KDate1 = Fecha
End If
End Function

Function Y2KDate2(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate2 = Valor
Else Y2KDate2 = Fecha
End If
End Function

Function Y2KDate3(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yyyy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Year(Fecha)
Y2KDate3 = Valor
Else Y2KDate3 = Fecha
End If
End Function
%>
<!-- comprobacion de las fechas -->
<%=Y2KDate1(Date)%><br>
<%=Y2KDate2(Date)%><br>
<%=Y2KDate3(Date)%>

Un saludo

Juan C. Barreiro
Depto. Desarrollo
www.barnamarketing.com


"Pamela" escribió

en el mensaje

news:f3bd01c3f177$e38c97b0$

Estimados :
Junto con saludarles les solicito ayuda para la

siguiente

situacion
Estoy desarrollando una aplicacion donde

fundamentalmente

se utilizan numero y fechas, en los numeros se definio

que

como separador de decimales se usara el punto y

separador

de miles la coma, por lo tanto se utilizo el LCID 1033
pero al utilizar esto la fecha me quedan en formato
mm/dd/yyyy, formato que no me sirve para trabajar, esto

me

provoca enorme problemas como la bd oracle, ya que debo
enviar y recibir la fecha a la bd, intente usar las
funciones day, month y year para manejar la fecha pero

no

me sirve, me invierte la fecha, estoy desconcertada
necesito orientacion al respecto...

DEsde ya mucahs gracias a quien pueda ayudarme!!!
SAludos


Desde ya muchas gracias

.

Una funcion mejorada para los formatos seria algo asi, de esta forma te
evitas escribir varias funciones para el formateo de las fechas, obviamente
y como todo siempre se puede mejorar :-))

<%
Function Y2KDate(ByVal Fecha, ByVal Formato)
Dim Valor
If IsDate(Fecha) Then
Fecha = CDate(Fecha)
Select Case(Formato)
Case 1
'' convierte la fecha al formato mm/dd/yy
Valor = Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Case 2
'' convierte la fecha al formato dd/mm/yy
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Case 3
'' convierte la fecha al formato dd/mm/yyyy
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Year(Fecha)
End Select
Y2KDate = Valor
Else Y2KDate = Fecha
End If
End Function
%>
<!-- comprobacion de las fechas -->
<%=Y2KDate(Date,1)%><br>
<%=Y2KDate(Date,2)%><br>
<%=Y2KDate(Date,3)%>

Un saludo y suerte.

Juan C. Barreiro
Depto. Desarrollo
www.barnamarketing.com


"Pamela" escribió en el mensaje
news:f70d01c3f17d$3f561d00$
Juan C.

Agradezco enormente tu ayuda, de todo lo que me haz
explicado me aclaro enormente en mis dudas.

Mil Gracias

SAludos
PAmela
Chile

Puedes utilizar funciones para formatear las fechas,

algunos ejemplos:

<%
Function Y2KDate1(ByVal Fecha)
'' convierte la fecha al formato mm/dd/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate1 = Valor
Else Y2KDate1 = Fecha
End If
End Function

Function Y2KDate2(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Right (Year(Fecha), 2)
Y2KDate2 = Valor
Else Y2KDate2 = Fecha
End If
End Function

Function Y2KDate3(ByVal Fecha)
'' convierte la fecha al formato dd/mm/yyyy
If IsDate(Fecha) Then
Dim Valor
Fecha = CDate(Fecha)
Valor = Right("00" & Day(Fecha), 2) & "/"
Valor = Valor & Right ("00" & Month(Fecha), 2) & "/"
Valor = Valor & Year(Fecha)
Y2KDate3 = Valor
Else Y2KDate3 = Fecha
End If
End Function
%>
<!-- comprobacion de las fechas -->
<%=Y2KDate1(Date)%><br>
<%=Y2KDate2(Date)%><br>
<%=Y2KDate3(Date)%>

Un saludo

Juan C. Barreiro
Depto. Desarrollo
www.barnamarketing.com


"Pamela" escribió

en el mensaje

news:f3bd01c3f177$e38c97b0$

Estimados :
Junto con saludarles les solicito ayuda para la

siguiente

situacion
Estoy desarrollando una aplicacion donde

fundamentalmente

se utilizan numero y fechas, en los numeros se definio

que

como separador de decimales se usara el punto y

separador

de miles la coma, por lo tanto se utilizo el LCID 1033
pero al utilizar esto la fecha me quedan en formato
mm/dd/yyyy, formato que no me sirve para trabajar, esto

me

provoca enorme problemas como la bd oracle, ya que debo
enviar y recibir la fecha a la bd, intente usar las
funciones day, month y year para manejar la fecha pero

no

me sirve, me invierte la fecha, estoy desconcertada
necesito orientacion al respecto...

DEsde ya mucahs gracias a quien pueda ayudarme!!!
SAludos


Desde ya muchas gracias

.

Estimada:
Puedes utilizar un LCID que se adapte a tu necesidad
Con comas en miles, signo de moneda "$" y fecha en
dd/mm/yyyy tienes por ejemplo:
2058
3081
4105
5129
20490

Suerte
Manuel

Estimados :
Junto con saludarles les solicito ayuda para la siguiente
situacion
Estoy desarrollando una aplicacion donde fundamentalmente
se utilizan numero y fechas, en los numeros se definio

que

como separador de decimales se usara el punto y separador
de miles la coma, por lo tanto se utilizo el LCID 1033
pero al utilizar esto la fecha me quedan en formato
mm/dd/yyyy, formato que no me sirve para trabajar, esto

me

provoca enorme problemas como la bd oracle, ya que debo
enviar y recibir la fecha a la bd, intente usar las
funciones day, month y year para manejar la fecha pero no
me sirve, me invierte la fecha, estoy desconcertada
necesito orientacion al respecto...

DEsde ya mucahs gracias a quien pueda ayudarme!!!
SAludos


Desde ya muchas gracias
.