Giorni festivi sab e dom

4 Risposte

• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21792

  Re: Giorni festivi sab e dom

  02 mag 2020, 19:45

  Usa i tag CODE per il codice nel forum!
  
  Comunque, hai due funzioni, le chiami passando la data e ottieni False o True per capire se è festivo o no.
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Giorni festivi sab e dom

  02 mag 2020, 21:06

  Il codice cui ti riferisci mi pare di conoscerlo...
  Devi passare una data alla funzione e restituisce True/False se è festivo... e prendere la proprieta Text su evento Change sei sicuro vada bene...? Hai debuggato cosa succede...?
  

  
  If Festivo(Me!ControlloData.value) then
    Msgbox "Sono festivo"
  Else
    Msgbox "Non sono festivo"
  End if
  

• G

  gru

  Pochi posts

  Iscritto da

  gen, 2020

  Messaggi:

  14

  Re: Giorni festivi sab e dom

  03 mag 2020, 12:15

  Salve ragazzi sono riuscito ad adattare il codice di Alex alle mie esigenze e funziona tutto, ultimissimo problema (si spera), sempre nel codice che vi ho copiato dei giorni feriali e che da quello che ho capito conoscevate tutti tranne che io , mi da addirittura la possibilità di inserire le feste patronali.
  vi posto il codice (che già conoscete)
  ' DATE DI FESTIVITA' LOCALI(PATRONO Ecc...)
  Case DateSerial(year(mydate), nn, nn)
  Festivo = True
  '
  ' Per rendere più flessibile la parametrizzazione
  ' di Festività LOCALI si potrebbe usare una Tabella
  ' e recuperare il RS con la Data...!
  ' Struttura della Tabella con le FESTIVITA LOCALI:
  ' Tb_FesteLocali
  ' Campi:
  ' Data---> Tipo(Data) PK
  ' Descrizione ---> Tipo(Testo)
  '
  Case Else
  Dim rs As DAO.Recordset
  sSQL = "SELECT * FROM 18altre festività " & _
  "WHERE Data=#" & Format$(mydate, "yyyymmdd") & "#"
  set rs=DbEngine(0)(0).OpenRecordset(sSQL,dbOpenDynaset,dbReadOnly)
  ' Se il rs è vuoto significa che la data non è inserita come FESTIVITA'
  Festivo = Not rs.EOF
  rs.Close
  Set rs = Nothing
  
  nel campo Data oltre ad impostarlo tipo(data) il termine PK a cosa corrisponde?
  perché nell'eseguire il comando mi da errore di variabile non definita in questa stringa "Case DateSerial(year(mydate), nn, nn)" evidenziandomi nn
  e l'ho definito così Dim nn as Date; continuando mi da' altro errore variabile non definita a questa stringa " sSQL = "SELECT * FROM 18altre festività " & _ " evidenziandomi sSQL e qui mi sono fermato mi sono fuso, eppure per le festività italiane non ci sono stati problemi, nelle festività patronali dove fa riferimento a una tabella mi sta creando problemi.
• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8752

  Re: Giorni festivi sab e dom

  03 mag 2020, 12:21

  gru ha scritto:

  ---

  Salve ragazzi sono riuscito ad adattare il codice di Alex alle mie esigenze e funziona tutto, ultimissimo problema (si spera), sempre nel codice che vi ho copiato dei giorni feriali e che da quello che ho capito conoscevate tutti tranne che io , mi da addirittura la possibilità di inserire le feste patronali.

  Lo conoscevo perche l'ho scritto io e solitamente quando si copia codice di altri si riporta la fonte.

  gru ha scritto:

  ---

  vi posto il codice (che già conoscete)
  ' DATE DI FESTIVITA' LOCALI(PATRONO Ecc...)
  Case DateSerial(year(mydate), nn, nn)
  Festivo = True
  '
  ' Per rendere più flessibile la parametrizzazione
  ' di Festività LOCALI si potrebbe usare una Tabella
  ' e recuperare il RS con la Data...!
  ' Struttura della Tabella con le FESTIVITA LOCALI:
  ' Tb_FesteLocali
  ' Campi:
  ' Data---> Tipo(Data) PK
  ' Descrizione ---> Tipo(Testo)
  '
  Case Else
  Dim rs As DAO.Recordset
  sSQL = "SELECT * FROM 18altre festività " & _
  "WHERE Data=#" & Format$(mydate, "yyyymmdd") & "#"
  set rs=DbEngine(0)(0).OpenRecordset(sSQL,dbOpenDynaset,dbReadOnly)
  ' Se il rs è vuoto significa che la data non è inserita come FESTIVITA'
  Festivo = Not rs.EOF
  rs.Close
  Set rs = Nothing
  
  nel campo Data oltre ad impostarlo tipo(data) il termine PK a cosa corrisponde?
  perché nell'eseguire il comando mi da errore di variabile non definita in questa stringa "Case DateSerial(year(mydate), nn, nn)" evidenziandomi nn
  e l'ho definito così Dim nn as Date; continuando mi da' altro errore variabile non definita a questa stringa " sSQL = "SELECT * FROM 18altre festività " & _ " evidenziandomi sSQL e qui mi sono fermato mi sono fuso, eppure per le festività italiane non ci sono stati problemi, nelle festività patronali dove fa riferimento a una tabella mi sta creando problemi.

  Il suggerimento prevede tu abbia una Tabella con campo Data e Campo Descrizione per sapere a che festività si fa riferimento...
  Quell'idea serve se ci sono delle varianti da gestire... se hai solo la data del patrono includila in uno dei case precedenti e basta.