a seguito dei consigli dei grandi Mauro Gamberini e AndyCaps post il link, al fine di poter ricevere dei consigli per la realizzazione di un programmino per la gestione dell'oraio di lavoro: http://answers.microsoft.com/it-it/office/forum/office\_2010-excel/programmino-orario-di-lavoro/bf760ee2-258b-4fe1-820f-9bfe9f5b25af?page=3&tm=1411589314629 Riassumendo la creazione del file excel creato daAndyCaps: da un foglio di lavoro (setup) si definisco determinati criteri nel foglio di lavoro 2014-08 si inseriscono gli orari di lavoro e si ottengono determinati risultati. A segutio dei diversi loro consigli, mi hanno suggerito di sviluppare il tutto in access e di chiedere consigli a voi Esperti di Access. Vi ringrazio anzitutto anticipatamente per la Vs immensa professionalità. Al fine di evitare notevoli perdite di tempo nel cercare soluzioni specifiche, chiedo gentilmente un consiglio fondamentale per la fase di Progettazione del DB , che grazie a svariati consigli reperiti dal web, penso e riconfermo che sia una delle fasi più importanti. Vista la mia poca preparazione attendo Vs suggerimenti in merito. Grazie

Ciao Mimmo, scusa se ti disturbo, visto che non mi hai risposto forse ho approfittato a chiederti aiuto.

Dall'immagine si vedono le cose che non vanno

Ciao Mimmo, la funzione sullo straordinario fer. notturno funziona, l'altra dello straordinario fest.nott. mi da######. Inoltre, se riesci a risolvere pure l'altro problema: se metto un turno es. 16.00 - 24.00 o 16.00 - 23.00, mi da un totale di straordinario nel primo caso di 6 ore fer. e 2 fer. nott. nel secondo caso 6 fer. e 1 fer.nott. . bisogna inserire la formula che sottrae le 6 ore ordinarie?

Nel controllo dello straordinario feriale notturno puoi impostare =getStrFerNott_Data() e, nel codice aggiungi la funzione: Function getStrFerNott_Data() As String Dim wOre As Single If [txtFestivo] Or _ [getStraordinari] = 0 Then getStrFerNott_Data = "" Else If [getStraordinari] > Nz([getStrFerDiu]) Then wOre = [getStraordinari] - Nz([getStrFerDiu]) If wOre > 0 Then getStrFerNott_Data = Int(wOre) & ":" & Nz(Round((wOre - Int(wOre)) * 60), "00") Else getStrFerNott_Data = "" End If End If End If End Function Nel controllo dello straordinario festivo notturno puoi impostare =getStrFestNott_Data() e, nel codice aggiungi la funzione: Function getStrFesNott_Data() As String Dim wOre As Single If [txtFestivo] And _ [getStraordinari] > 0 Then If [getStraordinari] > Nz([getStrFestDiu]) Then wOre = [getStraordinari] - Nz([getStrFestDiu]) If wOre > 0 Then getStrFesNott_Data = Int(wOre) & ":" & Nz(Round((wOre - Int(wOre)) * 60), "00") Else getStrFesNott_Data = "" End If Else getStrFesNott_Data = "" End If End If End Function Fammi sapere Mimmo

Mimmo, un 'ultimo aiuto, per lo straordinario Feriale notturno e festivo devo inserire la stessa funzione? Altro problema è: se metto un turno es. 16.00 - 24.00 o 16.00 - 23.00, mi da un totale di straordinario nel primo caso di 6 ore fer. e 2 fer. nott. nel secondo caso 6 fer. e 1 fer.nott. . bisogna inserire la formula che sottrae le 6 ore ordinarie? Grazie tanto

programmino orario lavoro

Anonimo

a seguito dei consigli dei grandi Mauro Gamberini e AndyCaps post il link, al fine di poter ricevere dei consigli per la realizzazione di un programmino per la gestione dell'oraio di lavoro:

http://answers.microsoft.com/it-it/office/forum/office\_2010-excel/programmino-orario-di-lavoro/bf760ee2-258b-4fe1-820f-9bfe9f5b25af?page=3&tm=1411589314629

Riassumendo la creazione del file excel creato daAndyCaps:

da un foglio di lavoro (setup) si definisco determinati criteri

nel foglio di lavoro 2014-08 si inseriscono gli orari di lavoro e si ottengono determinati risultati.

A segutio dei diversi loro consigli, mi hanno suggerito di sviluppare il tutto in access e di chiedere consigli a voi Esperti di Access.

Vi ringrazio anzitutto anticipatamente per la Vs immensa professionalità.

Al fine di evitare notevoli perdite di tempo nel cercare soluzioni specifiche, chiedo gentilmente un consiglio fondamentale per la fase di Progettazione del DB, che grazie a svariati consigli reperiti dal web, penso e riconfermo che sia una delle fasi più importanti.

Vista la mia poca preparazione attendo Vs suggerimenti in merito.

Grazie

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

63 risposte

Anonimo

2015-02-26T21:13:37+00:00

Ciao Mimmo,

scusa se ti disturbo, visto che non mi hai risposto forse ho approfittato a chiederti aiuto.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T19:50:45+00:00

Dall'immagine si vedono le cose che non vanno
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T19:16:15+00:00

Ciao Mimmo,

la funzione sullo straordinario fer. notturno funziona, l'altra dello straordinario fest.nott. mi da######.

Inoltre, se riesci a risolvere pure l'altro problema: se metto un turno es. 16.00 - 24.00 o 16.00 - 23.00, mi da un totale di straordinario nel primo caso di 6 ore fer. e 2 fer. nott. nel secondo caso 6 fer. e 1 fer.nott. . bisogna inserire la formula che sottrae le 6 ore ordinarie?
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T14:57:47+00:00

Nel controllo dello straordinario feriale notturno puoi impostare =getStrFerNott_Data()

e, nel codice aggiungi la funzione:

Function getStrFerNott_Data() As String

    Dim wOre As Single

    If [txtFestivo] Or _

       [getStraordinari] = 0 Then

       getStrFerNott_Data = ""

    Else

       If [getStraordinari] > Nz([getStrFerDiu]) Then

          wOre = [getStraordinari] - Nz([getStrFerDiu])

          If wOre > 0 Then

            getStrFerNott_Data = Int(wOre) & ":" & Nz(Round((wOre - Int(wOre)) * 60), "00")

          Else

            getStrFerNott_Data = ""

          End If

       End If

    End If

End Function

Nel controllo dello straordinario festivo notturno puoi impostare =getStrFestNott_Data()

e, nel codice aggiungi la funzione:

Function getStrFesNott_Data() As String

    Dim wOre As Single

    If [txtFestivo] And _

       [getStraordinari] > 0 Then

       If [getStraordinari] > Nz([getStrFestDiu]) Then

          wOre = [getStraordinari] - Nz([getStrFestDiu])

          If wOre > 0 Then

             getStrFesNott_Data = Int(wOre) & ":" & Nz(Round((wOre - Int(wOre)) * 60), "00")

          Else

             getStrFesNott_Data = ""

          End If

       Else

          getStrFesNott_Data = ""

       End If

    End If

End Function

Fammi sapere

Mimmo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T14:56:36+00:00

Mimmo,

un 'ultimo aiuto, per lo straordinario Feriale notturno e festivo devo inserire la stessa funzione?

Altro problema è: se metto un turno es. 16.00 - 24.00 o 16.00 - 23.00, mi da un totale di straordinario nel primo caso di 6 ore fer. e 2 fer. nott. nel secondo caso 6 fer. e 1 fer.nott. . bisogna inserire la formula che sottrae le 6 ore ordinarie?

Grazie tanto
La risposta è stata utile?

0 commenti Nessun commento