Tipo non corrispondente: 'argDate'

[fraude]

ciao a tutti.

Ho trovato queste due funzioni a firma imente per la formattazione delle date e le ho inserite in un file incluso ad una pagina asp; quando cerco di utilizzare la funzione formatGMTDate lo script restituisce un errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'argDate'

su questa linea:

getGMTDate = dateadd("h",argGMT,argDate)

Da cosa dipende?

Ecco il file incluso:

function formatDBDate(argDate,argDB)

	dim tmpdate,tmpdateoutput
	tmpdate = argDate
	
	select case argDB
		case "mdb"
		tmpdateoutput = "#yyyy-mm-dd h:m:s#"
		case "mysql"
		tmpdateoutput = "'yyyy-mm-dd'"
	end select
	
	tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate))
	tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2))
	
	tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2))
	
	formatDBDate = tmpdateoutput
	
end function


function getGMTDate(argDate,argGMT)
	getGMTDate = dateadd("h",argGMT,argDate)
end function

function formatGMTDate(argDate, argGMT, argFormat)
	dim tmpdate,tmpdateoutput
	tmpdate = getGMTDate(argDate,argGMT)
	
	tmpdateoutput = argFormat
	tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate))
	tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2))
	
	tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2))	
	formatGMTDate = tmpdateoutput
end function

[littletoro]

come la richiami questa funzione?
la data da formattare (argDate) gliela passi?

[fraude]

Originariamente inviato da littletoro
come la richiami questa funzione?
la data da formattare (argDate) gliela passi?

Prima così per la query:

dataRichiesta = formatDBDate(dataRichiesta,"mysql")

e poi così per vederla in italiano:

formatGMTDate(datarichiesta,0,"dd/mm/yyyy")

[littletoro]

l'errore che ti dà riguarda la data.

cosa ci metti dentro dataRichiesta?
fatti fare una stampa a video di quella variabile..

[fraude]

'2006-08-25'

[littletoro]

prova a sostituire i "-" con "/"

datachepassi = replace(datachepassi,"-","/")

[fraude]

Niente da fare, stesso errore.

[littletoro]

prova un pò a passargli una data fissa nel formato dd/mm/aaaa :master:

[fraude]

Originariamente inviato da littletoro
prova un pò a passargli una data fissa nel formato dd/mm/aaaa :master:

Così funziona:

formatGMTDate("25/08/2006",0,"dd/mm/yyyy")

[littletoro]

ma tornando un attimo indietro... tu utilizzi queste funzioni per formattare una data da passare a mysql?

prova con questa che prende come parametro una data nel formato gg/mm/aaaa...


Function sDataStr(tuadata)

sDataStr= _
right("19" & cStr(Year(tuadata)),4) & "." & _
right("00" & cStr(Month(tuadata)),2) & "." & _
right("00" & cStr(Day(tuadata)),2) & "."

end function