Makro der indsætter dato og tid

[Tolsen]

Hej
Jeg har brug for, i et regneark, at indsætte dags dato og tid flere gange i løbet af dagen, jeg har prøvet med NU() men så snart regnearket bliver opdateret skiftes dato to tid ud til det aktuelle hvilket ikke er det jeg ønsker, regnearket skal bruges til at holde styr på tidspunkter for telefonopkald, derfor vil det være smart hvis jeg via en genvej kunne oprette dato og tid lige nu der ikke ændre sig.

[Lodahl]

Indsæt dato:

Code: Select all

Sub DateNow
Dim here As Object
here =ThisComponent.CurrentSelection
here.setValue(DateValue (Now ))
here.NumberFormat =75
End sub

Indsæt tid:

Code: Select all

Sub TimeNow
Dim here As Object
here=ThisComponent.CurrentSelection
here.setValue (TimeValue (Now ))
here.NumberFormat =41
End sub

Hvis du vil lave det med dato og tid skal du ændre NumberFormat: http://api.libreoffice.org/docs/common/ ... ormat.html

[Jens S]

Hej
Det nemmeste er at hente tilføjelsen 'DateTime2.oxt' , men da siderne med tilføjelser til OOo ikke virker ordentlig, kan du hente den her http://dl.dropbox.com/u/2601866/DateTime2.oxt
Dobbeltklik på filen og den vil aut. installere sig på dit system. Du skal vælge at installere den for dig personlig, ellers vil den blive placeret und er OpenOffice-makroer, og du kan ikke rette i den.
Når den er installeret finder du den under 'Mine makroer' (brug Alt+F11)- gå til modulet 'DateTime2_func' og ret i toppen af modulet, så det kommer til at se sådan ud og passer til danske instillinger:

Code: Select all

public Const  MYDATEFORMAT = "DD-MM-YY"
' public Const  MYDATEFORMAT = "TT-MM-JJJJ"
' Const MYDATEFORMAT = "YYYY-MM-DD"
public Const MYTIMEFORMAT = "TT:MM"

' V2
' Format eines Zeitstempels
' Const MYTIMESTAMPFORMAT = "YYYY-MM-DD HH:MM"
public Const MYTIMESTAMPFORMAT = "YYYY-MM-DD TT:MM"

Så går du tilbage til regnearket og vælger Funktioner-Tilpas-Tastatur. Nederst til venstre 'Kategori' går du til OpenOffice-makroer-User-Datime2-DateTime2 og markerer 'Zeitstempel_Feld' . Vælg nu en ledig tastekombination ovenfor og klik derefter på tasten 'Modificer'

Nå du nu vælger en celle og bruger den valgte tastekombination, får en datotidsstempel i cellen.
Du kan på samme måde vælge genvejstaster for 'Datum_Feld' (giver kun datoen) og 'Zeit_feld' (giver klokkeslet)

mvh
Jens

[Tolsen]

Tusinde tak for hjælpen, det virker fint