CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT

'fonctions de determination de la date de changement d'heure pour l'hiver puis pour l'été
function getchgtdatehiver()
	datestart= Year(now)
	for i=31 to 0 step -1
		datearriv= i & "/10/" & datestart

	if Weekday(datearriv) = 1 then
		getchgtdatehiver=datearriv
		exit for
	end if
	next
end function

function getchgtdateete()
	datestart= Year(now)
	for i=31 to 0 step -1
		datearriv= i & "/03/" & datestart

	if Weekday(datearriv) = 1 then
		getchgtdateete=datearriv
		exit for
	end if
	next
end function



'fonction de convertion de gmt en local
Function convFromGMT(TheDate)
TheDate=Cdate(TheDate)

	if TheDate<cdate(getchgtdateete()) then
		
		convFromGMT=DateAdd("h",1,TheDate)
	elseif TheDate>cdate(getchgtdateete()) and TheDate<cdate(getchgtdatehiver()) then
		
		convFromGMT=DateAdd("h",2,TheDate)
	elseif TheDate>cdate(getchgtdatehiver()) then
		
		convFromGMT=DateAdd("h",1,TheDate)
	end if




end function

'fonction de convertion de local en gmt

Function convToGMT(TheDate)
TheDate=Cdate(TheDate)

	if TheDate<cdate(getchgtdateete()) then
		convToGMT=DateAdd("h",-1,TheDate)
	elseif TheDate>cdate(getchgtdateete()) and TheDate<cdate(getchgtdatehiver()) then
		convToGMT=DateAdd("h",-2,TheDate)
	elseif TheDate>cdate(getchgtdatehiver()) then
		convToGMT=DateAdd("h",-1,TheDate)
	end if


end function