| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | Schnell, effizient und günstig: Mit der Kisters 3DViewStation 3D Arbeits- und Reparaturanleitungen einfach erstellen und pflegen, eine Pressemitteilung
|
|
Autor
|
Thema: CATScript & Format(Date, yymmdd)??? (2404 mal gelesen)
|
Maetes
Mitglied
Student
   Beiträge: 118
Registriert: 05.05.2009 XP 64Bit
CATIA V5R19SP4
MS Office 2003
|
erstellt am: 12. Jan. 2011 11:35  <-- editieren / zitieren -->   Unities abgeben:          
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 |
Maetes
Mitglied
Student
Beiträge: 118
Registriert: 05.05.2009 XP 64Bit
CATIA V5R19SP4
MS Office 2003
|
erstellt am: 12. Jan. 2011 11:43 <-- editieren / zitieren --> Unities abgeben:
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 |
ferdo
Mitglied
engineer
Beiträge: 34
Registriert: 15.04.2009 Windows 7, 64
CATIA v5r25 , 3DEXPERIENCE on cloud
|
erstellt am: 14. Jan. 2011 06:33 <-- editieren / zitieren --> Unities abgeben: Nur für Maetes 
|
ferdo
Mitglied
engineer
Beiträge: 34
Registriert: 15.04.2009 Windows 7, 64
CATIA v5r25 , 3DEXPERIENCE on cloud
|
erstellt am: 14. Jan. 2011 07:36 <-- editieren / zitieren --> Unities abgeben: Nur für Maetes
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 |
Maetes
Mitglied
Student
Beiträge: 118
Registriert: 05.05.2009 XP 64Bit
CATIA V5R19SP4
MS Office 2003
|
erstellt am: 17. Jan. 2011 13:42 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
