Dagen Tellen - Types komen niet overeen

[mark1987vw]

Hallo.

Ik heb een userform met 2 datums.

Nu wil ik binnen deze datums dat de dagen er tussen worden geteld.
Daarnaast wil ik dat de datums via het volgende format zichtbaar zijn

Me.Datum.Caption = Format(Me.Datum.Caption, "dddd d mmmm yyyy")
Me.Vandaag.Caption = Format(Now, "dddd d mmmm yyyy")

Dus voor de datum van vandaag

Maandag 1 november 2021.

Maar wanneer ik dit format gebruik komen de typen niet met elkaar overeen en telt die de dagen niet.

Ik heb een voorbeeld bestand bijgevoegd.

 

[JEC.]

Zo wel?

datum2 = Format(Datum.Caption, "dd-mm-yyyy")

 

[mark1987vw]

Nee dan doet die het ook niet helaas.

 

[E v R]

Gebruik eventueel 2 verborgen textboxen met de datumwaarden en ga daarmee rekenen, niet met de NL-text-strings van een datum

of gebruik de oorspronkelijke datum in de datediff funktie

n = DateDiff("d", Sheets(1).Range("B1"), Now)

 

[edmoor]

Of zo:

Sub DagenTellen()
    DagenGeleden.Caption = CLng(Now) - Datum.Tag & " Dagen Geleden"
End Sub

Private Sub UserForm_Initialize()
    Datum.Tag = CLng(Sheets(1).Range("B1").Value)
    Datum.Caption = Sheets(1).Range("B1").Text
    Vandaag.Caption = Format(Now, "dddd d mmmm yyyy")
    DagenTellen
End Sub

Hierbij is de Sub DagenTellen dus eigenlijk overbodig omdat je dat ook in de Userform_Initialize kan doen.

 

[mark1987vw]

Perfect dit werkt, Bedankt!

 

[snb]

Maak gebruik van Date ipv Now.

Private Sub UserForm_Initialize()
  tag=date-sheets(1).cells(1,2) & " dagen geleden"
  Datum.Caption = Sheets(1).cells(1,2).Text
  Vandaag.Caption = Format(date, "dddd d mmmm yyyy")
End Sub