Visual Basic - Cambiar formato de la fecha

Life is soft - evento anual de software empresarial
   
Vista:

Cambiar formato de la fecha

Publicado por Javier (5 intervenciones) el 21/09/2010 13:52:26
Como cambio este scrpts para que me deje la fecha en el siguiente formato:

20100915105238

'Declaración de las variables

Dim objFileSystem, objOutputFile, strOutputFile,WshShl, Shell, DayOfYear, vararcserve

'Definicion de los objetos

Set WshShl = WScript.CreateObject("WScript.Shell")
Set Shell = WshShl.Environment("user")
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Aquí definimos las variables de VMware que queremos incluir en el fichero

vararcserve = WshShl.ExpandEnvironmentStrings(("%COMPUTERNAME% ") & "Todas las sesiones Migradas.")

'En ésta variable guardamos el día actual en formato ordinal

DayOfYear = Round(((Now / 365.255) - (Year(Now) - 1900)) * 365.255)

'Cleanup Objects
Set WshShl = Nothing
Set Shell = Nothing

'Creamos la carpeta destino si no existe.

If objFSO.FolderExists("E:\Logs_Aplicaciones") Then
Set objFolder = objFSO.GetFolder("E:\Logs_Aplicaciones")
Else
Set objFolder = objFSO.CreateFolder("E:\Logs_Aplicaciones")
End If

'Generamos el fichero de salida con el formato del log único.

strOutputFile = "E:\Logs_Aplicaciones\APL_"&DayOfYear&".log"
Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile,8,TRUE)
objOutputFile.WriteLine(Now & " | " & "9V" & " | " & "ES_0000" & " | " & "000000" & " | " & "0000000000" &" | " & "A" & " | " & vararcserve )
objOutputFile.Close
Set objFileSystem = Nothing

'Salimos

WScript.Quit(0)
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

RE:Cambiar formato de la fecha

Publicado por Yo otra vez (5 intervenciones) el 22/09/2010 10:17:34
Nadie me puede ayudar????
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

Ayuda por favor

Publicado por Javier (5 intervenciones) el 22/09/2010 10:18:55
Me urge alguien qm ayude.
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

RE:Cambiar formato de la fecha

Publicado por Yo otra vez (5 intervenciones) el 22/09/2010 10:24:55
Necesito cambiar este formato 21/09/2010 11:17:19 por este 20100915105238
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

RE:Cambiar formato de la fecha

Publicado por Zen Master (15 intervenciones) el 22/09/2010 15:19:00
¿¿¿Primero que nada que formato es ese???

201009 --> hasta aki entiendo

¿¿¿pero que tiene que ver 20100915105238 con 21/09/2010 11:17:19, supongo que al menos sabes eso puesto que deseas ver esa fecha convertida en ese formato???
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

RE:Cambiar formato de la fecha

Publicado por Jorge (55 intervenciones) el 22/09/2010 18:00:55
aver si entiendo 20100915105238
es: 20100915 por la fecha 2010/09/15
y 105238 por la hora 10:52:38 (solo que te equivocaste y pusiste 11:17:19)

si es asi porque no pruebas esto:

dim mi_fecha as string

mi_fecha = CStr(Year(Date)) + CStr(Month(Date)) + CStr(Day(Date)) + CStr(Hour(Time)) + CStr(Minute(Time)) + CStr(Second(Time))

el problema es que a los numeros no les pone el cero a la izquierda osea 1 en lugar de 01 (201014 en lugar de 20100104) pero eso lo solucionas haciendo una funcion que te le meta un cero a la izquierda cuando el un digito del 1 al 9....o si hay una funcion que hace eso pues genial)

salud!
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

RE:Cambiar formato de la fecha

Publicado por Yo otra vez (5 intervenciones) el 23/09/2010 09:35:40
Como se haria esa funcion? sabrias orientarme?

gracias
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

RE:Cambiar formato de la fecha

Publicado por FELIPE (41 intervenciones) el 27/09/2010 17:44:49
LA COMVERSION ES SIMPLE

USA EL FORMAT

Dim convertido As String

convertido = Format(Now, "YYYYMMDDHHNNSS")

'-------------------------- AÑOMESDIAHORAMINUTOSEGUNDO--

PUEDES PONERLO EN EL ORDEN QUE DESEES
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

RE:Cambiar formato de la fecha

Publicado por FELIPE (41 intervenciones) el 27/09/2010 17:47:51
PARA PONER UN CERO A LA IZQUIERDA

UTILIZA "RIGHT"

RIGHT(LOS CEROS + EL DATO, LA CANTIDAD DE DIGITOS A EXTRAER)
EJM:
DIM X AS STRING
X = RIGHT("0" & "9",2)
ENTONCES OBTIENES X= "09"
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