Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Date semaine en vb2005 express

Date semaine en vb2005 express

2 réponses
Avatar
Jo
Bonjour a tous,

Je souhaiterais afficher une liste dans un combobox des semaines du lundi au
samedi
(exemple: semaine du lundi ---- au samedi ------)
mais je ne sais pas comment faire et par ou commencer si quelqu'un avait une
idée ou exemple
merci de votre aide
Jo
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles TOURREAU [MVP]
"Jo" a écrit dans le message de
news:
Bonjour a tous,

Je souhaiterais afficher une liste dans un combobox des semaines du lundi
au samedi
(exemple: semaine du lundi ---- au samedi ------)
mais je ne sais pas comment faire et par ou commencer si quelqu'un avait
une idée ou exemple
merci de votre aide
Jo




Bonjour,

J'aurais fait quelque chose comme çà :

Dim lundi As DateTime
Dim samedi As DateTime

lundi = New DateTime(2008, 1, 1)
While lundi.DayOfWeek <> DayOfWeek.Monday
lundi = lundi.AddDays(1)
End While

Do
samedi = lundi.AddDays(5)
AjouterDansCombo(lundi, samedi)
lundi = lundi.AddDays(7)
Loop Until lundi.Year <> 2009

Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Avatar
Jo
bonsoir Gilles,
excellent tous a fait ce que je recherchais
J'ai adapter a mes besoin je voulais que la première semaine afficher
soit la date de la semaine suivante au lancement du logiciel
Dim lundi As DateTime
Dim samedi As DateTime
lundi = New DateTime(Today.Year, Today.Month, Today.Day)
While lundi.DayOfWeek <> DayOfWeek.Monday
lundi = lundi.AddDays(1)
End While
Do
samedi = lundi.AddDays(5)
Me.SemaineStripComboBox.Items.Add(lundi & " au " & samedi)
lundi = lundi.AddDays(7)
Loop Until lundi.Year = Today.Year + 1

avez vous put tester l'erreur sur le logiciel que je vous ai envoyé ?

merci
Cordialement
Jo

"Gilles TOURREAU [MVP]" a écrit dans le message de
groupe de discussion :
"Jo" a écrit dans le message de
news:
Bonjour a tous,

Je souhaiterais afficher une liste dans un combobox des semaines du lundi
au samedi
(exemple: semaine du lundi ---- au samedi ------)
mais je ne sais pas comment faire et par ou commencer si quelqu'un avait
une idée ou exemple
merci de votre aide
Jo




Bonjour,

J'aurais fait quelque chose comme çà :

Dim lundi As DateTime
Dim samedi As DateTime

lundi = New DateTime(2008, 1, 1)
While lundi.DayOfWeek <> DayOfWeek.Monday
lundi = lundi.AddDays(1)
End While

Do
samedi = lundi.AddDays(5)
AjouterDansCombo(lundi, samedi)
lundi = lundi.AddDays(7)
Loop Until lundi.Year <> 2009

Cordialement

--
Gilles TOURREAU - MVP C#


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr