Problema con queste funzioncine

[Diddlina]

Ciao!

Sapete spiegarmi perchè non mi va questo:

'compone la data
Function DataI()
	Dim Giorno, Mese, Anno
	Giorno = 17
	Mese = 11
	Anno = 2004
	
	If Len(Giorno) < 1 Then Giorno = 0 & Giorno
	If Len(Mese) < 1 Then Mese = 0 & Mese
	
	DataI = Mese &"/"& Giorno &"/"& Anno
End Function


'controllo la data odierna con quella inserita (quella sopra)
Function CtrlData(DataI)
   If DateDiff("d",DataI,Date) < 0 Then CtrlData = False
   response.Write(DateDiff("d",DataI,Date)&"
")
End Function
if CtrlData(DataI()) = False then response.Write("errore!!!")

Allora, se la data è errata, esce, sì, un nuomero negativo, ma, alla riga evidenziata in rosso, non interessa mai nulla e mi scrive sempre l'errore. Perchè??

[X_Gold*]

Originariamente inviato da Diddlina
Ciao!

Sapete spiegarmi perchè non mi va questo:

'compone la data
Function DataI()
	Dim Giorno, Mese, Anno
	Giorno = 17
	Mese = 11
	Anno = 2004
	
	If Len(Giorno) < 1 Then Giorno = 0 & Giorno
	If Len(Mese) < 1 Then Mese = 0 & Mese
	
	DataI = Mese &"/"& Giorno &"/"& Anno
End Function


'controllo la data odierna con quella inserita (quella sopra)
Function CtrlData(DataI)
   If DateDiff("d",DataI,Date) < 0 Then CtrlData = False
   response.Write(DateDiff("d",DataI,Date)&"
")
End Function
if CtrlData(DataI()) = False then response.Write("errore!!!")

Allora, se la data è errata, esce, sì, un nuomero negativo, ma, alla riga evidenziata in rosso, non interessa mai nulla e mi scrive sempre l'errore. Perchè??

datediff restituisce 0 e tu controlli invece che sia minore di 0 quindi CtrlData ha valore null (o "").


soluzione :

If DateDiff("d",DataI,Date) = 0 Then
CtrlData = true
else
CtrlData = false

[Diddlina]

Originariamente inviato da X_Gold*
datediff restituisce 0 e tu controlli invece che sia minore di 0 quindi CtrlData ha valore null (o "").


soluzione :

If DateDiff("d",DataI,Date) = 0 Then
CtrlData = true
else
CtrlData = false

OK OK...
ma anche, per esempio, cambiando l'anno con 2002, esce: 731. Quindi un numero positivo. Ecoo, l'errore esce lo stesso....Perchè?

[deivnet]

Fai un Response.Write di CtrlData(DataI()) e vedi cosa ritorna

[Diddlina]

Originariamente inviato da deivnet
Fai un Response.Write di CtrlData(DataI()) e vedi cosa ritorna

Esce: 731

[X_Gold*]

<%
Function DataI()
	Dim Giorno, Mese, Anno
	Giorno = 17
	Mese = 11
	Anno = 2004
	
	If Len(Giorno) < 1 Then Giorno = 0 & Giorno end if
	If Len(Mese) < 1 Then Mese = 0 & Mese end if
	
	DataI = Mese &"/"& Giorno &"/"& Anno
End Function



Function CtrlData(DataI4)
   If DateDiff("d",DataI,Date) = 0 Then 
   CtrlData = "F"
   response.Write(DateDiff("d",DataI,Date)&"
")
   end if
End Function
if CtrlData(DataI()) = "F" then 
response.Write("errore!!!")
end if 
%>

questo dovrebbe funzionare

[Diddlina]

Originariamente inviato da X_Gold*

<%
Function DataI()
	Dim Giorno, Mese, Anno
	Giorno = 17
	Mese = 11
	Anno = 2004
	
	If Len(Giorno) < 1 Then Giorno = 0 & Giorno end if
	If Len(Mese) < 1 Then Mese = 0 & Mese end if
	
	DataI = Mese &"/"& Giorno &"/"& Anno
End Function



Function CtrlData(DataI4)
   If DateDiff("d",DataI,Date) = 0 Then 
   CtrlData = "F"
   response.Write(DateDiff("d",DataI,Date)&"
")
   end if
End Function
if CtrlData(DataI()) = "F" then 
response.Write("errore!!!")
end if 
%>

questo dovrebbe funzionare

E cosa ho risolto con queste modifiche?

[X_Gold*]

Originariamente inviato da Diddlina
E cosa ho risolto con queste modifiche?

scusa ma a te non interessava sapere se la data era la stessa di oggi avere la scritta errore ?

[Diddlina]

Originariamente inviato da X_Gold*
scusa ma a te non interessava sapere se la data era la stessa di oggi avere la scritta errore ?

Non esattamente!

A me interessa sapere se è una data 'corretta' cioè, se non è > di quella odierna. Tipo: se si inserisce 11/02/2004=ok; se si inserisce 11/02/2005=errore.

[X_Gold*]

Originariamente inviato da Diddlina
Non esattamente!

A me interessa sapere se è una data 'corretta' cioè, se non è > di quella odierna. Tipo: se si inserisce 11/02/2004=ok; se si inserisce 11/02/2005=errore.

<%
Function DataI()
	Dim Giorno, Mese, Anno
	Giorno = 17
	Mese = 11
	Anno = 2004
	
	If Len(Giorno) < 1 Then Giorno = 0 & Giorno end if
	If Len(Mese) < 1 Then Mese = 0 & Mese end if
	
	DataI = Mese &"/"& Giorno &"/"& Anno
End Function



Function CtrlData(DataI4)
   If DateDiff("d",DataI,Date) = 0 Then 
   CtrlData = "F"
   response.Write(DateDiff("d",DataI,Date)&"
")
   end if
End Function
if CtrlData(DataI()) <> "F" then 
response.Write("errore!!!")
end if 
%>