Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Kalenderwoche berechnen KW21

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Kalenderwoche berechnen KW21 (1943 mal gelesen)
mapla
Mitglied
CAD Administrator


Sehen Sie sich das Profil von mapla an!   Senden Sie eine Private Message an mapla  Schreiben Sie einen Gästebucheintrag für mapla

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 20. Mai. 2009 10:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13322
Registriert: 30.11.2003

.

erstellt am: 20. Mai. 2009 11:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13322
Registriert: 30.11.2003

.

erstellt am: 25. Mai. 2009 09:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

mapla
Mitglied
CAD Administrator


Sehen Sie sich das Profil von mapla an!   Senden Sie eine Private Message an mapla  Schreiben Sie einen Gästebucheintrag für mapla

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Mai. 2009 09:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13322
Registriert: 30.11.2003

.

erstellt am: 25. Mai. 2009 10:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

mapla
Mitglied
CAD Administrator


Sehen Sie sich das Profil von mapla an!   Senden Sie eine Private Message an mapla  Schreiben Sie einen Gästebucheintrag für mapla

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Mai. 2009 11:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13322
Registriert: 30.11.2003

.

erstellt am: 25. Mai. 2009 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


Sehen Sie sich das Profil von fuchsi an!   Senden Sie eine Private Message an fuchsi  Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1199
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 27. Mai. 2009 09:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13322
Registriert: 30.11.2003

.

erstellt am: 27. Mai. 2009 09:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für mapla 10 Unities + Antwort hilfreich

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

mapla
Mitglied
CAD Administrator


Sehen Sie sich das Profil von mapla an!   Senden Sie eine Private Message an mapla  Schreiben Sie einen Gästebucheintrag für mapla

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 27. Mai. 2009 18:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2018 CAD.de