Dagen Tellen - Types komen niet overeen

Status
Niet open voor verdere reacties.
M

mark1987vw

Gebruiker
Lid geworden
19 mei 2009
Berichten
96
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

Code: 
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.
 

Bijlagen

  • TestDagentellen.xlsm
    17,2 KB · Weergaven: 18
Zo wel?

Code: 
datum2 = Format(Datum.Caption, "dd-mm-yyyy")
 
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

Code: 
n = DateDiff("d", Sheets(1).Range("B1"), Now)
 
Laatst bewerkt:
Of zo:
Code: 
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.
 
Laatst bewerkt:
Maak gebruik van Date ipv Now.

Code: 
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
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan