j' habite en guadeloupe et je voulais que mon site indique la date en guadeloupe alors que mon seveur est en france ,
la date de france et la date guadeloupe sont parfois differentes .
par exemple , quand il est lundi 20h en guadeloupe il est deja mardi 2h en france.
apres avoir testé plusieus methode , je me suis fais un truc avec une base de donnee acces.
je suis encore debutant , mon code est tres long eturement mal ecrit , je suis en train d'apprendre , si quelqu'un vois une methode plus simple , merci de me le faire savoir
detail : la base de donnees s'appelle "calendrier" , il y a une table "jour" qui contient 2 champs , "numero de la forme numero_auto" et "jour_today".
Source / Exemple :
<%
dim jourday
dim jour
dim heure 'heure du serveur
dim num 'numero dans la base pour le jour aujourd'hui
dim numhier 'numero dans la base pour le jour de hier
heure=hour(now)
if weekdayname(weekday(date()))="lundi" then jour="Lundi"
if weekdayname(weekday(date()))="mardi" then jour="Mardi"
if weekdayname(weekday(date()))="mercredi" then jour="Mercredi"
if weekdayname(weekday(date()))="jeudi" then jour="Jeudi"
if weekdayname(weekday(date()))="vendredi" then jour="Vendredi"
if weekdayname(weekday(date()))="samedi" then jour="Samedi"
if weekdayname(weekday(date()))="dimanche" then jour="Dimanche"
jourday = jour & jourday
jourday = jourday & " "
If day(date()) = 1 Then
jourday = jourday & "1er"
Else
jourday = jourday & day(date())
End If
jourday = jourday & " "
jourday = jourday & monthname(month(date()))
jourday = jourday & " "
jourday= jourday & year(date())
' connexion a la base de donnees calendrier
dbPath = Server.MapPath("calendrier.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = server.createobject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & dbPath
SQL = "SELECT * FROM jour WHERE jour_today LIKE '" & jourday & "'"
RS.Open SQL,Conn , 3, 3
if rs.EOF then
RS.addnew
RS("jour_today")=jourday
RS.update
end if
SQL = "SELECT * FROM jour WHERE jour_today LIKE '" & jourday & "'"
num=rs("numero")
numhier=num-1
rs.close
if not heure>5 and heure < 24 then
SQL = "SELECT * FROM jour WHERE numero=" & numhier
RS.open SQL,Conn,3,3
if not rs.eof then
jourday=rs("jour_today")
rs.close
end if
end if
'pourqu'il ny ait pas trop d'enregistrement dans la base ,
'on efface les dates passées de plus de 2 jours
Conn.execute "DELETE * FROM jour" _
& " WHERE numero<" & (num-2)
set rs=nothing
conn.close
Set conn=nothing
response.write jourday & " " & " Gpe"%>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.