Wochenfunktion VBA - SQL | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Deutsch: =KÜRZEN(JAHR(A1)*50.1706706706707) +KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) Englisch: =TRUNC(YEAR(A1)*50.1706706706707) +TRUNC((A1-DATE(YEAR(A1+3-MOD(A1-2,7)),1,MOD(A1-2,7)-9))/7)

Deutsch: =KÜRZEN(JAHR(A1)*52,1726726726727) +KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7) Englisch: =TRUNC(YEAR(A1)*52.1726726726727) +TRUNC((A1-DATE(YEAR(A1+3-MOD(A1-2,7)),1,MOD(A1-2,7)-9))/7)

Hi Riediger,
1. Kopier folgende Funktion in ein Modul:


Public Function sybaseKW(ByVal vDatum As String) As Double
Application.Volatile
Dim dDate As Double
dDate = CDbl(CDate(vDatum))
sybaseKW = Int(Year(dDate) * 52.1726726726727) + _
Int((dDate - DateSerial(Year(dDate + 3 - ((dDate - 2) Mod 7)), _
1, ((dDate - 2) Mod 7) - 9)) / 7)
End Function

2. Jetzt kannst Du sie, sowohl als 'Formel' in einer Zelle brauchen z.B.:


A1 enthält ein Datum B1: =sybaseKW(A1)
oder =sybaseKW("19.07.1998")
oder =sybaseKW(HEUTE())
oder...

3. oder in VBA als Funktion z.B.


Sub x()
Dim x As Variant
x = sybaseKW("12.08.2007")
MsgBox x
End Sub

Greetz Renee

Hallo Riediger,
bitte unterscheiden zwischen "Kalenderwoche_USA" und "Kalenderwoche_Germany".
In den "USA" beginnt die Kalenderwoche am "Sonntag" mit z.Bspl. : =WOCHENTAG(A1) oder
=weekday(A1) d.h. der 1te Tag der Woche ist "Sonntag" (=1) und der letzte Tag "Samstag" (=7).
In EUROPA beginnt die Kalenderwoche am "Montag" mit z.Bspl. : =WOCHENTAG(A1;2) oder
weekday(A1;2). Der 1te Tag der Woche ist der "Montag"(=1) und der letzte ist der "Sonntag"(=7).
Weitere Differenzen zwischen "USA" und "Europa" erfolgen mit der Berechnung der "Kalender-
woche". Mit der in "Excel" enthaltenen Funktion "KALENDERWOCHE()" werden die USA_Bedingungen
berücksichtigt.
In Deutschland wird die 1te Kalenderwoche der neuen Jahres so berechnet :
Fällt der 1.1. des neuen Jahres auf "Donnerstag" =Wochentag(4) oder einen folgenden Wochentag,
ist dies die 1te_Kalenderwoche des neuen Jahres.
Ist der 1.1. des neuen Jahres ein "Mittwoch" =Wochentag(3) oder an einem früheren Wochentag
(Montag bzw Dienstag) wird diese "KW" der letzten "KW" des alten Jahres zugerechnet.
Hier die Funktion für die deutsche "KALENDERWOCHE" :
=KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2));1;-10))/7)
Dies Unterschiede sind vor allen Dingen bei Terminabsprachen zu berücksichtigen.
mfg
Gert

Beliebteste Forumthreads (12 Monate)

Wochenfunktion VBA - SQL

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread