Date avec le decalage horaire,

Commenter

Contenu du snippet

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"%>

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_tidave)