Hallo, ich habe folgendes Skript, welches folgenden Fehler bringt:
Option Explicit
Dim Days As Integer, Weeks As Integer, Months As Integer
Days = DateDiff("d", "5.3.2004", Now)
Months = DateDiff("m", "5.3.2004", Now)
Weeks = Format(Days / 7, "0") - 1
MsgBox "Monate: " & Months & vbCrLf & "Wochen: " & Weeks & " + Tage: " & Days Mod 7 & vbCrLf & "Tage: " & Days
Fehler: Anweisungsende erwartet!
Es sollte so aussehen, das mir die Differenzen berechnet werden und in einer MessageBox ausgegeben werden, sofern man das VB-Skript ausführt...
Könnt ihr mir bitte helfen?
Gruß
Freundlicher Nachbar