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

Résolu
cs_mica94 Messages postés 11 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 2 février 2010 - 11 juil. 2005 à 10:20
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 11 juil. 2005 à 13:20
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

cs_mica94 Messages postés 11 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 2 février 2010
11 juil. 2005 à 10:49
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
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
11 juil. 2005 à 11:09
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
cs_mica94 Messages postés 11 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 2 février 2010
11 juil. 2005 à 11:57
Merci, effectivement c'est encore plus fiable !
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
11 juil. 2005 à 13:20
De rien !!

Christophe R.
0