doorlopende ppt blijft de volgende dag startdatum geven bij 'Now'

[RobPoule]

Ik ben een presentatie aan het maken waarin o.a. het aantal verstreken dagen voorkomt:

Sub dagenvrij()
Dim d As Date
d = DateValue("Jan 1, 2015") ' Converts to a date.
ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text = DateDiff("d", d, Date)
End Sub

Zowel bij 'Now' als bij 'Date' blijft hij rekenen met de dag waarop de ppt is gestart.

Er is vast iets dat ik nog moet toevoegen of verkeerd doe. Wie weet wat?

 

[OctaFish]

Dat lijkt mij logisch, want je hebt nergens een timer ingezet die de datum controleert. Dus wordt de datum maar één keer geëvalueerd, en wel als de routine start. In dit draadje vind je wellicht een oplossing. Ik heb daar ook een link in gezet die een timer start, die TS niet werkend kreeg, maar die het wel doet. Dus je hebt dan 2 opties!
Overigens zou ik d op een andere, minder bewerkelijke manier instellen:

d = DateValue(DateSerial(Year(Date), 1, 1))

Er vanuit gaande dat je altijd op 1 januari van het actieve jaar wilt starten.

 

[RobPoule]

Dankjewel voor de tip.