[Access] VB Calcul de date...

VB Calcul de date... [Access] - SQL/NoSQL - Programmation

Marsh Posté le 02-07-2002 à 18:51:49    

Voila j'ai un pb dans un calcul de date:
J'ai des dates au format numérique :
 je stocke ma valeur du jour dans un champ numéric jour
                        mois ----------------------mois etc...
Voila mes questions :
Comment faire pour qu'à partir de mes champs numéric j'ai un seul champ date?
J'ai essayé de faire un truc du genre  
Dim toto as Date
toto= Cdate(jour) & Cdate (mois) & Cdate(annee)
 
Mais ca marche po :cry:
 
Ensuite comment faire des opérations absolues sur des dates? ya t'il une fonction?
 
:jap:

Reply

Marsh Posté le 02-07-2002 à 18:51:49   

Reply

Marsh Posté le 03-07-2002 à 13:21:53    

Ca devrait t'aider
 


Function test() As String
    Dim j As Integer, m As Integer, a As Integer
    Dim toto As Date
     
    j = 12
    m = 6
    a = 2002
     
    toto = CDate(j & "/" & m & "/" & a)
 
    Debug.Print toto
     
    ' ajoute 3 mois à toto
    toto = DateAdd("M", 3, toto)
     
    Debug.Print toto
     
    ' enlève 6 jours à toto
    toto = DateAdd("d", -6, toto)
     
    Debug.Print toto
     
End Function


 
A+

Reply

Marsh Posté le 03-07-2002 à 13:42:23    

merci :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed