dateadd englischer pc
13.12.2012 04:08:06
robert_1
Ich hab 2 Textboxen in beiden steht das heutige Datum im Format mmm.dd,yyyy
Nun moechte ich, dass wenn in der ersten Textbox das Datum geaendert wird in der 2. ein Tag abgezogen und 2 Jahre drauf gerechnet werden. Hier der Code:
If IsDate(UserForm1.TextBox7) = True Then
UserForm1.TextBox8 = Format(DateAdd("YYYY", 2, DateAdd("d", -1, CDate(UserForm1.TextBox7))), "mmm.dd,yyyy")
End If
Funktioniert auch problemlos auf meinem Pc (deutsch), aber auf denen mit englsichem Datumssystem nicht. Ich will/darf aber die Datumseinstellungen nicht aendern.
Wie muss ich den Code aendern damits klappt?