begin process at 2012 02 05 02:14:23
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date/Heure

 > TROUVER LE NUMERO DE LA SEMAINE

TROUVER LE NUMERO DE LA SEMAINE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date/Heure Classé sous :trouver, numéro, semaine, obtenir, date Niveau :Débutant Date de création :21/06/2001 Vu :25 571
Auteur : JEROMAX

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

 Description

cette fonction permet de trouver le numero de la semaine de l'année.
Elle prend juste la date en parametre.

Par contre je veux bien un renseignement si quelqu'un l'a:
quelle est la regle des numeros de semaine?
c'est a dire quand commence la semaine 1 ?
comment on peut savoir (sans parler programmation) si on est dans la semaine 1 ou la semaine 52 de l'annee d'avant?
dans cette fonction, j'ai pris en compte que le 5 jours de l'annee devait etre dans la premiere semaine, c.a.d. qu'il y a au moins 3 jours ouvré dedans. Mais je ne sais pas si c'est une regle bien definit, parce qu'apparement il n'y aurait pas de regle fixée...

jeromax@webmails.com

Source

  • <%
  • Function NumSemaine(UneDate)'renvoie le numéro de la semaine en fonction de la date rentrée
  • sem = CInt(DateDiff("ww", "05/01/" & Year(UneDate), UneDate, vbMonday, vbfirstweek)) + 1
  • If sem = 0 And (Weekday(UneDate) = 2) And Month(UneDate) = 1 Then
  • sem = 1
  • Else
  • If sem = 0 Then
  • sem = CInt(DateDiff("ww", "05/01/" & Year(UneDate), "31/12/" & Year(UneDate), vbMonday, vbFirstFullWeek)) + 1
  • End If
  • End If
  • NumSemaine = sem
  • End Function
  • %>
  • Le numero de la semaine courante est <%=NumSemaine(date())%> 
<%
Function NumSemaine(UneDate)'renvoie le numéro de la semaine en fonction de la date rentrée
	sem = CInt(DateDiff("ww", "05/01/" & Year(UneDate), UneDate, vbMonday, vbfirstweek)) + 1
	If sem = 0 And (Weekday(UneDate) = 2) And Month(UneDate) = 1 Then
		sem = 1
	Else
		If sem = 0 Then
			sem = CInt(DateDiff("ww", "05/01/" & Year(UneDate), "31/12/" & Year(UneDate), vbMonday, vbFirstFullWeek)) + 1
		End If
	End If
	NumSemaine = sem
End Function
%>
Le numero de la semaine courante est <%=NumSemaine(date())%>



 Sources du même auteur

PROTECTION DE PAGE GRACE AUX VARIABLES SESSIONS
LISTE DES VARIABLES SERVEUR
Toutes les sources de JEROMAX

 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 Source .NET (Dotnet) GRIDVIEW DATE PICKER JAVASCRIPT par fredzool
CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel

Commentaires et avis

Commentaire de timour9 le 01/04/2004 12:07:26

Mr Mask, merci pour la fonction datepart() (avec option WW) elle m'est bien utile. Sinon concernant le script de JEROMAX...et bien, étant donné l'existence de la fonction il n'a pas vraiment d'utilité mais il permet d'apprendre l'ASP en s'amusant je trouve (enfin c'est mon avis). Cependant, j'ai remarqué que le numéro de semaine obtenu avec le script de JEROMAX n'était pas identique à celui retourné par la fonction datepart()...ce dernier étant correct

Commentaire de Benz le 03/01/2005 11:19:11

Salut,

La norme ISO pour déterminer les numéros de semaine semble indiquer que la première semaine d'une année doit comporter au moins 4 jours dans le mois.
C'est à dire que si le 1 janvier est un samedi ou un dimanche, la semaine du premier janvier est la dernière semaine de l'année d'avant.

Pour ma part je croyais que la semaine du 1er janvier était toujours la première semaine de l'année.

(On considère une semaine qui commence le lundi et se termine le dimanche).

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

obtenir les jours correspondants au numero de la semaine... [ par jcohen ] Bonjour à tousVoila je réalise un planning en ASP. Je voudrais, afficher le numéro de la semaine (ca c'est bon) et les jours correspondants à ce numér ASP : récuperer une date apartir le numéro et l'année de une semaine [ par abari ] bonjour,comment r&#233;cuperer une date d'une seamine a partir de num&#233;ro et l'ann&#233;e de cette semaine en aspmerci infiniment de votre aide trouver les date de debut et de fin a partir d'un numero de semaine [ par kulinicm ] salut,j'ai un probleme je n'arrive pas a trouver les date de debut et de fin d'un semaine a partir du numero de cette semaine ainsi que de l'annee.qq' date et numéro de semaine [ par benamb ] Bonjour, que penses que la question a deja etait vu et revu , mais peut etre que cela a evolué !!! Je m'explique grace a un calendrier je recupere un Date de la semaine [ par ghanmi04_05 ] Salut tout le mobdecomment je peux récupérer la numéro de la semaine du mois?en c# svp.merci 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 Obtenir N° version [ par ranouf ] langage : C# Bonjour,J'ai eu l'occasion de trouver dans les options un numérateur automatique de compilation. Est ce que vous pourriez m'indiquer Date [ par chuck66 ] Bonjour,Je voudrais afficher dans une ligne de tableau les dates de la semaine en cours:Semaine du... au... Lundi... Mardi... etcComment faire?Merci date de la semaine [ par theval ] Bonjour,Je trouve le numéro de la semaine avec cette fonction:semaine = DatePart("ww",date())Ca me donne donc le chifffre de la semaine. Est-ce que c' Trouver tous les Lundi entre deux date [ par glidez ] Bonjour,je souhaite trouver une solution pour trouver tous les lundi (ou autre jour d&#233;fini) entre deux date. En fait, plus qu'un datediff il me f


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Framed Landscape Image of Monument Valley
Photo Cimenterie de Port-la-Nouvelle, 11210 

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 : 1,076 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)