[VB6] Toutes les dates entre un interval dans un dynaset

**tim69000** · 10/04/2006, 13h57

Re bonjour,

J'ai encore un petit soucis.
J'aimerai avoir dans un dynaset toute les dates sous forme MM AAAA qui existe entre un interval donné, mais je ne sais comment faire.

Mon interval est donné sous forme DDDD MM AAAA pour le debut et la fin. Les jours n'étant pas a prendre en compte.

Merci de m'indiquer la bonne direction a prendre

**jmfmarques** · 10/04/2006, 13h59

Une question : comment écrirais-tu cette requête hors VB ?

Edit : A ta place, je regarderais, entre autres, l'exemple donnée dans l'aide en ligne sur Between (il correspond peut-être "pile-poil" !)

**tim69000** · 10/04/2006, 14h09

En fait, c'est juste que je ne sais pas quoi mettre dans le between pour qu'il compare. Ok je veux qu"il prenne tous qu'il y a dans l'interval mais avec quoi je vais le comparer pour ça? c'est ça que je n'arrive pas a voir

**jmfmarques** · 10/04/2006, 14h14

1) l'exemple de l'aide en ligne est parlant
2) si tu te moques des jours, : prends tout bêtement l'intervalle entre 01 mm aaaa et 01 mm + 1 aaaa !

>= 01 mm aaaa et < 01 mm1+1 aaaa1

**tim69000** · 10/04/2006, 14h17

Donc je suis obligé de faire une boucle et non grace a une requete

**jmfmarques** · 10/04/2006, 14h22

Donc je suis obligé de faire une boucle et non grace a une requete

Oh !

Relis tout et vas immédiatement voir dans l'aide en ligne !

**Megaxel** · 10/04/2006, 14h30

Pourquoi parles-tu de requête? Tu as une base de données et tu veux toutes les dates contenues dans ta base et qui se trouvent dans l'intervalle?

**tim69000** · 10/04/2006, 14h32

Non je ne veux pas celle qui sont dans ma base de données, sinon la requete est evidente.
Je veux recupérer dans un dynaset, toute les dates existantes dans mon interval sans prendre en compte les jours

ex : entre le 01/01/06 et le 08/01/06
01/06
02/06
03/06
04/06
05/06
06/06
07/06
08/06

**Megaxel** · 10/04/2006, 14h34

Allez, hop:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub fff()
    Dim Date1 As Date
    Dim Date2 As Date
    Date1 = DateSerial(2006, 1, 1)
    Date2 = DateSerial(2006, 1, 15)
 
    For d = Date1 To Date2
        MsgBox (CDate(d))
    Next d
End Sub

Stop!!! J'ai picolé à midi, j'ai écrit n'importe quoi...
Je corrige, et je reviens!!

**tim69000** · 10/04/2006, 14h37

ok et merci pour la boucle mais jmfmarques m'a fait comprendre que c'était possible de passer par une requete, donc j'essaye de trouver, sans succés pour le moment mais j'essaye.

**Megaxel** · 10/04/2006, 14h39

Voila:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub fff()
    Dim Date1 As Date
    Dim Date2 As Date
    Dim LastMonth As Integer
    Date1 = DateSerial(2006, 1, 3)
    Date2 = DateSerial(2006, 5, 15)
    LastMonth = 0
    For d = Date1 To Date2
 
        If LastMonth <> Month(CDate(d)) Then
            MsgBox (Format(CDate(d), "MM/YYYY"))
            LastMonth = Month(CDate(d))
        End If
    Next d
End Sub

**tim69000** · 10/04/2006, 14h51

Je pense que passer entierement par une requete est mieux même si t'as methode marche et que pour le moment je n'ai pas trouver le moyen que jmfmarques doit avoir en tete.

**jmfmarques** · 10/04/2006, 14h58

En tête ?
Oui, pour sur :
Tu connais les bornes (ex 10 02 1966 et 29 08 1980)
ta requete doit donc se faire ainsi :
Where champ_date >= 01 02 1966 And champ_date < 01 09 1980

puisque tu ne veux pas t'occuper des jours, pour le considérer que les mois !

**tim69000** · 10/04/2006, 15h02

oui mais en fait, mon probleme c'est que je n'ai pas de 'champ_date' . J'ai juste les bornes

**jmfmarques** · 10/04/2006, 15h06

Ouille !
Je commence à comprendre : tu ne cherches pas parmi des articles existants mais tu veux générer des dates entre 2 bornes ? ... ou alors je ne comprends plus rien , là !...

:

**AlainTech** · 10/04/2006, 15h06

Je pense que tim69000 veut récupérer TOUTES les dates existant entre 2 limites.

Rien à voir, donc, avec une requête.

Quant à savoir pourquoi il veut mettre cette liste de dates dans un Dynaset... Non lo so...

**jmfmarques** · 10/04/2006, 15h08

No lo sé tampoco ! ni la menor idea !
(voir mon message précédent ... de surprise !)

**Megaxel** · 10/04/2006, 15h08

Alors là: c'est la première question que j'ai posée...
Comme quoi, il me reste encore une once de lucidité...

**tim69000** · 10/04/2006, 15h13

C'est exactement ce que je veux faire.
Quand a l'idée de les mettre dans un dynaset, c'est tout simplement parce que j'ai mon programme qui est entierement fait avec les dates qui sont dans un dynaset donc si je pouvais les mettre dedans, je n'aurais rien de + a toucher

C'est pour ça que je n'arrivai pas a faire sous forme de requete comme me le conseillait jmfmarques, je pouvait tjs chercher. Dans ce cas la, si ce n'est pas possible, je vais opté pour la boucle de Megaxel qui me semble marchait nickel.

Merci de vous etre penché sur mon probleme et si vous pensez avoir une meilleur solution que celle deja donnée, j'accepte avec plaisir

[VB6] Toutes les dates entre un interval dans un dynaset

VB 6 et antérieur

Discussions similaires

Partager

Partager