Probleem met plaatsen Datum en weeknr

[weswillem]

Als ik een textbox vult met de ()Now en
verander in een ander folrmat format, dan
krijg ik na de datum en week = "Week = " & "ww"
dat de tekst Week- 3eek = wordt.
Hoe kan dit? Wat doe ik verkeerd?

Ik krijg dit te zien:
dinsdag 15 december 2020 3eek = 51

TextBox7.Value = Now()
TextBox7.Value = Format(TextBox7.Value, "dddd dd mmmm yyyy " & " week = " & "ww")

 

[OctaFish]

Waarom niet in één keer?

TextBox7.Value = Format(Date, "dddd dd mmmm yyyy " & " week = " & "ww")

Overigens geef je niet aan wat je dan wél wilt zien; je formule doet exact wat je vraagt: deze datum (dinsdag 15 december 2020), dan de tekst "week = " gevolgd door het weeknummer. Blijkbaar wil je dat niet?

 

[snb]

Zo hoort het:

Sub M_snb()
   MsgBox Format(Date, "dddd dd mmmm yyyy \week = ww")
End Sub

Wat je verkeerd doet is nalaten de hulptekst van het begrip 'format' te lezen alvorens die toe te passen.

Maar beter nog: (want conform ISO-norm):

Sub M_snb()
   MsgBox Format(Date, "dddd dd mmmm yyyy \week = ") & Application.WeekNum(Date, 21)
End Sub

 

[LucHeyndrickx]

Ik zou deze format toch niet toepassen als de textbox rechtstreeks verbonden is met je tabel (ik veronderstel dat het om Access gaat)

Ik heb de code ook even getest (Ik heb dan TextBox7 aangemaakt; een button; en een tweede Tekst3)
Vervolgens de waarde van TestBox7 genomen om dezelfde waarde, maar met een ander format in Tekst3 te zetten.
En dan loopt het fout. De tekst in TextBox zeven wordt niet meer herkend als datum, maar als een gewone tekst, waardoor in beide TextBoxen hetzelfde komt te staan.

Private Sub Knop2_Click()
TextBox7.Value = Now()
TextBox7.Value = Format(TextBox7.Value, "dddd dd mmmm yyyy \week = ww")
Me.Tekst3.Value = Format(Me.TextBox7.Value, "dd mmmm yyyy")
End Sub

Dit werkt wel:

Private Sub Knop2_Click()
TextBox7.Value = Now()
TextBox7.Format = ("dddd dd mmmm yyyy \week = ww")
Me.Tekst3.Value = Me.TextBox7.Value
Me.Tekst3.Format = ("dd mmmm yyyy")
End Sub

 

[weswillem]

sorry, mannen cq vrouwen

Heb het bestand binnen gekregen van een collega, die interesse heb in programmeren met vba Excel
Nog eens goed gekeken, maar heeft de naam Textbox aan een Label gegeven.
Tja, dat gaat dan niet geheel goed.
Heb het nu aangepast met de code ISO norm van @snb.
En het staat nu goed.
Allen dank voor het meedenken
mvg