Italian Giorni dell'anno senza feste

Nikeddy · Apr 10, 2018

Salve a tutti,

ho realizzato una piccola app, per i miei giorni lavorativi, e vorrei sapere se esiste una funzione per calcolare i giorni utili del mese, che poi utilizzo per dividere quanto guadagno per i giorni utili, cosi da avere quanto guadagno mediamente al giorno.

i giorni che mi interessano sono dal lunedi al sabato, escluso tutti i giorni rossi sul calendario, ed essendo di Roma anche il 29 giugno..

esiste una funzione che li calcola in automatico?

cosi io se guadagno 1000 euro / (giugno 25 giorni) = 40 euro giorno.

grazie!!!

LucaMs · Apr 10, 2018

Probabilmente trovi qualcosa sul web, compreso forse un sito che fornisca un servizio con questi dati.

La cosa più complicata è la Pasqua, visto che non cade sempre nello stesso giorno; trovare le domeniche è relativamente facile.

Per me, comunque, il calcolo è facilissimo: guadagno mensile = 0 / 30 = 0.

LucaMs · Apr 10, 2018

Qui ad esempio dovrebbe esserci qualcosa di utile:
http://www.visual-basic.it/Forum/tabid/151/aft/40006/Default.aspx

Non ne sono certo perché non mi sono iscritto (forse lo ero ma non ho voglia di cercare utente e pw )

LucaMs · Apr 10, 2018

Meglio ancora:
http://www.excelvba.it/Forum/story/Visual_Basic_for_Applications/Festivi_e_finesettimana_italia.html

Nikeddy · Apr 10, 2018

questo e' meraviglioso : http://www.excelvba.it/Forum/story/Visual_Basic_for_Applications/Festivi_e_finesettimana_italia.html
devo capire come adattarlo con b4a

Star-Dust · Apr 10, 2018

LucaMs said:
Probabilmente trovi qualcosa sul web, compreso forse un sito che fornisca un servizio con questi dati.

La cosa più complicata è la Pasqua, visto che non cade sempre nello stesso giorno; trovare le domeniche è relativamente facile.

Per me, comunque, il calcolo è facilissimo: guadagno mensile = 0 / 30 = 0.

Io ho un app più semplice 0€/365giorni= 0€

LucaMs · Apr 10, 2018

Star-Dust said:
Io ho un app più semplice 0€/365giorni= 0€

Però non è perfetta, altrimenti ogni 4 anni guadagnerei qualcosa (anni bisestili).

0 / 365.25

LucaMs · Apr 10, 2018

Nikeddy said:
questo e' meraviglioso : http://www.excelvba.it/Forum/story/Visual_Basic_for_Applications/Festivi_e_finesettimana_italia.html
devo capire come adattarlo con b4a

Ci riuscirai di sicuro (e magari lo pubblicherai per gli altri).

LucaMs · Apr 10, 2018

LucaMs said:
Ci riuscirai di sicuro (e magari lo pubblicherai per gli altri).

Se non avessi un bel mal di capa (solito), te lo tradurrei io stesso.

LucaMs · Apr 10, 2018

LucaMs said:
Però non è perfetta, altrimenti ogni 4 anni guadagnerei qualcosa (anni bisestili).

0 / 365.25

Che diavolo dico? Che sia diviso per 365 o 365.25 sempre 0 fa e sempre 0 guadagnerei

LucaMs · Apr 10, 2018

Devo scoprire che razza di operazione VBA sia:

(B 4)

!!!

LucaMs · Apr 10, 2018

LucaMs said:
Devo scoprire che razza di operazione VBA sia:

(B 4)

!!!

Temo sia solo un errore di digitazione (ma ripetuto nella stessa funzione???)

LucaMs · Apr 10, 2018

Credo che manchi il segno di divisione ("/")

LucaMs · Apr 10, 2018

LucaMs said:
Credo che manchi il segno di divisione ("/")

Confermo.

Infatti il codice della funzione Pasqua, ad esempio, incollato così com'era dava solo errori (in Excel), mentre così funziona:

B4X:

Public Function Pasqua(ByVal Anno As Integer) As Date
    'Il metodo è valido per tutti gli anni nel Calendario Gregoriano,
    'ossia dal 1583 in poi
    
    Dim A%, B%, C%, P%, Q%, R%
    
    A = Anno% Mod 19: B = Anno% / 100: C = Anno% Mod 100
    P = (19 * A + B - (B / 4) - ((B - ((B + 8) / 25) + 1) / 3) + 15) Mod 30
    Q = (32 + 2 * ((B Mod 4) + (C / 4)) - P - (C Mod 4)) Mod 7
    R = (P + Q - 7 * ((A + 11 * P + 22 * Q) / 451) + 114)
    Pasqua = DateSerial(Anno%, R / 32, (R Mod 31) + 1)
    
End Function

udg · Apr 10, 2018

https://it.wikibooks.org/wiki/Implementazioni_di_algoritmi/Calcolo_della_Pasqua
http://calendario.eugeniosongia.com/gauss.htm

e all'operatore misterioso non ci pensi più..

LucaMs · Apr 10, 2018

Uhm... devo trovare il bug, perché la conversione VBA -> B4A sembra riuscita ma il risultato è imperfetto:

B4X:

Public Sub Pasqua(Anno As Int) As String
    'Il metodo è valido per tutti gli anni nel Calendario Gregoriano,
    'ossia dal 1583 in poi
    Dim DataPasqua As String
    Dim A, B, C, P, Q, R As Int

    A = Anno Mod 19
    B = Anno / 100
    C = Anno Mod 100
    P = (19 * A + B - (B / 4) - ((B - ((B + 8) / 25) + 1) / 3) + 15) Mod 30
    Q = (32 + 2 * ((B Mod 4) + (C / 4)) - P - (C Mod 4)) Mod 7
    R = (P + Q - 7 * ((A + 11 * P + 22 * Q) / 451) + 114)
    DataPasqua = DateTime.Date(DateUtils.SetDate(Anno, R / 32, (R Mod 31) + 1))
    Return DataPasqua
End Sub

Per il 2018 restituisce il 30 aprile, mentre è stata il 1°

LucaMs · Apr 10, 2018

udg said:
https://it.wikibooks.org/wiki/Implementazioni_di_algoritmi/Calcolo_della_Pasqua
http://calendario.eugeniosongia.com/gauss.htm

e all'operatore misterioso non ci pensi più..

Sto guardando; per la sola Pasqua, ben 17 linguaggi

LucaMs · Apr 10, 2018

Quindi, grazie a @udg, la funzione per la Pasqua è ok (usa DateUtils):

B4X:

Public Sub CalcolaPasqua(Anno As Int) As String
    Dim DataPasqua As String

    Dim a, b, c, d, e, m, n As Double
    Dim giorno As Double
    Dim mese As Double

    If (Anno <= 2099) Then
        m = 24
        n = 5
    Else If (Anno <= 2199) Then
        m = 24
        n = 6
    Else If (Anno <= 2299) Then
        m = 25
        n = 0
    Else If (Anno <= 2399) Then
        m = 26
        n = 1
    Else If (Anno <= 2499) Then
        m = 25
        n = 1
    End If

    a = Anno Mod 19
    b = Anno Mod 4
    c = Anno Mod 7
    d = ((19 * a) + m) Mod 30
    e = ((2 * b) + (4 * c) + (6 * d) + n) Mod 7

    If ((d + e) < 10) Then
        giorno = d + e + 22
        mese = 3
    Else
        giorno = d + e - 9
        mese = 4
    End If

    If (giorno = 26 And mese = 4) Then
        giorno = 19
        mese = 4
    End If

    If (giorno = 25 And mese = 4 And d = 28 And e = 6 And a > 10) Then
        giorno = 18
        mese = 4
    End If

    DataPasqua = DateTime.Date(DateUtils.SetDate(Anno, mese, giorno))
    Return DataPasqua

End Sub

LucaMs · Apr 10, 2018

... e dopo tanta "fatica"...

https://www.b4x.com/android/forum/threads/solved-calculate-easter-day.50460/

udg · Apr 10, 2018

Ora che puoi calcolare con precisione Pasqua dell'anno prossimo, prenoti per tutti un agriturismo, un posticino carino per "Pasquetta"?

Italian Giorni dell'anno senza feste

Active Member

Expert

Expert

Expert

Active Member

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency