Jag har en textruta där man matar in ett datum. Nu vill jag ha det datumet minus ett år. Dvs man matar in 2001-07-05, jag vill då få datumet 2000-07-05.
Tack på förhand!

/Mia

Hej
Principlösning som behöver kompleteras med ErrorHandler
om användaren skriver in felaktig syntax.
Har inte riktigt koll på hur det blir vid SkottÅr.

Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim lngDate As Long
If KeyAscii = 13 Then ' Enter
lngDate = CLng(CDate(Text1.Text)) - 365
Text1.Text = Format$(lngDate, "yyyy-mm-dd")
End If
End Sub

Ett litet frågetecken är dock: hur gör man smidigast för att få det att stämma med skottår? Antar ju att svaret som eftersöktes var att få samma datum, och det blir det ju inte var fjärde år.
/EE *nyfiken*

Läser man hela texten så blir det nog bättre ... Skäms på EE och ursäkt till SvenPon. Det stod ju just det att skottår inte var medräknat.
/EE *slarver*

Betydlig enklare att använda dateadd... Exempel:

Text2 = DateAdd("yyyy", -1, Text1)

(Tackar Andreas Hillqvist för tipset med negativa värden...)

Tack killar!
Denna hemsida är toppen! Ibland kör man ju fast på mindre grejer och kommer bara ingenstans. Jag sitter på en avd och har mest data kunskap här, mitt problem var innan att jag hade ingen att vända mig till och be om hjälp! Nu är det skönt att veta att denna sida finns och att det alltid finns killar och tjejer som ställer upp och hjälper till!

/Mia