Calcolo Eta

[Sypher]

Originariamente inviato da heroes3
datarif è la data di riferimento
che può essere ieri,oggi,domani,dopo,etc,etc variabile insomma

fai l'if come ti ho detto qualche post più su...dovrebbe essere chiaro...spero

[heroes3]

si infatti l'ho quasi finita
speriamo funzichi
poi la provo e la posto

[ID-entity]

scusa ma se, nell'esempio che hai proposto, alla funzione passassi la data di oggi ti restituirebbe 24, se gli passassi la data di domani ti restituirebbe 25... no?

[heroes3]

Originariamente inviato da ID-entity
scusa ma se, nell'esempio che hai proposto, alla funzione passassi la data di oggi ti restituirebbe 24, se gli passassi la data di domani ti restituirebbe 25... no?

no ti passa sempre 25 perchè calcola solo gli anni e non considera i mesi e i giorni

[heroes3]

funzia alla grande grazie raga per aver sbloccato il mio cervellino grippato
eccola qui

Function CalcolaEta(DataRif,DataNascita)
	MMRif= Month(Datarif)
	GGRif= Day(Datarif)
	MMNas =Month(Datanascita)
	GGNas =Day(Datanascita)

	Anni = DateDiff("yyyy",DataNascita,DataRif)
	if MMRif = MMNas then
		If GGRif < GGNas then
			Anni = Anni -1	
		else
			Anni = Anni 	
		End if
	end if
	if MMRif < MMNas then
		Anni = Anni - 1
	else
		Anni = Anni
	end if
	CalcolaEta = Anni
End Function

Aveva ragione sypher non era difficile
però se era già pronta era meglio

[Sypher]

Originariamente inviato da heroes3
no ti passa sempre 25 perchè calcola solo gli anni e non considera i mesi e i giorni

vabbè l'hai finito quest'IF so 2 righe che fai batti la fiacca?

[heroes3]

Originariamente inviato da Sypher
vabbè l'hai finito quest'IF so 2 righe che fai batti la fiacca?

to anticipato l'avevo già postato

[Sypher]

oddio non bastava fare

if DataNascita < DataRif then
...
else
...
end if

convertite in date se arrivavano stringhe

[optime]

no. penZaci!

[heroes3]

Originariamente inviato da optime
no. penZaci!

ti adoro