Initialisation de 2 DtPicker du 01 au 30 du mois précédent

[Résolu]
Signaler
Messages postés
11
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
2 février 2010
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Bonjour à tous,



je recherche un petit bout de code qui ne doit pas être très compliqué, mais je galère un peu.



J'vous essplik:



Dans une forme j'ai 2 DtPicker.

J'aimerais initialiser le premier au 01 du mois précédent, et le 2e au dernier jour du mois précedent.



Exemple:



On est le 11/07/05, je voudrais que mon DtPicker1 soit au 01/06/05, et mon DtPicker2 au 30/06/05.



Merci

4 réponses

Messages postés
11
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
2 février 2010

Ben en fait j'ai touvé, voici le code(il y a surement plus simple mais ça me suffit !)



Dim xmonth As Integer



Select Case (Month(Date) - 1)

Case 1, 3, 5, 7, 8, 10, 12

xmonth = 31

Case 2

xmonth = 29

Case Else

xmonth = 30

End Select





dtpick1.Month = Month(Date) - 1

dtpick1.Day = 1

dtpick1.Year = Year(Date)





dtpick2.Month = Month(Date) - 1

dtpick2.Day = xmonth

dtpick2.Year = Year(Date)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Autre solution prenant en compte les années bissextiles et gerant le cas ou on est au mois de janvier :

Dim D As Date,DD As Date, DF As Date
D = Date ' Date courante
DD = DateAdd("m",-1,D) ' Retrouve le mois précédent
DD = CDate("01/" & Month(DD) & "/" & Year(DD)) ' 1er jour du mois
DF = DateAdd("d",-1,DateAdd("m",1,dd)) ' Ajoute un 1 mois et retire 1 jour à la date de début pour avoir le derneir jour de ce mois
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
11
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
2 février 2010

Merci, effectivement c'est encore plus fiable !
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
De rien !!

Christophe R.