Comment définir le format hebdomadaire pour le contrôle DTPicker?

Question

Utilisation de VB 6

Am en utilisant le contrôle DTPicker, Dans ce que je veux afficher toutes les semaines comme

01/07/2009, 08/07/2009, 15/07/2009 so on…, 

Si je choisissais une date après le 01/07/2009, il devrait afficher 08/07/2009 , si je choisis une date après le 08/07/2009, il devrait afficher 15/07/2009.
Si je choisis une date avant le 01/07/2009, il faut afficher 25/06/2009, si je choisis une date avant le 08/07/2009, elle devrait afficher 01/07/2009

Je veux afficher une date.

Besoin d'aide sur le code VB 6.

Answer 1

Essayez cette (DTPicker1 devrait être remplacé par le nom de votre contrôle DTPicker):

Private Sub DTPicker1_CloseUp() 
    DTPicker1.Value = DateAdd("d", 7 - DTPicker1.DayOfWeek, DTPicker1.Value) 
End Sub