[Risolto] Contatore del Tempo

[Vernagallo]

Ciao a tutti voi, mi sono appena iscritto, e ho notato che tutti ricevono la soluzione al proprio problema,
ringraziandovi anticipatamente inizio con il porgervi il mio quesito. Innanzi tutto non conosco bene le formule da adottare e tanto meno le funzioni.
Su foglio di Calcolo dovrei conteggiare un lasso di tempo diviso in giorni, mesi ed anni, che man mano si vanno accumulando.
Siccome i giorni si sommano di continuo fino a divenire (es.: 1642) vorrei che il valore sia tra 1 e 30 e superata detta soglia, andrebbe ad incrementare la casella dei mesi, anch'essa con un valore compreso tra 1 e 12, e a sua volta incrementare la casella degli anni.
Vorrei sapere che formule e funzioni utilizzare per ottenere il risultato (es.: 5 giorni; 11 mesi; 20 anni)
Spero di essere stato chiaro e attendo una vostra risposta.
Grazie.

[charlie]

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Per una panoramica delle regole del forum consulta il Manuale di sopravvivenza: http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2
Buon proseguimento.

[gioh66]

Buondì. posta un file d'esempio con il risultato voluto scritto a mano.

[charlie]

Ciao, posto che il numero dei giorni sia in A1, per gli anni scrivi in B1:

Codice: Seleziona tutto

=INT(A1/365)

per i mesi in C1:

Codice: Seleziona tutto

=INT((A1-B1*365)/30)

per i giorni, in D1:

Codice: Seleziona tutto

=RESTO((A1-B1*365);30)

S.E.&O.

Naturalmente considerando i mesi di 30 giorni e gli anni di 365.

[Vernagallo]

Innanzi tutto ringrazio chi mi ha dato attenzione, Charlie e gioh66, cercherò di inviare un allegato, e scusatemi se vi sto complicando la vita anche a voi, Grazie.

[charlie]

Mi risulta del tutto incomprensibile la condizione di partenza:

Schermata 2018-10-09 alle 08.00.51.png (9.39 KiB) Visto 4446 volte

Di solito si parte da un numero di giorni accumulati e lo si vuole dividere in anni, mesi, giorni.

[gioh66]

Facendo un calcolo approssimativo, non tutti gli anni sono di 365 giorni e non tutti i mesi sono di 30, per gli anni potresti usare

Codice: Seleziona tutto

=INT(C2/365)+A2+INT(B2/12)

per i mesi

Codice: Seleziona tutto

=RESTO(B2;12)+INT((C2-INT(C2/365)*365)/30)

e per i giorni

Codice: Seleziona tutto

=RESTO((C2-INT(C2/365)*365);30)

il risultato si avvicina molto al tuo, salvo errori.

[Vernagallo]

Ringrazio tutti quanti per l'enorme aiuto che mi avete dato, in particolare charlie e gioh66, attraverso i loro suggerimenti, e un pò di intuizione sono riuscito ad avere dei risultati accettabili, visto che i mesi non sono tutti di 30 gg e gli anni non sono tutti di 365 gg. GRAZIE a tutti Voi

[steeler]

Chiedo scusa se riuppo questo topic ma ho un problema simile.
vedendo il secondo risultato dal sito Time and Date https://tinyurl.com/3d9kcuur con la funzione calcola tempo tra 2 date

che viene 8 years, 10 months, 20 days excluding the end date.
8 anni, 10 mesi, 20 giorni

nel mio allegato il risultato è diverso

[nickGiard]

Chiedo scusa se in questo momento non sono in grado di dare un esempio scritto, ma faccio comunque presente che la gestione delle Date non risulta da semplici divisioni, ci sono gli anni bisestili.... Devi giocare la cosa con le funzioni Data Ora del foglio elettronico, o con le equivalenti del BASIC. Sicuramente interessante è la lettura di OpenOffice.org Macros Explained di Pitonyak cap. 6. Date Routines.
Tornando alla richiesta dovresti specificare cosa intendi per lasso di tempo: Hai due date, una iniziale ed una finale che magari viene aggiornata? Se è così si può pensare ad una determinazione esatta con quanto scritto sopra.

[Attilafdd]

nel mio allegato il risultato è diverso

usa la funzione DATA.DIFF che è comodissima per questo lavoro.

Allego esempio.

[nickGiard]

Nel caso ti interessi una funzione Basic, ho provato a sviluppare una soluzione, ovviamente da testare. La puoi richiamare da una cella con i parametri di cella inizio e cella fine periodo.
Mi sembra una cosa interessante.

Codice: Seleziona tutto

Function PeriodoToAnniMesiGiorni(Optional dDataInizio, Optional dDataFine) '  As Date
	' Test
	If IsMissing(dDataInizio) Then
		' "1/1/2020", "1/1/2020" --> "0000-00-01"
		' "1/2/2020", "1/3/2020" --> "0000-01-01"
		' "1/2/2021", "1/3/2021" --> "0000-01-01"
		' "1/2/2021", "1/2/2022" --> "0001-00-01"
		' "1/2/2022", "1/2/2023" --> "0001-00-01"
		' "1/2/2022", "15/3/2023" --> "0001-01-15"
		dDataInizio = "1/2/2022" : dDataFine = "15/3/2023"
	End If
	dDataInizio = CDate(dDataInizio)
	dDataFine = CDate(dDataFine) + 1 'Stesso giorno Inizio e fine conta per 1
	' Anni
	Dim iAnni% : iAnni = DateDiff("yyyy", dDataInizio, dDataFine) ' Year(dDataFine) - Year(dDataInizio)
	'dInizioPiuAnni Data 0 + Years integer
	Dim dInizioPiuAnni As Date : dInizioPiuAnni = DateAdd("yyyy", iAnni, dDataInizio)
	' Mesi
	Dim dInizioPiuAnniMesi As Date, iMesi%
	iMesi = DateDiff("m", dInizioPiuAnni, dDataFine)
	dInizioPiuAnniMesi = DateAdd("m", iMesi, dInizioPiuAnni)
	' Giorni rimanenti
	Dim iGiorni% : iGiorni = DateDiff("y", dInizioPiuAnniMesi, dDataFine)
	Dim aResult
	aResult = Array(Right("0000" & iAnni, 4), Right("00" & iMesi, 2), Right("00" & iGiorni, 2))
	Dim sResult$ : sResult = Join(aResult, "-")
	
	PeriodoToAnniMesiGiorni = sResult
End Function

[nickGiard]

Salve
come succede spesso, se non fai test approfonditi, le macro possono avere dei bug, come nel caso della macro che ho esposto.
Ho integrato la stessa, che risulta all'interno del file che allego, con i relativi test.