Visual Basic - CAMBIAR FORMATO DE FECHA AL GENERAR TXT

Life is soft - evento anual de software empresarial
 
Vista:

CAMBIAR FORMATO DE FECHA AL GENERAR TXT

Publicado por EDGAR (193 intervenciones) el 27/04/2005 14:47:16
Hola colegas, se me ha presentado un problemilla ya que tengo mi base de datos (access) que contiene una serie de campos entre los cuales tenemos la fecha de nacimiento.. En mi sistema tengo un codigo que me genera una consulta y la posibilidad de migrar esa data a un formato txt que yo le establezco... Ahora bien la codificación es la siguiente que tambien espero sea de ayuda para otros colegas:
Set RstA = DATA.OpenRecordset("SELECT priape,prinom,fecnac FROM CEOBJ ")
NumeroArchivo = FreeFile
Open s For Output Shared As #NumeroArchivo
Print #NumeroArchivo, Trim("" & RstA("Priape")); Spc(16 - Len("" & RstA("Priape"))); _
Trim("" & RstA("Prinom")); Spc(16 - Len("" & RstA("Prinom"))); _
Trim("" & RstA("Fecnac")); Spc(8 - Len("" & RstA("Fecnac")))
Wend

Todo lo realiza perfectamente generando el TXT, resulta que la data que tengo en mi base de datos Access, el campo de la Fecha de Nacimiento (FECNAC) viene con el formato DD/MM/YYYY y me es necesario que en la codificación al generar el TXT me sea expresada la fecha en YYYYMMDD. Deduzco que la transformación tengo que hacerla en la siguiente instrucción pero necesito orientación para poder realizarlo ya que no he tenido exito: Trim("" & RstA("Fecnac")); Spc(8 - Len("" & RstA("Fecnac"))) Agradezco toda la ayuda prestada de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:CAMBIAR FORMATO DE FECHA AL GENERAR TXT

Publicado por Iñaki (502 intervenciones) el 27/04/2005 17:46:31
¿Has probado con la funcion "Replace" ?

strfecha = RstA ( "Fecnac")
strfecha2 = REPLACE ( strfecha, "/", "") ' se reemplaza el caracter "/" por nulo ""
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar