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?
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?