| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: VBA Datum wird um 1 Tag verändert (2056 / mal gelesen)
|
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003 Windows 10 Prof 64 Bit Inventor Prof 2021 Vault Basic 2021
|
erstellt am: 22. Apr. 2018 20:53 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen Ich habe da folgendes Problem: Ich habe mit VBA ein Eingabefenster erstellt, welches mir die Eingabe der Iproperties vereinfacht. Funktioniert soweit auch korrekt. Nur mit einem Datumsfeld habe ich ein Problem: Ich lese mit folgendem Befehl zb das Aenderungsdatum aus einem benutzerdefinierten IPropertie aus, und schreibe es in eine Userform: userform1.TBAen_1_Datum.Value = Format(oDoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value, "dd.MM.YYYY") Nach dem Drücken auf ok wird dieser datumswert wieder in das benutzerdefinierte Ipropertie zurückgeschrieben: oDoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value = DateValue(TBAen_1_Datum.Value) Wie den beiliegenden Print-Screens aber zu entnehmen ist, wird dabei das Datum um 1 Tag zurückgestellt (im Beispiel vom 16.12.2016 auf den 15.12.2016). Hole ich die Iproperties aber wieder in die Userform, wird wieder der 16.12.2016 angezeigt?? Ist also nur ein Problem, dass es in den Iproperties falsch angezeigt wird. Trotzdem kann dies aber für Verwirrung sorgen. Kann mir jemand sagen, wie ich dieses Problem lösen kann?? Danke und Gruss Meierjo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 23. Apr. 2018 10:32 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
das Problem konnte ich erfolgreich nachstellen Bei mir das gleiche Verhalten: iProp lesen, iProp schreiben; Bei den iProperties Anzeige um 1 Tag versetzt; beim erneuten Lesen per VBA kommt das richtige Datum zurück. mE auch interessant, dass bei manueller (kein VBA) Eingabe in das iProperty, das Datum beim Auslesen mit VBA trotzdem unverändert erscheint. Leider keine Hilfe, aber zumindest die Info "Du bist nicht allein" ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 23. Apr. 2018 11:03 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 23. Apr. 2018 14:10 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003 Windows 10 Prof 64 Bit Inventor Prof 2021 Vault Basic 2021
|
erstellt am: 23. Apr. 2018 19:01 <-- editieren / zitieren --> Unities abgeben:
|
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003
|
erstellt am: 23. Apr. 2018 19:02 <-- editieren / zitieren --> Unities abgeben:
|
Tacker Mitglied TZ, Tech. MB, Softwareentwickler
Beiträge: 175 Registriert: 23.09.2010 IV 2017 Pro i7-7700K 4x4.2GHz 32GB DDR4-2400 GTX 1060 6GB DDR5
|
erstellt am: 24. Apr. 2018 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
Moin Wollte mir das auch mal anschauen, bei mir lässt sich der Fehler nicht nachstellen. Umgebung war ein Bauteil, neue Userform (Userform1) mit einer Textbox(TextBox1) darin. Getestet in IV 2017 Pro Build 256. Code:
Private Sub Test12()Dim odoc As Document Dim New_Userform As UserForm1 Set New_Userform = UserForm1 Set odoc = ThisApplication.ActiveDocument Dim Teststring As String 'Teststring = Format(odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value, "dd.MM.YYYY") New_Userform.TextBox1.Value = Format(odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value, "dd.MM.YYYY") odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value = DateValue(New_Userform.TextBox1.Value) 'odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value = DateValue(Teststring) 'New_Userform.Show Debug.Print ("#################") Debug.Print (odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Value) Debug.Print (odoc.PropertySets("Inventor User Defined Properties").Item("Aen_1_Datum").Expression) End Sub
[Diese Nachricht wurde von Tacker am 25. Apr. 2018 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 24. Apr. 2018 14:14 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
@Tacker Du hast aber nicht nur im "Immediate Window" nachgesehen, oder? Das ist ja mE das verrückte: aus Sicht der API (Watches, Immediate, Meldungen, what ever) wird der in das iProp geschriebene Wert angezeigt. Jedoch für den Benutzer über das IV-GUI in den iProperties (ich meine den Befehl "iProperties" im Kontextmenü z.B. eines Bauteils) ist ein anderes Datum sichtbar (eben um 1 Tag versetzt). Zumindest bei Meierjo und mir scheint das so zu sein. Falls das bei Dir anders ist, sollten wir tiefergehend abgleichen, wo Unterschiede liegen könnten! (Betriebssystem, Ländereinstellungen, Zeitzone ... kA) ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 24. Apr. 2018 14:51 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
das lässt mich nicht so recht los... Ich habe unabhängig von der API ein wenig rumprobiert, da tritt das Problem auch bereits auf. - iProperties öffnen, Wert (Datum) ändern (ja, auch auf den Ändern-Button gedrückt) iProperties erneut öffnen -> Wert (Datum) ist 1 Tag vorher! - gleiches Verhalten, beim Ändern vom Dateiexplorer aus - hab es auch mit geänderten Ländereinstellungen auf Win-Ebene versucht ("Region und Sprache", Format "English (USA)" und Aufenthaltsort "Vereinigte Staaten") -> gleiches Verhalten - wenn ich ein Datum setze für ein vohandenes "Standard"-iProp (ich habe unter Reiter Status das Kontrolldatum versucht), tritt das Problem nicht auf Könnte das ein Bug für benutzerdefinierte iProp. vom Typ Datum sein? ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003
|
erstellt am: 24. Apr. 2018 21:28 <-- editieren / zitieren --> Unities abgeben:
Hallo KraBBy Sehr merkwürdig, dieses Verhalten kann ich bei mir tatsächlich auch feststellen. Werde morgen mal ein Ticket bei unserem CAD-Partner lösen, mal schauen, ob er dazu wassagt. Danke und Gruss Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tacker Mitglied TZ, Tech. MB, Softwareentwickler
Beiträge: 175 Registriert: 23.09.2010 IV 2017 Pro i7-7700K 4x4.2GHz 32GB DDR4-2400 GTX 1060 6GB DDR5
|
erstellt am: 24. Apr. 2018 21:29 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
Moin, Ja, hab auch die Properties kontrolliert, da hab ich keine Veränderungen feststellen können. Mit welcher Build Version arbeitet ihr? Bei mir ist es aktuell die IV 2017 256. Plattform ist Win-10 Pro 64-bit Version 1709. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 25. Apr. 2018 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 25. Apr. 2018 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 25. Apr. 2018 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 25. Apr. 2018 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 601 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 25. Apr. 2018 16:14 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
Tacker Mitglied TZ, Tech. MB, Softwareentwickler
Beiträge: 175 Registriert: 23.09.2010 IV 2017 Pro i7-7700K 4x4.2GHz 32GB DDR4-2400 GTX 1060 6GB DDR5
|
erstellt am: 25. Apr. 2018 23:39 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
BernoAn Mitglied
Beiträge: 164 Registriert: 16.01.2014
|
erstellt am: 26. Apr. 2018 08:08 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003 Windows 10 Prof 64 Bit Inventor Prof 2021 Vault Basic 2021
|
erstellt am: 26. Apr. 2018 18:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Also bei mir taucht der Fehler mit Inventor 2017, Build 142, wie auch Inventor 2017, Build 256, unter Windows 7, X64 und unter Windows 10 (X64) auf Werde die nächsten Tage mal Inventor 2018 und 2019 ausprobieren Gruss
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tacker Mitglied TZ, Tech. MB, Softwareentwickler
Beiträge: 175 Registriert: 23.09.2010 IV 2017 Pro i7-7700K 4x4.2GHz 32GB DDR4-2400 GTX 1060 6GB DDR5
|
erstellt am: 24. Mai. 2018 12:51 <-- editieren / zitieren --> Unities abgeben: Nur für Meierjo
|
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003
|
erstellt am: 31. Mai. 2018 11:17 <-- editieren / zitieren --> Unities abgeben:
Hallo Sorry für die verspätete Antwort. Gibt viel zu tun. Hab's jetzt mal mit Inventor 2019 (Build 136) ausprobiert. Hier scheint's korrekt zu funktionieren. Sowohl die benutzerdefinierten Datum's wie auch die "System-Properties" werden korrekt eingetragen, und wieder aufgerufen Gruss Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |