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

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

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

Notapor dunhill1 » Sab May 13, 2017 4:00 am

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   Expandir vistaContraer vista
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) 223 veces
OpenOffice 4.1.6 / Libreoffice 6 en Linux Mint 19
Avatar de Usuario
dunhill1
 
Mensajes: 78
Registrado: Jue May 24, 2012 8:16 pm

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

Notapor mauricio » Sab May 13, 2017 4:31 am

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   Expandir vistaContraer vista
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: 5966
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

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

Notapor mauricio » Sab May 13, 2017 5:11 pm

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
mauricio
 
Mensajes: 5966
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

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

Notapor dunhill1 » Dom May 14, 2017 3:21 am

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   Expandir vistaContraer vista
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
dunhill1
 
Mensajes: 78
Registrado: Jue May 24, 2012 8:16 pm

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

Notapor mauricio » Dom May 14, 2017 3:55 am

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
Avatar de Usuario
mauricio
 
Mensajes: 5966
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

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

Notapor Ividiazzo » Dom Ene 14, 2018 3:14 pm

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
Ividiazzo
 
Mensajes: 1
Registrado: Dom Ene 14, 2018 3:11 pm


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: MSN [Bot] y 1 invitado