UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Josefran


Buenas Tardes Gracias por la ayuda que me han dado estos dias
Tengo un nuevo problema que no me habia dado cuenta, en una ventana de GenerarTXT tomo la HOra y FEcha de mi pc, pero la ocupo formato de AAAMMDD, HHMMSS, entonces como el sistema lo trae diferente 2014/06/17 con diagonales , decidi meter en una cadena cada valor(hora,minuto, segundo, año, dia, mes) y asi acomodarlo a como se me facilita ami, pero el problema es que cuando es mes, o dia menos a 10 se come el 0 y lo cual ocupo que me muestre el 20140617(Fecha)  porque ocupo 8 dijitos dejo el codigo una imagen y mi archivo.




Dim cadena1 As String, cadena2 As String, cadena3 As String
    Dim cadena4 As String, cadena5 As String, cadena6 As String
    Dim fechaActual As Date
    Dim horaActual As Date
   
    fechaActual = Date
    horaActual = Now
   
    cadena1 = Hour(horaActual)
    cadena2 = Minute(horaActual)
    cadena3 = Second(horaActual)
    cadena4 = Year(fechaActual)
    cadena5 = Month(fechaActual)
    cadena6 = Day(fechaActual)
   
    txtFechaFin.Text = cadena4 & cadena5 & cadena6
    txtHoraFin.Text = cadena1 & cadena2 & cadena3
    txtFechaProceso.Text = cadena4 & cadena5 & cadena6
    txtFechaFinTrial.Text = cadena4 & cadena5 & cadena6
    txtHoraTrial.Text = cadena1 & cadena2 & cadena3
    txtFechaValidacion.Text = cadena4 & cadena5 & cadena6
    txtHoraValidacionText = cadena1 & cadena2 & cadena3

tyno


José, crea un botón CommandButton  y agrégale este código dependiendo del formato de hora que tengas

Private Sub CommandButton1_Click()
fecha = Replace(Date, "/", "")
a = MsgBox(fecha, vbOKOnly)
End Sub

o bien:

Private Sub CommandButton1_Click()
fecha = Replace(Format(Date, "yyyy/mm/dd"), "/", "")
a = MsgBox(fecha, vbOKOnly)
End Sub


Luego ejecuta la macro con el botón. Supongo que deberías ver un msgbox con la fecha con este formato: 20140617.

Esto te lo paso de ejemplo para que veas que utilizando esta instrucción: fecha = Replace(Date, "/", "") o fecha = Replace(Format(Date, "yyyy/mm/dd"), "/", "") obtienes el tipo de formato de fecha que deseas y quizás no necesites concatenar tantas variables.


Saludos

Josefran


Gracias Tyno muy oportuno, pude utilizar tu codigo y juntarlo con el mio y  quedo asi. Y en el inicializador del form se agrega sin boton. Gracias


   
    Fecha = Replace(Format(Date, "yyyy/mm/dd"), "/", "")
    a = MsgBox(Fecha, vbOKOnly)
   

    txtFechaFin.Text = Fecha



Última edición por Josefran el 18/06/14, 11:46 am, editado 1 vez

Josefran


veo que tengo el mismo problema con las Horas, de casualdiad no tendras uno donde haga lo mismo pero en horas?

Josefran


Olvidalo, ya lo resolvi Very Happy Gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.