begin process at 2012 02 08 19:28:42
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date/Heure

 > DATE AVEC LE DECALAGE HORAIRE,

DATE AVEC LE DECALAGE HORAIRE,


 Information sur la source

Note :
3 / 10 - par 2 personnes
3,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date/Heure Classé sous :date, décalage, horaire, jour, day Niveau :Débutant Date de création :24/05/2005 Vu :20 750
Auteur : tidave

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

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

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



 Sources du même auteur

COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS
Source avec Zip COMPTEUR DE VISITE ,GERE ONLINE ET VISITE ET AFFICHE LE NOM ...
Source avec Zip COMPTEUR ASP SANS OBJET SESSION FONCTIONNE IMPECC
COMPTEUR DE VISITE AVEC VARIABLE DE SESSION
Toutes les sources de tidave

 Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon
CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel
Toutes les sources de la catégorie Date/Heure

 Sources en rapport avec celle ci

Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES par jessie
Source avec Zip CALCULER LE NOMBRE DE JOURS FÉRIÉS ENTRE 2 DATES par jessie
JOUR,DATE,HEURE par henneuse_alain
CALCUL DU NOMBRE DE JOURS OUVRABLES ENTRE DEUX DATES par steve

Commentaires et avis

Commentaire de Bud le 25/05/2005 09:12:02

Euh!!! Un simple dateAdd("h",now(),-6) aurait du te donner ta bonne date non?

Commentaire de jfperras le 26/05/2005 14:32:52

Tout comme Bud, je me dis exactement la même chose...

Explication demandée svp :)

Commentaire de tidave le 26/05/2005 14:57:42

salut , j'ai essayé cette methode , mais ça ne marche pas ,
quand je fais ça : dateAdd("h",now(),-6)
j'ai une date ( pas la date du jour , ni année) mais en chiffre et avec l'heure ;
16/05/1904 02:00:00  
je veux la date au format: lundi 22 mai 2005
merci

Commentaire de Bud le 26/05/2005 16:44:13

Regarde du côté de la fonction formatDate. Une explication ici: http://www.ilovejackdaniels.com/asp/vbscript-date-format-functions/

Commentaire de ObelixSuisse le 30/05/2005 00:40:08

Essaie plutôt d'utiliser l'heure locale... Bon c'est celle du PC, mais c'est bcp plus dynamique en JavaScript
Inspire toi de ça...

<html>
  <body onload="setInterval('document.getElementById(\'fDate\').innerHTML=getDate()',1000)">
    <script type="text/javascript">
      function getDate(){
        var sDate=new Date
        return "Local Time = " + sDate.toLocaleString().replace(".","").replace(",","")
      }
    </script>
    <span id="fDate" style="text-align:right;width:100%"></span>
  </body>
</html>

Commentaire de tidave le 30/05/2005 04:26:25

Salut a tous , donc je vois que meme si compliqué , la methode de la base de données est la methode la plus sur,
parce que le pc n'est pas tjs a l'heure entre autre et que les autre methode ne fonctionne pas comme je veux .
merci de votre aide ,

Commentaire de tbbuim1 le 16/09/2005 14:45:34

tiembé raide pa moli ;p

Commentaire de tidave le 16/09/2005 20:22:54

Voilà , j'ai battaillé ferme et voilà la modification de ma source

<%'Le date du style Lundi 1er Juillet 2005 avec le decalage horaire
' devellopé par bergina davidpour http://www.cedi971.com

'definir le decalage horaire
dim dec 'decalage horaire
dec=6
if not hour(now)>(dec-1) and hour(now) < 24 then
decalage="ok"
end if
dim jour_de_guadada ' date de la guadeloupe


function wjour(jour) ' pour mettre la premier lettre en majuscule
wjour=Ucase(left(jour,1))&Lcase(right(jour,len(jour)-1))
end function

function numjour(num) 'pour transformer 1 en 1er
if day(date())=1 then numjour=replace(num,"1","1er") else numjour=num end if
end function
%>

<%if decalage="ok" and day(date)=1 and monthname(month(date))="janvier" then %>
<%jour_de_guadada=wjour(weekdayname(weekday(date-1))) & "  " & day(date-1) & "  " & wjour(monthname(month(date-1)))& "  " & year(date-1)%>

<%elseif decalage="ok" and day(date)=1 then %>
<%jour_de_guadada=wjour(weekdayname(weekday(date-1))) & "  " & day(date-1) & "  " & wjour(monthname(month(date-1)))& "  " & year(date)%>

<%elseif decalage="ok" then %>
<%jour_de_guadada=wjour(weekdayname(weekday(date-1))) & "  " & numjour(day(date-1)) & "  " & wjour(monthname(month(date)))& "  " & year(date)%>

<%else%>

<%jour_de_guadada=wjour(weekdayname(weekday(date))) & "  " & numjour(day(date)) & "  " & wjour(monthname(month(date)))& "  " & year(date)%>
<%end if%>
<%response.write jour_de_guadada%>

Commentaire de Michel76 le 30/12/2005 09:47:47

Hello,

Curieusement, je suis en train de réaliser une application pour des utilisateurs situés en Guadeloupe.
La particularité de la Guadeloupe est qu'il n'y a pas d'heure d'été/hiver (donc la proposition de Bud est à exclure).
C'est heure GMT - 4 heures, donc en créant un fichier "getgmtoffset.asp" contenant :

<%@ LANGUAGE=JScript %>
<%
    Application("ServerGMTOffset") = 0 + (new Date().getTimezoneOffset() / 60)
%>

On place le nombre d'heures entre l'heure GMT et l'heure du serveur dans une variable application.
Reste dans le code où tu as besoin de l'heure locale de la Guadeloupe à placer :

<%
Server.execute "getgmtoffset.asp"
Response.Write("Guadeloupe : "&DateAdd("h",Application("ServerGMTOffset")-4,Now)
%>

A+
Michel

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

mise à jour champ date sur access par update (SQL) [ par caussieu ] Bonjour,Voici le code utilisé pour mettre à jour la base de données Access sous ASP / SQL : sql = "Update animations Set animation='"&animation&"', li boite alerte [ par rony ] le message d'alerte suivant ne fonctionne pas pourquoi ?merci1/ tout d'abord je récupére ma variable "dates" de monformulaire.comme ceci&lt;% dates Exercices Excel [ par gwen ] Bonjour, Dans le cadre de ma formation, je dois effectuer quelques exercices sur excel. Afin de savoir si je suis sur la bonne piste, je voudrais vous recupération de la date du jour [ par suzy26 ] J'ai crée des formulaires d'enregistrement, de modification et de suppression. Dans la cas d'un enregistrement, j'ai dans ma base de données un champs Jour de la date [ par Bruto ] Comment puis-je récupérer le jour d'une date de sorte que j'entre le 22/12/2003 et que je récupère Lundi ?Merci Bruto pB date!!! [ par elky ] Dans un report ASP j'affiche la différence entre les données du jour moins celles dela veille.Pour ce faire je sélectionne dans une liste la date de s Date bizarre [ par nickadele ] j'explique mon prob.j'ai une application asp sur une db access via un dsn ODBC, je navigue dans mes pages, je fait des ajouts d'enregistrements à ma b date et heure du jour dans un textbox d'une formview en asp.net [ par caudette ] bonjour,j'aimerai dans une formview avec plusieurs texbox affecté une date te heure du jour, à un autre texbox affecté le nom de l'utilisateur affecté recuperer date de mise a jour [ par akimodo ] AkimodoNewbieMaisPasPourLongtemps'lut,je voudrais indiquer la date de mise à jour des pages, la grosse partie des pages se trouve dans une base access Detailsview et Calendar [ par herve_labenere ] Bonjour,Je cherche à mettre à jour le champs date_prev_notif de ma table à partir de la date sélectionnée dans mon objet Calendar. - En faisant un Eva


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Photo aérienne de Montsoreau sur Loire 49 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,182 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)