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
I går 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »