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

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

Nel controllo dello straordinario festivo TxtStrFestDiu puoi impostare =getStrFestDiu_Data() e, nel codice aggiungi la funzione: Function getStrFestDiu_Data() As String Dim wOre As Single wOre = getStrFestDiu If wOre > 0 Then getStrFestDiu_Data = Int(wOre) & ":" & Round((wOre - Int(wOre)) * 60) Else getStrFestDiu_Data = "" End If End Function Nel controllo dello straordinario feriale TxtStrFerDiu puoi impostare =getStrFerDiu_Data() e, nel codice aggiungi la funzione: Function getStrFerDiu_Data() As String Dim wOre As Single wOre = getStrFerDiu If wOre > 0 Then getStrFerDiu_Data = Int(wOre) & ":" & Round((wOre - Int(wOre)) * 60) Else getStrFerDiu_Data = "" End If End Function Mimmo

Mimmo, mi devi scusare se ti stresso, il totale dello straordinario l'ho risolto per come mi hai illustrato tu, adesso il problema che mi da è nelle colonne della ripartizione dello straordinario. Cioè: nelle colonne dello straordinario diurno è ok, in quella dello straordinario festivo il risultato è questo: #####

Nella form, come origine del controllo txtStraordinario, imposti = getStraordinari_Data() e , nel codice di classe ( Alt+F11) aggiungi la funzione del thred precedente. Mimmo

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-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
Anonimo

2015-02-25T14:18:53+00:00

Nel controllo dello straordinario festivo TxtStrFestDiu puoi impostare =getStrFestDiu_Data()

e, nel codice aggiungi la funzione:

Function getStrFestDiu_Data() As String

    Dim wOre As Single

    wOre = getStrFestDiu

    If wOre > 0 Then

       getStrFestDiu_Data = Int(wOre) & ":" & Round((wOre - Int(wOre)) * 60)

    Else

       getStrFestDiu_Data = ""

    End If

End Function

Nel controllo dello straordinario feriale TxtStrFerDiu puoi impostare =getStrFerDiu_Data()

e, nel codice aggiungi la funzione:

Function getStrFerDiu_Data() As String

    Dim wOre As Single

    wOre = getStrFerDiu

    If wOre > 0 Then

       getStrFerDiu_Data = Int(wOre) & ":" & Round((wOre - Int(wOre)) * 60)

    Else

       getStrFerDiu_Data = ""

    End If

End Function

Mimmo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T13:12:27+00:00

Mimmo,

mi devi scusare se ti stresso, il totale dello straordinario l'ho risolto per come mi hai illustrato tu, adesso il problema che mi da è nelle colonne della ripartizione dello straordinario. Cioè:

nelle colonne dello straordinario diurno è ok, in quella dello straordinario festivo il risultato è questo: #####
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T12:27:53+00:00

Nella form, come origine del controllo txtStraordinario, imposti =getStraordinari_Data()

e , nel codice di classe ( Alt+F11) aggiungi la funzione del thred precedente.

Mimmo
La risposta è stata utile?

0 commenti Nessun commento