Datum in KW umwandeln und umgekehrt

TeamBob · 9. Februar 2016, 11:12

Hallo
Ich habe ein Textfeld in welches immer ein kokretes Datum eingegeben wird: 09.02.2016.
Nun möchte ich gerne, dass auf Basis von diesen Datum in einen weiteren Textfeld die zugehörige KW ausgegeben wird.

Das ganze würde ich dann auch noch umgekehrt machen wollen, also aus KW dann der zugehörige Montag dieser Woche.
Hat da jemand vielleicht einen konkreten Tipp?
Danke

Mono · 9. Februar 2016, 11:45

cpearson.com/excel/WeekNumbers.aspx

petaod · 9. Februar 2016, 11:59

Ergänzung zum Vorpost:
Wenn du die Wochennummer in Europa verwenden möchtest, solltest du den Code im Abschnitt ISO Week Number verwenden.
Die Amis rechnen anders als wir.

TeamBob · 9. Februar 2016, 12:58

Hallo
Danke für die schnellen Antworten.
Irgendwie stehe ich gerade etwas auf den Schlauch. Im Link findet man folgenden Code:

Visual Basic-Quellcode

Public Function IsoWeekNumber(InDate As Date) As Long
IsoWeekNumber = DatePart("ww", InDate, vbMonday, vbFirstFourDays)
End Function

Wie bekomm ich es hin, dass dieser den KW bestimmt auf Basis der Textbox1 bzw,. dann auch umgekehrt

petaod · 9. Februar 2016, 15:30

1) Du konvertierst den Text aus deiner Textbox in ein "echtes" Datum.
Bitte auch prüfen, ob da nicht Schrott drin steht.
If IsDate(TextBox.Text) Then Datum=CDate(TextBox.Text)
Dieses Datum übergibst du der Funktion und bekommst die Wochennummer zurück.
Oder wo klemmt's?

TeamBob · 9. Februar 2016, 15:43

Es klemmt mehr daran wie ich in diesem Fall das Datum dann in die IsoWeekNumber Funktion übergebe.
Bzw. wie ich es dann auch anderes herrum realisieren kann.
Danke für die Hilfe

petaod · 9. Februar 2016, 16:28

TeamBob schrieb:

Es klemmt mehr daran wie ich in diesem Fall das Datum dann in die IsoWeekNumber Funktion übergebe.

Also an den Very Basics.
Du weisst nicht, wie man eine Funktion aufruft.
msdn.microsoft.com/DE-DE/library/office/gg278565.aspx

TeamBob · 9. Februar 2016, 16:47

Na wir haben ja die IsoWeekFunktion

Visual Basic-Quellcode

Public Function IsoWeekNumber(InDate As Date) As Long
IsoWeekNumber = DatePart("ww", InDate, vbMonday, vbFirstFourDays)
End Function

und dann übergebe ich der IsoWeekNumber einfach den Wert von Datum

Visual Basic-Quellcode

If IsDate(TextBox.Text) Then Datum=CDate(TextBox.Text)

also sozusagen IsoWeekNumber=Datum

petaod · 9. Februar 2016, 19:14

TeamBob schrieb:

übergebe ich der IsoWeekNumber

Ich sehe nicht, dass du IsoWeekNumber überhaupt aufrufst.

Datum in KW umwandeln und umgekehrt

Datum in KW umwandeln und umgekehrt

Visual Basic-Quellcode

TeamBob schrieb:

Visual Basic-Quellcode

Visual Basic-Quellcode

TeamBob schrieb:

Benutzer online 1

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben