---

Hallo Forum,
im ACAD Forum hat man mir den Tipp gegeben es mal bei euch zuprobieren, hätte auch selbst drauf kommen können. Dehalb meine Frage hier nochmal.
Ich hab mir was zusammengebastelt aus anderen Beiträgen und möchte ein Datum herausbekommen bei dem 20 Tage hinzugerechnet wurden aber nicht aus der ACAD-Variable "DATE", sondern auf ein X beliebiges Datum.
(setq datum "22.06.2013")
(defun Tageaddieren ( datum / VBS ret )
  (vl-load-com)
  (setq VBS (vlax-get-or-create-object "ScriptControl"))
  (vlax-put VBS "Language" "VBScript")
  (if (= -1 (vlax-invoke VBS "EVAL" (strcat "IsDate(\"" datum "\")")))
      (setq ret (vlax-invoke VBS "EVAL" (strcat "DateAdd(\"d\", 20, \"" datum "\")" ))) 
      (setq ret nil)
  )
  (vlax-release-object VBS)
  ret
)
als Rückgabe bekomme ich aber nur eine Zahl "41467.0" und kein Datum.
Da meine Kenntnisse was vlax-XXX angeht nahezu gleich 0 sind komme ich einfach nicht weiter.
Kann mir vieleicht einer auf die Sprünge helfen?
Dank im Voraus.
Gruß
Niggemann

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

---

Servus
Wahrscheinlich fehlt in deinem Code die Umwandlung des Datums in einen String (im gewünschten Datumsformat) zB:

Code:

---

Sub Test()

Dim Datum As Date
Dim strDatm As String

Datum = DateAdd("d", 20, Date)

strDatum = FormatDateTime(Datum, vbShortDate)

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke Bernd,
Bei mir sieht es dann so aus:
(vlax-invoke VBS "EVAL" (strcat "FormatDateTime(\""(itoa ret)"\", vbShortDate)"))
Gruß
Niggemann

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