---

Hallo Leute
grüble gerade über ein Makro und habe eine kleine Frage, wenn ich eine Datei unter einem bestimmten Namen speichern möchte, möchte ich dass es auch noch das aktuelle Datum mit reinnimmt.
Ich habe auch einen Codeschnipsel bekommen, jedoch nimmt es mir auch die Zeit mit. Wie kann ich das ändern.

Function TimeStamp() As String

TimeStamp = Mid(CStr(Year(Date)), 3, 2)
If Len(CStr(Month(Date))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Month(Date))
If Len(CStr(Day(Date))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Day(Date)) & "_"
If Len(CStr(Hour(Time))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Hour(Time))
If Len(CStr(Minute(Time))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Minute(Time))

End Function

Das war Zeitangabe und nun speichern

Sub Speicherort(CB)

Projektname = Startfenster.TB_Projektname.Value
------------------
Dateiname = "UNTERSUCHUNG_" & Projektname & "_" & TimeStamp & "_" & kuerzel  <--hier kommt auch noch Zeit mit rein! Will ich aber nicht!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
----------------
Zielpfad = Zielordner & Dateiname
Dok_Name = Dateiname

End Sub
---------------------------------------------------------------
Wie soll ich denn mein Timestamp umgestalten?!?
denn ich möchte dass es in diesem Format speichert:
TTMMJJ

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine Frage, weisst Du eigentlich was Du programmierst und wie ? Soviel sollte man schon in der LAge sein einen Code zu lesen.

Ansonsten nimm halt aus deinem Code Schnipsel die Zeit Zeilen raus:

Code:

---

TimeStamp = Mid(CStr(Year(Date)), 3, 2)
If Len(CStr(Month(Date))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Month(Date))
If Len(CStr(Day(Date))) = 1 Then TimeStamp = TimeStamp & "0"
TimeStamp = TimeStamp & CStr(Day(Date))

---

In einen richtigen Timestamp gehört aber meistens die Zeit mit rein und zweitens würde ich die Reihenfolge JJMMTT lassen, es ist dann leichter etwas zu finden (nsonsten kommt halt der 030109 vor dem 281208 und nach dem 010108
Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo miezeka,

soweit ich sehe, ist dein Code VBA.
Da geht ein Datum wesentlich einfacher:

Code:

---

TimeStamp = format(now(),"YYMMDD_HHMMSS") 'Aktuelles Datum mit Zeit, z.B. 081229_205900
TimeStamp = format(now(),"YYMMDD") 'Aktuelles Datum ohne Zeit, z.B. 081229

---

Gruß,
Zoltán

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Reicht es denn nicht aus nur die Funktion Date() aufzurufen? Das wäre zwar nicht ganz so sauber wie über now() aber sollte auch zum Ergebnis führen und lässt sich bei mir sogar mit den SQL-Timestamps vergleichen.
Also meiner Meinung nach, verbessert mich bitte, müsste TimeStamp = Date() völlig ausreichen.

Was mic hnur wundert ist warum die Frage aufkommt obwohl es für mich so aussieht, dass in der Start-Frage die Funktion bereits verwendet wird nur halt die Zeit noch mit angehangen wird?

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lila

Du hast recht

ich habe diesen Codeschnipsel bekommen, da ich wirklich ein kompletter Neuling bin was programmieren angeht und im Ziethen stand kein Timestamp (vllt hab ichs auch übersehen)

an dem Code welchen ich bekommen habe hat mich die Zeitangabe gestört und das Datum-Format. Hier ist YYMMDD und ich möchte unbedingt DDMMYYalso eben spiegelt vekehrt. Frage war ob das möglich ist.
Aber es kamen auch andere Variationen, welche auch noch viel einfacher sind.
Denn zur Zeit möcht eich ein Template erstellen und darin soll ein Part abgespeichert werden. Deshalb das Ganze.

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP