Mundo Pau

marzo 1, 2011

Como poner fecha automatica en Libreoffice Base

Filed under: Informática — Perdigue @ 15:08
Tags: ,

La macro “sRellenaFechaHoy” escribe la fecha de hoy en todos los campos de tipo fecha del formulario que no tengan ya un valor de fecha definido.

Si enlazas la macro “sAlCambiarRegistro” al evento “Tras el cambio de registro de datos” del formulario, se ejecutará cada vez que se visualice un registro. A qui el código

Sub sAlCambiarRegistro(Event As Object)
Dim oForm As Object
Form=Event.Source
RellenaFechaHoy(oForm)
End Sub
Sub sRellenaFechaHoy(Form As Object,Optional Fecha As Date)
Dim oField As Object

Dim FechaBD As Object

If IsMissing(Fecha) Then Fecha=Now

For Each oField In Form.Columns

If oField.TypeName="DATE" Then

If IsEmpty(oField.Value) Then

oField.UpdateDate(fFechaBD(Fecha))

End If

End If

Next

End Sub

Function fFechaBD(Fecha As Date) As com.sun.star.util.Date

Dim FechaBD As New com.sun.star.util.Date

FechaBD.Year=Year(Fecha)

FechaBD.Month=Month(Fecha)

FechaBD.Day=Day(Fecha)

fFechaBD=FechaBD

End Function

   

Más info en http://user.services.openoffice.org/es/forum/viewtopic.php?f=15&t=715

Dejar un comentario »

Aún no hay comentarios.

RSS feed for comments on this post. TrackBack URI

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Crea un blog o un sitio web gratuitos con WordPress.com.

A %d blogueros les gusta esto: