---

Hallo!
Gibt es eine elegante Möglichkeit an ein Datumsformat yymmdd zu kommen in einem CATScript? Im CATVBA nutze ich Format(Date, "yymmdd"), dieser Befehl scheint mit CATScript nicht zu funktionieren?

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

---

Habs jetzt so gemacht, aber Glücklich bin ich damit leider nicht 

Code:

---

Sub CATMain()
NowStamp = Now

ThisYear = right(Year(NowStamp), 2)

ThisMonth = Month(NowStamp)
If ThisMonth < 10 Then
ThisMonth = "0" & ThisMonth
End If

ThisDay = Day(NowStamp)
If ThisDay < 10 Then
ThisDay = "0" & ThisMonth
End If

msgbox ThisYear & ThisMonth & ThisDay
' msgbox Format(Date, "yymmdd")
End Sub

---

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

---

Date-User-Time_Parameters.zip StartDataCATPart.zip

Hallo,

Vielleicht dabei hilft Ihnen .

Tschüss
Fernando

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

---

Oder so etwas wie dieses.

Sub CATMain()

Set objFSO = CreateObject("Scripting.FileSystemObject")

strNewName = objFSO.GetBaseName(objFile) & _
        Year(Now) & "-" & _
        Right("0" & Month(Now), 2) & "-" & _
        Right("0" & Day(Now), 2) '& _

msgbox strNewName

End Sub

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

---

Hmm das mit dem right, is ne gute Idee! Sieht mir ein Stück sympatischer aus, danke! 

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