Eigenschaften ActiveWorkbook.BuiltinDocumentProperties

[Jürgen Kolb]

Hallo zusammen,

verwende in einem VBA Makro die
ActiveWorkbook.BuiltinDocumentProperties("Last print date").
Dabei wird das Datum des letzen Druckens ausgegeben.
Dieser Wert ist allerdings zu lang, sprich Datum & Uhrzeit. Was ich brauche
ist aber nur das Datum.

Kann man das irgendwie ändern ?

Gruß Jürgen

[Herbert Taferner]

Hallo Jürgen,

Sub gedruckt_am()
Dim dat As Date
dat = Left(ActiveWorkbook.BuiltinDocumentProperties("Last print date"), 10)
End Sub

mfg Herbert

[Eike Bimczok]

Hallo,

vermutlich ist die Format Funktion vorteilhaft, z.B. so:

x = ActiveWorkbook.BuiltinDocumentProperties("Last print date")
MsgBox Format(x, "Long Date")
MsgBox Format(x, "Long Time")

Gruß
Eike

Herbert Taferner schrieb:

[Jürgen Kolb]

Hallo Herbert,

hat funktioniert !

Vielen Dank an alle.

Gruß Jürgen

[Thomas Ramel]

Grüezi Jürgen

Jürgen Kolb schrieb am 03.11.2005

Aber sicher doch, wie die zwei Vorschläge schon gezeigt haben....

Ich mags aber nicht sehr, wenn mit String-Operationen Datumswerte
bearbeitet werden. Was z.B. wenn in den Ländereinstellungen als Kurzdatum
TT.MM.JJ eingestellt ist? Dann fällt die Sring-Operation auf die Nase.

Daher rate ich entweder zur Format-Version, die das Ergebnis dann auch
wieder als Text ausgibt, oder aber gleich zur mathematischen Berechnung,
welche als Ergebnis ein Datum ausgibt, mit dem Du auch wieder rechnen
kannst:

MsgBox Int(ActiveWorkbook.BuiltinDocumentProperties("Last print date"))

Mit freundlichen Grüssen
Thomas Ramel

--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
Microsoft Excel - Die ExpertenTipps:
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)