23. marts 2002 - 10:48Der er
2 kommentarer og 1 løsning
En dato rutine
Jeg skal lave et program som skal tjekke om en dato fra en database er udløbet. I min database har jeg felterne fornavn, efternavn og dato. Dato feltet indeholder en dato af formatet dd-mm-yyyy. Hvordan laver man en procedure som tjekker om denne dato er udløbet, og som så sletter den pågældende post i databasen. Hvis det er muligt ville det være det bedste hvis man kunne lave en procedure som først slettede posten 3 dage efter den dato som står i databsen er udløbet.
Du må selv lave koden, som sletter posten i databasen; da jeg af gode grunde ikke aner hvordan din DB er opbygget. Men hvis du har datoen liggende i et Text-felt, der hedder txtDato, kan du tjekke, om datoen er udløbet med nedenstående eksempel. Det burde være nemt nok at rette til, så du kan bruge det:
Dato = CDate(txtDato.Text) If DateDiff("d", Dato, Now) >= 3 And Dato < Now Then MsgBox "record slettes" Else MsgBox "Dato er ikke udløbet" End If
Selvfølgelig. CDate er en funktion, som vi bruger til at lave tekststrengen om til en værdi af typen dato; det er nødvendigt for at Visual Basic kan regne med værdien.
DateDiff returnerer antal dage mellem 2 givne datoer, hvilket vi bruger til at regne ud, om datoen er udløbet eller ej.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.