Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
morena28 din Bistrita Nasaud
 | Femeie
24 ani
Bistrita Nasaud
cauta Barbat
24 - 49 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 739
|
|
With the following vbs script (saved as .vbs file) you open a webpage with the Daily News on the Press Corner website of the EC:
The interval is from yesterday to 1 week before yesterday.
If today is 22.03.2023, that means it will filter Daily News articles from 14.03.2023 to 21.03.2023.
IMPORTANT: THIS WORKS FOR ROMANIA'S REGIONAL SETTINGS SINCE THE NOW() FUNCTION WILL RETURN DAY NAMES IN ROMANIAN. To make it work in English you must change the wkdy case since it will probably state full day names like Monday, Tuesday etc. that must be shortened in Mon, Tue etc. Everything else should be the same.
Dim shell
Dim yr, yrStop
Dim mth, mth_2, mthStop
Dim dy, dyStop
Dim wkdy, wkdyStop
Dim dtStart
Dim dtStop
Dim lnk
yr = Year(Now())
mth = Month(Now())
mth_2 = Month(Now())
dy = Day(Now())
wkdy = WeekDayName(WeekDay(Now()))
Select Case mth_2
Case 1
mth_2 = "January"
Case 2
mth_2 = "February"
Case 3
mth_2 = "March"
Case 4
mth_2 = "April"
Case 5
mth_2 = "May"
Case 6
mth_2 = "June"
Case 7
mth_2 = "July"
Case 8
mth_2 = "August"
Case 9
mth_2 = "September"
Case 10
mth_2 = "October"
Case 11
mth_2 = "November"
Case 12
mth_2 = "December"
End Select
dtStart_2 = dy & "%20" & mth_2 & "%20" & yr
Select Case mth
Case 1
mth = "Jan"
Case 2
mth = "Feb"
Case 3
mth = "Mar"
Case 4
mth = "Apr"
Case 5
mth = "May"
Case 6
mth = "Jun"
Case 7
mth = "Jul"
Case 8
mth = "Aug"
Case 9
mth = "Sep"
Case 10
mth = "Oct"
Case 11
mth = "Nov"
Case 12
mth = "Dec"
End Select
Select Case wkdy
Case "luni"
wkdy = "Mon"
Case "mar" & ChrW(539) & "i"
wkdy = "Tue"
Case "miercuri"
wkdy = "Wed"
Case "joi"
wkdy = "Thu"
Case "vineri"
wkdy = "Fri"
Case "s" & ChrW(226) & "mb" & ChrW(259) & "t" & ChrW(259) ' "sāmbătă"
wkdy = "Sat"
Case "duminic" & ChrW(259)
wkdy = "Sun"
End Select
dtStart = wkdy & "%20" & mth & "%20" & dy & "%20" & yr
' ---------- stop date -----------
yrStop = Year(Now())
mthStop = Month(Now())
dyStop = Day(Now())
wkdyStop = WeekDayName(WeekDay(Now()))
dtStop = DateSerial(yrStop, mthStop, dyStop) - 7
yrStop = Year(dtStop)
mthStop = Month(dtStop)
dyStop = Day(dtStop)
wkdyStop = WeekDayName(WeekDay(dtStop))
Select Case mthStop
Case 1
mthStop = "Jan"
Case 2
mthStop = "Feb"
Case 3
mthStop = "Mar"
Case 4
mthStop = "Apr"
Case 5
mthStop = "May"
Case 6
mthStop = "Jun"
Case 7
mthStop = "Jul"
Case 8
mthStop = "Aug"
Case 9
mthStop = "Sep"
Case 10
mthStop = "Oct"
Case 11
mthStop = "Nov"
Case 12
mthStop = "Dec"
End Select
Select Case wkdyStop
Case "luni"
wkdyStop = "Mon"
Case "mar" & ChrW(539) & "i"
wkdyStop = "Tue"
Case "miercuri"
wkdyStop = "Wed"
Case "joi"
wkdyStop = "Thu"
Case "vineri"
wkdyStop = "Fri"
Case "s" & ChrW(226) & "mb" & ChrW(259) & "t" & ChrW(259) ' "sāmbătă"
wkdyStop = "Sat"
Case "duminic" & ChrW(259)
wkdyStop = "Sun"
End Select
dtStop = wkdyStop & "%20" & mthStop & "%20" & dyStop & "%20" & yrStop
lnk = "https://ec.europa.eu/commission/presscorner/advancedsearch/en?keywords=&dotyp=3&parea=&pareaType=&datepickerbefore=&datebefore=" & _
dtStart & _
"&commissioner=&datepickerafter=" & _
dtStart_2 & _
"&dateafter=" & _
dtStop & _
""
Set shell = CreateObject("WScript.Shell")
shell.Run lnk
|
|
|
| pus acum 1 an |
|