Calcolo Eta

[heroes3]

sempre a riguardo di questa funzione
ho un problemino di tipi di dati

se passo alla funzione una stringa del tipo
"01/01/1999" tutto ok

se passo alla funzione un valore preso da un database con campo date non funziona mi dice errore
come posso risolvere??
ho provato ad utilizzare cstr su campo recuperato dal database
ma non cambia nulla

help

[heroes3]

UP

[Jupy64]

Ciao, sicuro che gli passi una data corretta? potresti provare anche questa funzione:

Function Anni(dInit, dEnd)
   Dim mesi, tmpData
   if isDate(dinit) and isDate(dEnd) then
      If dInit > dEnd Then
         tmpData = dInit
         dInit = dEnd
         dEnd = tmpData
      End If
      mesi = DateDiff("m", dInit, dEnd)
      If (Month(dInit) = Month(dEnd)) And (Day(dEnd) < Day(dInit)) Then
         mesi = mesi - 1
      End If
      Anni = Int(mesi / 12)
   else
      Anni=-1
   end if
End Function

[heroes3]

l'errore che ho a video è

Tipo non corrispondente: 'CalcolaData'

e la chiamo così:
EtaPrimo = CalcolaData(Date(),DataPrimo)

dove dataPrimo è una data verificata tramite isdate()
e stampata a video con risultato true

dove sto sbagliando???

help

[heroes3]

up

[heroes3]

Function CalcolaEta(DataRif,DataNascita)
	'Response.Write Datarif,DataNascita
	'Response.End 
	if isdate(DataRif) and isdate(DataNascita) then
		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 if
End Function

Quella è la function che uso

l'errore che ho a video è

Tipo non corrispondente: 'CalcolaData'

e la chiamo così:
EtaPrimo = CalcolaData(Date(),DataPrimo)

HELP Me

[Sypher]

Originariamente inviato da heroes3

Function CalcolaEta(DataRif,DataNascita)
	'Response.Write Datarif,DataNascita
	'Response.End 
	if isdate(DataRif) and isdate(DataNascita) then
		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 if
End Function

Quella è la function che uso

l'errore che ho a video è

Tipo non corrispondente: 'CalcolaData'

e la chiamo così:
EtaPrimo = CalcolaData(Date(),DataPrimo)

HELP Me

che è CalcolaData...la funzione non si chiama CalcolaEta?

ricordati il biglietto

[heroes3]

Originariamente inviato da Sypher
che è CalcolaData...la funzione non si chiama CalcolaEta?

ricordati il biglietto

non ci credo!!!!! VVoVe: VVoVe:

grazie mille
biglietto assicurato

[Sypher]

Originariamente inviato da heroes3
non ci credo!!!!! VVoVe: VVoVe:

grazie mille
biglietto assicurato

[Certe Notti]

Originariamente inviato da heroes3
Ciao A tutti
Ho un problemino di questo tipo:
Devo sapere quanti anni ha una persona (effettivi!!!)
avendo 2 date
e stavo creando una function del tipo

Function CalcolaEta(DataRif,DataNascita)
	CalcolaEta = DateDiff("yyyy",DataNascita,DataRif)
End Function

il problema è che ovviamente mi calcola solo gli anni di differenza ma a me serve sapere esattamente l'eta non gli anni di differenza quindi, ad esempio se un tizio è nato il giorno
11/02/1980 il tizio in questione oggi ha 24 anni e domani invece ne ha 25 quindi una cosa variabile a seconda del giorno
come posso fare??

grazie a tutti

ciao premetto che sono fuso a quest'ora del giorno ma provo ad aiutarti anch'io...

vedi una roba del genere:

nascita = (data di nascita)

GG_nascita = day(nascita)
mm_nascita = Month(nascita)
yy_nascita = year(nascita) 

oggi = (data di oggi)

GG_oggi = day(oggi)
mm_oggi = month (oggi)
yy_oggi = year(oggi)

Anni = (yy_oggi - yy_nascita)

If (mm_nascita > mm_oggi) Then
 diff_mesi = (mm_nascita - mm_oggi)
 if (gg_nascita > gg_oggi) then
    diff_gg = (gg_nascita - gg_oggi)
 end if

 if (gg_nascita < gg_oggi) then 
   diff_gg = (gg_oggi - gg_nascita)
 end if

 if (gg_nascita = gg_oggi) then
   diff_gg = 0 
 end if
end if

If (mm_nascita < mm_oggi) Then
 diff_mesi = (mm_oggi - mm_nascita) 
 if (gg_nascita > gg_oggi) then
    diff_gg = (gg_nascita - gg_oggi)
 end if

 if (gg_nascita < gg_oggi) then 
   diff_gg = (gg_oggi - gg_nascita)
 end if

 if (gg_nascita = gg_oggi) then
   diff_gg = 0 
 end if
end if

If (mm_nascita = mm_oggi) Then
 diff_mesi = 0 

 if (gg_nascita > gg_oggi) then
    diff_gg = (gg_nascita - gg_oggi)
 end if

 if (gg_nascita < gg_oggi) then 
   diff_gg = (gg_oggi - gg_nascita)
 end if

 if (gg_nascita = gg_oggi) then
   diff_gg = 0 
 end if
end if

al che ottenuti i giorni, mesi e anni di differenza fai tutti i calcoli

del tipo:

anni = 20

ma il mese attuale e minore di quello della nascita allora anni -1
ma il mese attuale e maggiore di quello della nascita allora anni rimangono quelli + x mesi e idem per i giorni...

ciao