Connexion

Recuperer le numero de la semaine

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 25/03/2006 23:36:20 et initié par EBArtSoft [Liste]
Vue : 12017
Catégorie(s) : Maths
Langages dispo pour ce code :
- VB6, VBA
- PHP 3, PHP 4, PHP 5
- C# 1.x, C# 2.x
- VB6
- VB 2005, VB.NET 1.x
- C# 1.x, C# 2.x
- VB6, VBA
- Voir tous les langages pour ce code snippet

Proposer ce code dans un autre langage

Ajouter aux favoris Code Snippet pour Visual Studio 2005

Snippet VS 2005 (VB)

Langage : VB6
Date ajout : 30/04/2006
Posté par Gobillot [Liste]


 Public Function NumeroSemaine(dateSemaine As Date) As Integer
     NumeroSemaine = DatePart("ww", dateSemaine, vbMonday, vbFirstFourDays)
     If NumeroSemaine > 52 Then
        If DatePart("ww", dateSemaine + 7, vbMonday, vbFirstFourDays) = 2 Then
           NumeroSemaine = 1
           End If
        End If
 End Function

Les Snippets

Rechercher :

Par langages :

Par Catégorie

Compteurs

Recuperer le numero de la semaine