script SCRIPT: Fridager.vb - Sjekk for offentlige høytider og andre tilsvarende dager

[ZoRaC]

5 minutter siden, Johs. skrev:

Bare meg som ikke fikk "fridag" i dag på den 17?

 

Feil i scriptet, står 17. Januar der...  

Skal vel være:

Sitat

        'Sjekker om datoen er 17. mai (grunnlovsdag)
        If _date = New Date(_date.Year, 5, 17) Then Return True

 

[Johs.]

Kan melde at på tross av dette, ble det under tvil, feiret 17 mai hos oss. 

[Moskus]

Ja, det hadde gått litt fort i svingene der. "Pål" kontaktet meg via HS-forumet for å fortelle meg det, og kom med en idé han hadde gjort selv, om å utføre sjekk om morgendagen er en fridag.

 

Så det blir en liten edit av scriptet.  

[Norseman]

Det er kanskje fler som har stått opp i dag og lagt inn disse linjene? ?

 

        'Sjekker om datoen er dagen etter kristi himmelfartsdag (Inneklemt fredag)
        If _date = easterDate.AddDays(40) Then Return True

 

[iceball]

På 17.5.2017 den 22.23, Moskus skrev:

Så det blir en liten edit av scriptet.  

Sett noe på dette? ?

 

Hadde vært veldig hendig å kunne kunne kjøre scriptet f.eks. kl 20 for sjekk av morgendag. Optimalt burde man kanskje hatt to virtuelle enheter, dagens status og morgendagens. Det er løsbart med scripting eller litt eventer vil jeg tro.

[Moskus]

Nei, ikke enda. Men det er forholdsvis trivielt. Skal undersøke det.

Det må bli to virtuelle enheter, ja. En "i dag" og en "i morgen".

[Ruud]

På 26.9.2017 den 20.40, Moskus skrev:

Nei, ikke enda. Men det er forholdsvis trivielt. Skal undersøke det.

Det må bli to virtuelle enheter, ja. En "i dag" og en "i morgen".

 

Veldig bra script, funger utmerket. Etter en stund ser jeg at jeg trenger å vite morgendagens status: fridag eller arbeidsdag. Er det noen som har laget versjon 2 av scriptet som sjekker morgendagens status?

[Moskus]

1 time siden, Ruud skrev:

Er det noen som har laget versjon 2 av scriptet som sjekker morgendagens status?

Ja... ?

 

Jeg skal oppdatere første-posten.  

[Ruud]

11 timer siden, Ruud skrev:

 

 Er det noen som har laget versjon 2 av scriptet som sjekker morgendagens status?

 

Fant ut at det ikke var så vanskelig, så jeg laget en ny versjon som sjekker om det er fridag i morgen! Leger den ut her hvis der er andre som trenger den.

 

FridagTomorrow.vb

[ZoRaC]

På 14.2.2017 den 11.05, ZoRaC skrev:

Hadde vært kult å hente ut ekstra fridager fra en Google-kalender?

https://developers.google.com/google-apps/calendar/v3/reference/events/list 

 

Da er det bare å putte inn planleggingsdager i barnehagen, avspasseringsdager, osv!  

 

Done!  

 

[Moskus]

Versjon som sjekker dagen og morgendagen er lagt i spoiler nederst i førstepost.

[Erling]

Takk, denne har ligget på todo-lista mi altfor lenge. Fungerer som ei kule - ser det ut som.

[bjornepappa]

Prøver meg på versjonen med to devicer for i dag og i morgon.

Får derimot ikkje devicene til å oppdatere status, lurer på om eg har satt opp feil?

 

Har satt det opp slik, der device id for i dag er 203 og i morgon er 204.

Sitat

Sub Main(ByVal deviceReference As String)
        ' Moskus 2017
        Dim input() As String = deviceReference.Split(",")
        Dim devRefToday As Integer = Integer.Parse(203(0))
        Dim devRefTomorrow As Integer = Integer.Parse(204(1))

 

[ZoRaC]

5 minutter siden, bjornepappa skrev:

Prøver meg på versjonen med to devicer for i dag og i morgon.

Får derimot ikkje devicene til å oppdatere status, lurer på om eg har satt opp feil?

 

Du skal ikke endre noe i scriptet, bare bruk det som det er og i «parameter»-feltet i eventet skriver du 203,204  

[bjornepappa]

Så det var så enkelt ja!

Og det fungerer, ser det ut til  Fridag i dag og kvardag i morgon. Takk skal du ha!

[LEHoisveen]

Hvordan får jeg dette til å virke? 

 

Jeg har laget en device kalt Fridag eller arbeidsdag med device ref 467.
Så har jeg laget en event som beskrevet over og satt inn 467 i Parameters feltet. 

 

[LEHoisveen]

3 minutter siden, LEHoisveen skrev:

Hvordan får jeg dette til å virke? 

 

Jeg har laget en device kalt Fridag eller arbeidsdag med device ref 467.
Så har jeg laget en event som beskrevet over og satt inn 467 i Parameters feltet. 

 

 

Fant ut av det, hadde skjedd noe rart under lagring av script filen... Hadde sneket seg inn en del ? tegn.

[JohnMartin]

For meg som er helt grønn på scripting.

Hvordan kan jeg enkelt legge legge til skoleferien i scriptet?

F.eks vinterferien som kommer i uke 8.

Tungvindt å taste inn 1-og-1 dag for hver ferie.

Fungerer det med weeknumber?

 

Eller er det bare å taste inn 1-og-1

dateList.Add(New Date(2019, 1, 1))
    dateList.Add(New Date(2019, 1, 2))
    dateList.Add(New Date(2017, 11, 17))
    dateList.Add(New Date(2017, 12, 22))

Eller er dette enkleste måte?

Hvis jeg har gjort det rett:
  

 'Vinterferie 2019
    If _date.Month = 2 Then
        If _date.Day >= 18 AndAlso _date.Day <= 22 Then
            Return True
        End If
    End If

 

Og er det mulig å sette en dato som går over til neste måned? Mtp. sommerferien.

Eller må det da listes opp en "sjekk" for hver måned?

Endret 15. november 2018 av JohnMartin

[Moskus]

På 15.11.2018 den 23.18, JohnMartin skrev:

Fungerer det med weeknumber?

Ukenummer og programmering er veldig vanskelig fordi det er ikke mange (utenom enklete sære folk som jeg) som bruker ukenummer. Det er selvfølgelig mulig, men er mer jobb.

 

På 15.11.2018 den 23.18, JohnMartin skrev:

 'Vinterferie 2019     If _date.Month = 2 Then         If _date.Day >= 18 AndAlso _date.Day <= 22 Then             Return True         End If     End If

Ser bra ut.

 

På 15.11.2018 den 23.18, JohnMartin skrev:

Og er det mulig å sette en dato som går over til neste måned? Mtp. sommerferien.

Ja, men det må programmeres...  

 

 

Dette scriptet er primært laget for de vanlige røde dagene, og så er det en liten hack for å legge til andre fridager. Men det finnes jo løsnigner for å bruke Google-kalender, ref @Guahtdim sin plugin. Jeg putter heller livet mitt til MS enn Google, så jeg mangler en løsning for en Outlook.com kalender...

[Thomassp]

Jeg kastet meg over scriptet som sjekker dagen i dag og dagen i morgen. Men når det kjøres får jeg følgende kryptiske feilmelding i logen:

 

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\fridager.vb :Exception has been thrown by the target of an invocation.Index was outside the bounds of the array.

 

Har googlet febrilsk, men feilmeldingen er for generisk til å gi meg noe å gå på ?

 

Any ideas?

[Moskus]

Du har en feil i scriptet ditt som ikke er der i utgangspunktet... kopier det på nytt.  

[Erling]

Radio-styringen min «oppførte» det seg som det var fri i romjulen.

 

Ser det er omtalt i selve scriptet, er det enkelt å redigere?

 

Takk.

[Moskus]

11 minutes ago, Erling said:

Radio-styringen min «oppførte» det seg som det var fri i romjulen.

 

Ser det er omtalt i selve scriptet, er det enkelt å redigere?

 

Takk.

Ja, du må fjerne disse linjene fra scriptet:

 

        'Jeg har alltid fri i romjulen
        If _date.Month = 12 Then
            If _date.Day >= 27 AndAlso _date.Day <= 31 Then
                Return True
            End If
        End If

 

[Erling]

Takk, godt nyttår.