MUT: Monats bzw. Tagesnamen ausgeschrieben statt Ziffern

[mausebär]

oha, habs gerade selber gemerkt, da hab ich etwas zuviel abgeschnitten...
Der Code schaut jetzt so aus:

Code: Select all

Set oFSO  = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile(filename)
REM vDateTime = oFile.DateCreated
    vDateTime = oFile.DateLastModified '25.04.2014 11.27.32
REM vDateTime = oFile.DateLastAccessed

REM Jahr 2016
content   = Year(vDateTime)
REM Dekade 16
content1   = Right(Year(vDateTime), 2)

REM MonthName(month[,abbreviate])
content2  = MonthName(Month(vDateTime)) 'December
content3  = MonthName(Month(vDateTime), True) 'Dec
content4  = Right("0" & Month(vDateTime), 2) & MonthName(Month(vDateTime), True) '12Dec

REM WeekdayName(weekday[,abbreviate[,firstdayofweek: 0=vbUseSystem; 2=Monday]])
content5  = WeekdayName(Weekday(vDateTime), False) 'Dienstag
content6  = WeekdayName(Weekday(vDateTime), True) 'Die
content7  = Right("0" & Day(vDateTime), 2) & WeekdayName(Weekday(vDateTime), True) '17Die

und es scheint zu funktionieren...

[gdpr deleted 6]

oha, habs gerade selber gemerkt, da hab ich etwas zuviel abgeschnitten...
Der Code schaut jetzt so aus:

[...schnipp...]

und es scheint zu funktionieren...

Jo, sieht gut aus...

[mausebär]

...nur Gemach...
ich will noch alle anderen angebotenen Formate probieren.

Ich hab schon Pferde... usw.

...Also ich hab das jetzt an einem größeren Datensatz getestet, das Script / Plugin macht genau das was ich brauche.

Somit ist das Problem erledigt.

Vielen Dank an alle, die mich hier unterstützt haben.

Gruß
Wolfgang