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

die as Integer weg und FormatNumber...

Danke es geht!