Anzahl Wochen von heute bis Zieldatum
20.06.2007 10:53:21
heute
Ich habe eine Datei, die mir beim Öffnen die Anzahl der Tage bis zu einem Datum X in einer Message Box auswirft. Das mache ich hiermit:
Private Sub Workbook_Open()
Const cBisDatum = "04.08.2007" ' Datum in der Form TT.MM.JJJJ
Dim dBisDatum As Date
dBisDatum = DateSerial(Right(cBisDatum, 4), _
Mid(cBisDatum, 4, 2), _
Left(cBisDatum, 2))
If Date
Wie schaffe ich es, dass er daraus die Anzahl der Wochen und Tage macht?
Danke für eure Hilfe im Voraus!
Grüße, Melanie