| |
| Leitfaden für die Materialauswahl im Spritzguss, ein Fachartikel
|
Autor
|
Thema: Kalenderwoche (1119 mal gelesen)
|
Lange069 Mitglied Arbeiter
Beiträge: 14 Registriert: 20.11.2007
|
erstellt am: 29. Feb. 2008 19:23 <-- editieren / zitieren --> Unities abgeben:
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007 Win 10 Pro, Office 97 bis Office 2016
|
erstellt am: 29. Feb. 2008 19:53 <-- editieren / zitieren --> Unities abgeben: Nur für Lange069
|
arossbach Mitglied Ingenieur Masch.bau
Beiträge: 1181 Registriert: 13.06.2001
|
erstellt am: 29. Feb. 2008 19:58 <-- editieren / zitieren --> Unities abgeben: Nur für Lange069
oder in VBA mit einem UserForm und zwei Labeln: Private Sub CommandButton1_Click() Dim tag As Date tag = Cells(2, 2) UserForm1.Label1 = kwoche(tag) UserForm1.Show End Sub Function kwoche(d As Date) As Integer Dim t& t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1) kwoche = (d - t - 3 + (WeekDay(t) + 1) Mod 7) \ 7 + 1 End Function Gruß
------------------ -Axel- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
carsten-3m Mitglied Dipl.-Ing. Mbau (Produktmanagement, Patent- und Normwesen)
Beiträge: 950 Registriert: 08.05.2007 Excel 2010
|
erstellt am: 03. Mrz. 2008 10:46 <-- editieren / zitieren --> Unities abgeben: Nur für Lange069
Das Ganze geht recht elegant mit einer VBA-Funktion und auch noch nach DIN - was will man mehr: Code: Function kw(dat As Date) As Integer ' Berechnet die Deutsche Kalenderwoche nach DIN Dim woche As Integer woche = Int((dat - DateSerial(Year(dat), 1, 1) + ((WeekDay(DateSerial _ (Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1 If woche = 0 Then woche = kw(DateSerial(Year(dat) - 1, 12, 31)) ElseIf woche = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) _ Mod 7 <= 3 Then woche = 1 End If kw = woche End Function
------------------ Seit Pro/E Version 1 dabei, auwei... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 22. Sep. 2008 17:05 <-- editieren / zitieren --> Unities abgeben: Nur für Lange069
Code: woche = Int((dat - DateSerial(Year(dat), 1, 1) + ((WeekDay(DateSerial _ (Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1 If woche = 0 Then woche = kw(DateSerial(Year(dat) - 1, 12, 31)) ElseIf woche = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) _ Mod 7 <= 3 Then woche = 1 End If
aka Code: =KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 27. Okt. 2008 08:58 <-- editieren / zitieren --> Unities abgeben: Nur für Lange069
|