Søg
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede arne_v Ekspert
17. juli 2026 - 00:10 #3
Hvad med:

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

?
Avatar billede arne_v Ekspert
17. juli 2026 - 00:11 #4
Hvis det ikke virker skal du formatere datoen som databasen forventer *eller* bruge parameters.
Avatar billede 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)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
56 min siden Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
I går 20:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »