Calcolo Giorni Lavorativi

di il
3 risposte

Calcolo Giorni Lavorativi

Ciao a tutti,

premetto che non sono una programmatrice, ma mi è necessario il calcolo dei giorni lavorativi tra due date ed escludere dal conteggio o giorni da calendario festivi.
Ho fatto quindi una tabella access "CALENDARIO" con un solo campo FESTIVO, ed un altra tabella di prova tNumSeq con 3 campi:
-Giorno_inizio
-Giorno_fine
-Giorni_lav

Tramite tutorial, sono riuscita a creare la mia prima funzione (ovviamente banale), oltre questo non riesco ad andare:

Private Sub Comando0_Click()
Dim Rs1 As DAO.Recordset
Set Rs1 = CurrentDb.OpenRecordset("Select * From tNumSeq Where Giorni_lav=0")
If Rs1!Giorni_lav = 0 Then
Rs1.Edit
Rs1!Giorni_lav = Rs1!Giorno_fine - Rs1!Giorno_inizio
MsgBox ("Aggiornato")
Rs1.Update
Rs1.Close
End If
Set Rs1 = Nothing
End Sub


Mi sapreste completare il codice per il calcolo dei giorni lavorativi?
Vi ringrazio in anticipo!!!!

3 Risposte

  • Re: Calcolo Giorni Lavorativi

    Qui dovresti trovare funzioni ad hoc valide al 100%
    nella sezione General, ad esempio. Il problema potrebbe essere dato dal formato del file, A97, un po' vecchiotto.
  • Re: Calcolo Giorni Lavorativi

    Prova a dare un'occhiata a questo:
    https://www.accessgroup.it/forms/calcolo-giorni-lavorativi.html

    Avevo fatto una cosa migliore ma era pubblicata su MD... se la trovo la pubblico in qualche modo ma questa è un buon punto di partenza.

    Fai un ciclo da DataInizio a DataFine ad ogni passata incrementi di 1 day usando DateAdd fino al raggiungimento di Datafile, e passi la data alla funzione se False incrementi il counter dei WorkingDays...

    Sono 3 righe di codice... più il demo
  • Re: Calcolo Giorni Lavorativi

    Se ti può essere utile:
Devi accedere o registrarti per scrivere nel forum
3 risposte