[A-07]: ajouter une valeur à une Date

Version imprimable

02/03/2009, 16h55
amazon

[A-07]: ajouter une valeur à une Date

Bonjour

Quelle est la méthode la plus sure pour ajouter un nombre de jours à une date?

01/03/2009 + 28

Merci
02/03/2009, 16h57
Pierre Fauconnier

Bonjour

Faire comme tu le proposes. Les dates sont des valeurs numériques ayant le jour comme unité. Dès lors, une date + 18 ajoute te fait avancer de 18 jours.
02/03/2009, 17h19
amazon

Merci

Mais j'ai une erreur 13 "Type donnée incompatible" quand l'application est utilisée sur certain PC mais pas tous
02/03/2009, 17h29
Pierre Fauconnier

Il faudrait montrer le code utilisé, et s'assurer du type de la variable ou du champ utilisé

Ci joint le code

C'est sur la ligne " !WorkDueDate = Me.EVDate + Me.WorkPeriod" qui a un problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim TechnicalData As DataBase
Dim rst As Recordset
Set TechnicalData = CurrentDb
Set rst = TechnicalData.OpenRecordset("TWork")
    With rst
        .AddNew
        !WorkDescription = Me.WorkDescription
        !WorkDueDate = Me.EVDate + Me.WorkPeriod
        !WorkEqID = Me.ListEq
        !WorkCreatorID = Me.WorkCreatorID
        !WorkRespID = Me.CbTec
        !WorkStatus = 10
        !WorkRecurrent = Me.WorkRecurrent
        !WorkPeriod = Me.WorkPeriod
        !WorkCreationDate = Format$(Now, "dd/mm/yy")
        .Update
    End With
    rst.Close

Avec Me.EVDate qui a un format Date et Me.WorkPeriod qui a un format Nombre

02/03/2009, 17h49
Pierre Fauconnier

Et !WorkDueDate, quel est son type?

Si la réponse est Date, il faut vérifier les valeurs qui sont passées.

Dans le cas qui plante, quelles sont les valeurs des variables?

Salut,

peut-être avec:
Code:

1 2 3 ... !WorkDueDate = CDate(Me.EVDate) + Me.WorkPeriod ...
A+

03/03/2009, 15h55
amazon

Bonjour

WorkDueDate est aussi en format Date/Time

Le problème se pose quand l'application fonctionne avec Access RunTime

Est-ce qu'il n'y aurai pas un problème de référence à un Library?
03/03/2009, 16h22
Invité

Bonjour

Plutôt que faire l'addition, regardes du coté de la fonction DateAdd, plus de détails dans cet article : Les Fonctions Date/Heure

Philippe