Function ChangeDate(strData)
	'Stampa la data in formato GG/MM/AAAA anche se è inserita in formato Passepartout GGMM
	If len(strData) > 10 then
		strData = ""
	Elseif len(strData) >= 4 AND len(strData)<>6 AND len(strData)<>10 AND (instr(1,strData,"/")>0 OR instr(1,strData,"-")>0 OR instr(1,strData,"\")>0 OR instr(1,strData,"_")>0 OR instr(1,strData,".")>0) then
		If isdate(strData) then
			strData = year(strData) & right("00" & month(strData),2) & right("00" & day(strData),2)
			strData = mid(strData,7,2) & "/" &  mid(strData,5,2) & "/" &  left(strdata,4)
			if strData = "//" then
				strData = ""
			end if
		else
			strData = ""
		end if
	Elseif len(strData) = 4 AND (instr(1,strData,"/")=0 OR instr(1,strData,"-")=0 OR instr(1,strData,"\")=0 OR instr(1,strData,"_")=0 OR instr(1,strData,".")=0) then
		strData = year(Date()) & right(strData,2) & left(strData,2)
		strData = mid(strData,7,2) & "/" &  mid(strData,5,2) & "/" &  left(strdata,4)
	Elseif len(strData) = 10 AND (instr(1,strData,"/")=0 OR instr(1,strData,"-")=0 OR instr(1,strData,"\")=0 OR instr(1,strData,"_")=0 OR instr(1,strData,".")=0) then	
		strData = right(strData,4) & mid(strData,4,2) & left(strData,2)
		strData = mid(strData,7,2) & "/" &  mid(strData,5,2) & "/" &  left(strdata,4)
	Elseif len(strData) = 6 AND (instr(1,strData,"/")=0 OR instr(1,strData,"-")=0 OR instr(1,strData,"\")=0 OR instr(1,strData,"_")=0 OR instr(1,strData,".")=0) then
		strData = "20" & right(strData,2) & mid(strData,3,2) & left(strData,2)
		strData = mid(strData,7,2) & "/" &  mid(strData,5,2) & "/" &  left(strdata,4)
	Elseif len(strData) = 8 AND (instr(1,strData,"/")=0 OR instr(1,strData,"-")=0 OR instr(1,strData,"\")=0 OR instr(1,strData,"_")=0 OR instr(1,strData,".")=0) then
		strData = right(strData,4) & mid(strData,3,2) & left(strData,2)
		strData = mid(strData,7,2) & "/" &  mid(strData,5,2) & "/" &  left(strdata,4)
	else
		strData = ""
	end if
	If isdate(strData) then
		ChangeDate = strData
	Else
		ChangeDate = ""
	End if
End Function

Function ChangeDate2(strData)
	ChangeDate2 = ChangeDate(strData)
	if ChangeDate2 <> "" then
		ChangeDate2 = left(ChangeDate2,6) + right(ChangeDate2,2)
	end if
End Function
		
Function FormatoOra(intNum)
	Test = FormatNumber(1,2)
	If Instr(Test,".") > 0 Then
		SepDec = "."
		SepDecX = ","
	Else
		SepDec = ","
		SepDecX = "."
	End If
	If Instr(intNum,SepDecX) > 0 Then intNum = Replace(intNum,SepDecX,SepDec)
	ParteInt = int(cdbl(intNum))
	Resto = cdbl(intNum) - ParteInt
	Resto = round(cdbl(resto) * 60 / 100,2)
	FormatoOra = replace(cstr(ParteInt+Resto),SepDec,":")
	if instr(FormatoOra,":") = 0 then FormatoOra = FormatoOra & ":00"
	if instr(FormatoOra,":") = len(FormatoOra) - 1 then FormatoOra = FormatoOra & "0"
End Function

Function FormatoDecimale(strOra)
	strOra = replace(strOra,",",".")
	strOra = replace(strOra,":",".")
	if isnull(strOra) then
		FormatoDecimale = 0
	else
		if instr(strOra,".") then
			if isnumeric(left(strOra,instr(strOra,".")-1)) and isnumeric(right(strOra,len(strOra)-instr(strOra,"."))) then
				ParteInt = cint(left(strOra,instr(strOra,".")-1))
				Resto = left(right(strOra,len(strOra)-instr(strOra,".")) & "00",2)
				Resto = cdbl(Resto)
				if resto >= 60 then
					FormatoDecimale = 0
				else
					Resto = resto / 60
					FormatoDecimale = ParteInt+Resto
				end if
			else
				FormatoDecimale = 0
			end if
		else
			if isnumeric(strOra) then
				FormatoDecimale = cint(strOra)
			else
				FormatoDecimale = 0
			end if
		end if
	end if
	FormatoDecimale = FormatNumber(FormatoDecimale,2,,,0)
	FormatoDecimale = Replace(FormatoDecimale,".",",")
End Function
	
Function EuroDec(strInput,intE)
	if isnumeric(strInput) then
		strNumStringa = cstr(cdbl(strInput))
		if instr(1,strNumStringa,",") then
			intNumDecimali = len(strNumStringa) - instr(1,strNumStringa,",")
		else
			intNumDecimali = 0
		end if
		if intNumDecimali < 2 then intNumDecimali = 2
		if intNumDecimali > 4 then intNumDecimali = 4
		EuroDec = FormatNumber(strInput,intNumDecimali,,,-1)
		if intE = 1 then
			EuroDec = "€ " & EuroDec
		elseif intE = 2 then
			EuroDec = EuroDec & " €"
		end if
	else
		EuroDec = ""
	end if
End Function

Function PassData(strData)
	if len(strData) > 0 then
		PassData  = year(strData) & right("00" & month(strData),2) & right("00" & day(strData),2)
	else
		PassData = ""
	end if
End Function