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. Hej 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. Betydlig enklare att använda dateadd... Exempel: Tack killar!Ett år minus
Tack på förhand!
/MiaSv: Ett år minus
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 SubSv: Ett år minus
/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*Sv: Ett år minus
Text2 = DateAdd("yyyy", -1, Text1)
(Tackar Andreas Hillqvist för tipset med negativa värden...)Ett stort tack!
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