| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Kalenderwoche berechnen KW21 (2678 mal gelesen)
|
mapla Mitglied CAD Administrator
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 / zitieren --> Unities abgeben:
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 20. Mai. 2009 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Mai. 2009 09:02 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
|
mapla Mitglied CAD Administrator
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 / zitieren --> Unities abgeben:
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Mai. 2009 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
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
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 / zitieren --> Unities abgeben:
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 25. Mai. 2009 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 27. Mai. 2009 09:25 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 27. Mai. 2009 09:33 <-- editieren / zitieren --> Unities abgeben: Nur für mapla
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
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 / zitieren --> Unities abgeben:
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 |