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

Ciao, sinceramente non saprei dove inserire tale funzione, so che ti chiedo troppo, mi potresti dare qualche indicazione in merito. Grazie

Ciao, puoi risolvere con qualcosa del genere (nuove funzioni): Function getStraordinari_Data() As String Dim wOre As Single If oreTot > txtOrarioOrdinario Then wOre = getStraordinari getStraordinari_Data = Int(wOre) & ":" & Round((wOre - Int(wOre)) * 60) Else getStraordinari_Data = "" End If End Function 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: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
Anonimo

2015-02-25T12:15:38+00:00

Ciao,

sinceramente non saprei dove inserire tale funzione, so che ti chiedo troppo, mi potresti dare qualche indicazione in merito.

Grazie
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-02-25T10:07:38+00:00

Ciao,

puoi risolvere con qualcosa del genere (nuove funzioni):

Function getStraordinari_Data() As String

    Dim wOre As Single

    If oreTot > txtOrarioOrdinario Then

       wOre = getStraordinari

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

    Else

       getStraordinari_Data = ""

    End If

End Function

Mimmo
La risposta è stata utile?

0 commenti Nessun commento