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

Question

Bonjour &#224; tous,



je recherche un petit bout de code qui ne doit pas &#234;tre tr&#232;s compliqu&#233;, mais je gal&#232;re un peu.



J'vous essplik:



Dans une forme j'ai 2 DtPicker.

J'aimerais initialiser le premier au 01 du mois pr&#233;c&#233;dent, et le 2e au dernier jour du mois pr&#233;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

cs_mica94 · Accepted Answer

Ben en fait j'ai touv&#233;, voici le code(il y a surement plus simple mais &#231;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)

crenaud76 · Answer

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

cs_mica94 · Answer

Merci, effectivement c'est encore plus fiable !

crenaud76 · Answer

De rien !!

Christophe R.

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

4 réponses

Discussions similaires