Formato de Fecha al reves (Ayuda !!!)

[Ruben A P S]

Saludos al grupo

Mi pregunta es la siguiente

Hice un programa en vba en el cual pido ak usuario teclee 2 digitos para el
dia, el mes y el año y asi formo la fecha, concatenando las variables con el
texto "/".

Mi problema es que cuando el dia es menor a 12, entonces excel me cambia el
mes por el dia y el dia por el mes, ejemplo

si un usuario ingreso 05 como dia, 03 como mes y 04 como año, la fecha
correcta deberia de ser 05/03/04, pero excel me cambia ese resultado por
03/05/04, y si el dia es mayor a 12 entonces me pone bien la fecha.

Ya cheque el resultado de la variable que forma la fecha y ahi el dato esta
bien, mi problema es cuando ese dato de la variable la ingreso por
programacion a una celda de mi hoja de calculo.

Gracias por su ayuda y sus tips

Ruben A P S

[JoseLuisArg arroba]

Si por ejemplo el valor lo cargas en A1, qué formato tiene la celda???

Sobre A1 botón derecho / Formato de celdas... / en la solapa Número

Selecciona Fecha y el estilo que quieras.

Sino en perzonalizada dd-mm-yy

"Ruben A P S" <rap...@hotmail.com> escribió en el mensaje
news:eiKIHWeQ...@TK2MSFTNGP09.phx.gbl...

[Héctor Miguel]

hola, Ruben !

> ... en vba ... pido al usuario teclee 2 digitos para el dia, el mes y el año
> ... formo la fecha, concatenando las variables con el texto "/".
> ... cuando el dia es menor a 12, ... excel me cambia el mes por el dia y el dia por el mes [...]
> ... cheque el resultado de la variable que forma la fecha y ahi el dato esta bien
> ... problema es cuando ese dato de la variable la ingreso por programacion [...]

'independientemente' de 'como armes' =>tu<= por codigo la variable 'final' para la fecha...
excel 'trata' [primeramente] de 'ajustarse' al formato/sistema de fecha 'establecido' =>en la pc<=
=>revisa: Application.International(xlDateOrder)<=
0: OrdenFecha = "mm-dd-aa[aa]"
1: OrdenFecha = "dd-mm-aa[aa]"
2: OrdenFecha = "aa[aa]-mm-dd"

una [posible] forma de 'asegurarte' que la fecha sera 'ingresada correctamente' [por el codigo]...
podrias 'asignar' a una variable 'su resultado' con la funcion DateSerial(año, mes, dia) [p.e.]
Dim Fecha As Date
Fecha = DateSerial(digitos_año, digitos_mes, digitos_dia)
=> es importante que 'observes' el orden <=

¿comentas?
saludos,
hector.

[Ruben A P S]

Gracias Jose Luis y Hector por su amable ayuda

Segui los pasos de Hector y ya Funciono

Les estoy muy agradecido

"Ruben A P S" <rap...@hotmail.com> escribió en el mensaje
news:eiKIHWeQ...@TK2MSFTNGP09.phx.gbl...