Notifikationer

Markér alle som læst Log ud

bsn Forsker

16. juli 2026 - 14:01 Der er 4 kommentarer og
1 løsning

VBS

Prøver at finde mandage i en periode...loop

bruger
Fradato = Datoer i en given periode...

If WeekDay(Fradato)=2 Then

Synes godt om

arne_v Ekspert

16. juli 2026 - 14:23 #1

Til inspiration:

startd = CDate("Jan 01 2026")
endd = CDate("Dec 31 2026")
d = startd
While d <= endd
If weekday(d) = 2 Then
WScript.Echo CStr(d)
End If
d = dateadd("d", 1, d)
WEnd

Synes godt om

bsn Forsker

16. juli 2026 - 23:58 #2

Har prøvet at gemme dit forslag i database :

Sql="INSERT INTO tblBooking(Book) VALUES(" & d & ");"
Conn.Execute(Sql)

Giver nedenstående datoer...

17-06-1894
24-06-1894
01-07-1894
08-07-1894
13-06-1894
20-06-1894
27-06-1894
04-07-1894
12-06-1894
19-06-1894
26-06-1894
03-07-1894
10-07-1894
15-06-1894
22-06-1894
29-06-1894
06-07-1894
12-06-1894
19-06-1894
26-06-1894
03-07-1894
08-06-1894
15-06-1894
22-06-1894
29-06-1894
06-07-1894
12-06-1894
19-06-1894
26-06-1894
03-07-1894
08-06-1894
15-06-1894
22-06-1894
29-06-1894
06-07-1894
11-06-1894
18-06-1894
25-06-1894
02-07-1894
08-06-1894
15-06-1894
22-06-1894
29-06-1894
04-06-1894
11-06-1894
18-06-1894
25-06-1894
02-07-1894
08-06-1894
15-06-1894
22-06-1894
29-06-1894

Synes godt om

arne_v Ekspert

17. juli 2026 - 00:10 #3

Hvad med:

Sql="INSERT INTO tblBooking(Book) VALUES(" & CStr(d) & ");"

?

Synes godt om

arne_v Ekspert

17. juli 2026 - 00:11 #4

Hvis det ikke virker skal du formatere datoen som databasen forventer *eller* bruge parameters.

Synes godt om

bsn Forsker

18. juli 2026 - 10:46 #5

#3

Nej det virkede ikke...

Min løsning blev :
minDag=Day(RS("BookDag")) & "-" & Month(RS("BookDag")) & "-" & Year(RS("BookDag"))
WeekdayName(Weekday(minDag)) & " " & FormatDateTime(minDag ,2)

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS