CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 13:10:31

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[VISUAL STUDIO 2010] LES TESTS CASES C'EST BIEN, MAIS JE VAIS DEVOIR TOUT RééCRIRE ? par Etienne Margraff

MVP[GRIBOUILLON].ADDYEAR par Gribouillon

RE : SELECTIONNER UN éLEMENT UNIQUE DANS UNE DROPDOWNLIST par ggtry

MVC PROBLEME VIEWDATA / BEGINFORM par WiDOC

RE : LIGHTVIEW ET "INCULDE FILE" par Darktruff

LIGHTVIEW ET "INCULDE FILE" par Darktruff

RE : ACHETER SQL SERVER 2008 WEB EDITION par bmouget

+ de logiciels à télécharger

1 464 212 membres
119 nouveaux aujourd'hui
15 044 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 302 795 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DATE AVEC LE DECALAGE HORAIRE,

Information sur la source

Catégorie :Date/Heure Classé sous : date, décalage, horaire, jour, day Niveau : Débutant Date de création : 24/05/2005 Vu : 16 404

Auteur : tidave

Site perso

Ecrire un message privé

Note :

3,00 / 10

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

COMPTEUR DE VISITE ,GERE ONLINE ET VISITE ET AFFICHE LE NOM ...

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

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

CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97

CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES par jessie

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