---

Hallo,
kennt jemand eine Möglichkeit die Kalenderwoche in LISP zu berechnen welches auch nach einem Jahrswechsel noch funktioniert, und somit nicht jedes Jahr neu gesetzt werden muß?
Die 1. KW-09 hat bereits im letzten Jahr begonnen!

gruss Karsten

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

---

Ja, kenn ich, aber bevor ich hier einen Code poste, möchte ich mal wissen, wie denn dein allgemeines Herangehen an die Aufgabenstellung wäre...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Was ist nun? Interessiert es noch? Bist du weiter gekommen?

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas danke für deine Nachfrage
sorry bin etwas im Projektstress.
Hier mein Code!
(defun c:KW09?( / iKW22Mo iKW01Mo iKWact
(setq
    iKW22Mo 2454977  ; ergebnis aus (fix (getvar "date")
    iKW01Mo (- iKW22Mo (* 22 7)); Rückrechnung 1. Mo in 1. KW09
    iKWact(fix (/(- (fix(getvar "date")) iKw01Mo)7)) ; aktuelle KW
)
iKWact
);defun c:KW09?
aktuelles Ergebnis wäre nun 22

Nachteil ich muß pro Jahr erst mal den Montag der 1. KW bestimmen!
Welche Regel legt den 1. Montag der 1. KW fest?

gruss Karsten

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

---

Na ok .... zur Definition der KW siehe <<Wiki>> und da ich sehe, du hast dir ein paar Gedanken gemacht, hier mein Code (Excel-Definition der KW, dh. 1.KW= die Woche, in der der 1. Januar fällt):
Die anderen Defs sollten aber anpassbar sein.

(defun DATE-INFO ( DATUM
                 / GKD->JD JAHR MONAT TAG JD WT
                   WOCHENTAG WOCHENDONNERSTAG ERSTERDONNERSTAG EXCEL_KW DIN_KW
                 ) 
  (defun GKD->JD ( JAHR MONAT TAG / N1 N2 JD)
    (if(and(=(type JAHR) 'INT)(<= 1970 JAHR  3000)
           (=(type MONAT)'INT)(<= 1    MONAT   12)
           (=(type TAG)  'INT)(<= 1    TAG     31)
       )
      (progn     
        (if (or(= MONAT 1)(= MONAT 2))
          (progn
            (setq JAHR (- JAHR   1))
            (setq MONAT(+ MONAT 12))
          ) 
        )
        (setq N1 (fix (/(+ JAHR  4800) 100)))
        (setq N2 (- (+ JAHR  4800)  (* N1 100)))
       
        (setq JD (+ (*(fix(/ N1 4))           146097)
                    (*(- N1 (*(fix(/ N1 4))4)) 36524)
                    (*(fix(/ N2 4))             1461)
      (*(- N2 (*(fix(/ N2 4))4))   365)
                    (fix(/(*(- MONAT 2)7)12)) 
      (* 30 MONAT)
      TAG
      (- 32135)
           )
        )     
      )
    )
  )
  (defun WOCHENTAG (JD)
     (nth
       (-(fix (- JD 0.5))(*(fix(/(fix (- JD 0.5))7))7))
      '(("Dienstag" -2) ("Mittwoch"  -1) ("Donnerstag" 0)
        ("Freitag"   1) ("Sonnabend"  2) ("Sonntag"    3)
        ("Montag"   -3)
       )    
     )
  )
 
  (setq JAHR  (fix(/ DATUM 10000)))
  (setq MONAT (fix(/(- DATUM (* JAHR 10000))100)))
  (setq TAG   (fix(- DATUM (* JAHR 10000) (* MONAT 100))))
  (setq JD    (GKD->JD JAHR MONAT TAG)) 
  (setq WT    (car (WOCHENTAG JD)))
 
  (setq WOCHENDONNERSTAG (- JD (cadr (WOCHENTAG JD))))
  (setq ERSTERDONNERSTAG (- (GKD->JD JAHR 1 4) (cadr (WOCHENTAG (GKD->JD JAHR 1 4))))) 
  (setq DIN_KW
      (if (< WOCHENDONNERSTAG ERSTERDONNERSTAG)
        53
        (1+(/(- WOCHENDONNERSTAG ERSTERDONNERSTAG)7))
      )
  )     
  (setq EXCEL_KW (if (= DIN_KW 53)
                   1
                   (if(>=(- ERSTERDONNERSTAG (GKD->JD JAHR 1 1)) 3)
                     (1+ DIN_KW)
                     DIN_KW
                   )
                 )
  )     
  (list   
    (cons "JAHR"  JAHR)
    (cons "MONAT" MONAT)
    (cons "TAG"   TAG)
    (cons "WOCHENTAG" WT)
    (cons "KW-Excel" EXCEL_KW)
    (cons "KW-DIN1355" DIN_KW)
  )       
)

Aufruf z.B:
(DATE-INFO (getvar "CDATE"))
ermittelt die KW des aktuellen Datums...
(DATE-INFO 20100210)
ermittelt die KW vom 10.02.2010

------------------
          - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,
vielen Dank für Deine schnelle Unterstützung, welches Dir ein paar Unities eingebracht hat!
Mit der Definition der 1.KW werde ich Deine Funktion überarbeiten und im laufe der Woche meine Version zusenden.

karsten

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

---

ich habs oben mal modifiziert .. auch fürs DIN-Datum

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

ich lasse sowas prinzipill VBScript erledigen. Warum was nachbasteln, was es ehs chon gibt.

(defun KalenderWoche ( 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 "DatePart(\"ww\",\"" datum "\",vbMonday,vbFirstFourDays)" )))
      (setq ret nil)
  )
  (vlax-release-object VBS)
  ret
)

(KalenderWoche "27.05.2009") -> 22

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

---

Zitat:

---

Original erstellt von fuchsi:
ich lasse sowas prinzipill VBScript erledigen. Warum was nachbasteln, was es ehs chon gibt.
...

---

Auch nicht schlecht ... und stimmt schon, warum immer das Rad neu erfinden?! .. mir gings bei dem Code aber um die 100% ige Umsetzung in Lisp und um den dahinterstehenden Algorithmus ... ( genauso wie bei Zufallszahlenermittlung , Md5-Hash-Berechnung oder anderen Geometrischen Sachen ) .. hoffe, das ist akzeptiert 

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen Dank auch für diese Vaariante,
allerdings setzen wir auch OEM ACAD Versionen ein die nur VL aber keine VLA und VLAX Funktionen unterstützen.
Von daher vielen Dank für beide Varainten!

Karsten

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