Ayuda modificación de una Macro ( Fecha y Hora )

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
Avatar de Usuario
dunhill1
Mensajes: 78
Registrado: Jue May 24, 2012 8:16 pm
Contactar:

Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por dunhill1 »

Hola Gente:
He revisado el foro y encontre una macro para poner la Fecha Fija en este link https://forum.openoffice.org/es/forum/v ... t=villeroy
Segui los pasos y funciona pero necesito poner la fecha y la hora cada una en una columna
En el mensaje 6 de Mauricio explica otra Macro

Código: Seleccionar todo

Option Explicit

Sub InsertarFechaActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

	'Cambiar por la columna a insertar
	' A = 0, B = 1, etc
	lCol = 1
	oSel = ThisComponent.CurrentController.Selection
	oHoja = oSel.SpreadSheet
	oDir = oSel.CellAddress
	oHoja.getCellByPosition(lCol, oDir.Row).setValue(Date)

End Sub

Sub InsertarHoraActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

	'Cambiar por la columna a insertar
	' A = 0, B = 1, etc
	lCol = 2
	oSel = ThisComponent.CurrentController.Selection
	oHoja = oSel.SpreadSheet
	oDir = oSel.CellAddress
	oHoja.getCellByPosition(lCol, oDir.Row).setValue(Now) 'Quise cambiar Time por Now pero no lo reconoce 
	
End Sub
Dejo archivo adjunto.
Adjuntos
pm linux.ods
(12.85 KiB) Descargado 377 veces
OpenOffice 4.1.6 / Libreoffice 6 en Linux Mint 19
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por mauricio »

La forma rápida es usar Now y que establezcas el formato de la celda correctamente, Now te devuelve la fecha y hora, si solo quieres la hora, solo usa:

Código: Seleccionar todo

CDbl(Now) - Int(CDbl(Now))
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por mauricio »

Por favor, con una vez que publiques tu pregunta es más que suficiente. Gracias.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
dunhill1
Mensajes: 78
Registrado: Jue May 24, 2012 8:16 pm
Contactar:

Re: Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por dunhill1 »

Gracias Mauricio me aparece este error
Error de ejecución de BASIC.
Se ha producido una excepción
Type: com.sun.star.lang.IllegalArgumentException
Message: arguments len differ!.

Este es el codigo

Código: Seleccionar todo

Option Explicit

Sub InsertarFechaActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 3
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition(lCol, oDir.Row).setValue(Date)

End Sub

Option Explicit

Sub InsertarHoraActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 4
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition (CDbl(Now) - Int(CDbl(Now)) 
   
End Sub
OpenOffice 4.1.6 / Libreoffice 6 en Linux Mint 19
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por mauricio »

Es importante siempre mencionar donde te muestra el error... así viendo, creo que falto un paréntesis... mira que estén todos completos...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Ividiazzo
Mensajes: 1
Registrado: Dom Ene 14, 2018 3:11 pm

Re: Ayuda modificación de una Macro ( Fecha y Hora )

Mensaje por Ividiazzo »

Buen dia
Estoy probando la Macro y funciona perfectamente quisiera saber cmo hago para colocar una nueva condicion para que cuando escriba en otra celda me coloque nuevamente la fecha y hora actual sin modificar la que coloco anteriormente, gracias agradezco su colaboracion
OpenOffice 3.1 en Windows seven
Responder