Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

deutsch KW

deutsch KW
08.04.2003 18:18:07
Mike E.
Hallo,

ist von euch jemand in der Lage, folgende Funktion so zu ändern, dass eine KW, die <10 ist mit einer "0" vorweg versehen wird?

Die Rückgabe bei KW 02 (z.B.) ist hier leider nur die "2"; ich benötige jedoch "02"...:


Vielen dank für eure Bemühungen
Mike



4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: deutsch KW
08.04.2003 18:24:02
Forum

Hallo Mike

formatiere doch die Zelle 00

Gruß

Re: deutsch KW
08.04.2003 18:28:30
Berai

Hallo Mike,

probier's mal so

dt_Kalenderwoche = Format(a,"00")

Gruß
Rainer

Re: deutsch KW
08.04.2003 18:32:35
moe

so müsste es gehen

Function dt_Kalenderwoche(dat As Date) As Integer
Dim a As Integer

a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((WeekDay(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1

If a = 0 Then
a = dt_Kalenderwoche(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1

End If

dt_Kalenderwoche = format(a, "00")

End Function

Anzeige
Re: deutsch KW
09.04.2003 13:18:52
Mike E.

Hallo,

Vielen Dank für eure Tipps.
Die Formatierung brachte nichts in der Funktion, jedoch bei der Nutzung derer in einem Modul führte die Formatierung:

Format(dt_Kalenderwoche(Variable),"00")

zum erwünschten Ergebnis.

Also nochmal: vielen Dank!
Grüße
Mike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige