Calcul sur la date

Résolu
cs_Djumb Messages postés 8 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 17 octobre 2006 - 17 oct. 2006 à 17:04
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 18 oct. 2006 à 08:41
bonjour tout le monde,

Je cherche quelque chose de basic sur le principe mais j'ai un êu de mal à le réaliser.

Je voudrais tout simplement ajouter par exemple 15min à la date et heure actuelle et avoir le résultat.

Quelqu'un connait-il une fonction qui fait cela ou alors qui peut m'aiguiller un peu.

Merci d'avance tout le monde

3 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
17 oct. 2006 à 17:41
Salut,
il te faut utiliser la fonction DateAdd avec le bon interval.
Dim Heure15 As Date 
Heure15 = DateAdd("n", 15, Time) 
MsgBox Heure15 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

Les autre style d'interval sont dicit MSDN
yyyy, Année, ----
q, Trimestre, ----
m, Mois, ----
y, Jour de l'année, ----
d, Jour, ----
w, Jour de la semaine, ----
ww, Semaine, ----
h, Heure, ----
n, Minute, ----
s, Seconde

@+,   Ju£i?n
3
cs_Djumb Messages postés 8 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 17 octobre 2006 1
17 oct. 2006 à 17:52
ok la tu ajoutes 15minutes mais si tu es à 23h55 et que tu ajoutes 15min on passe au jour suivant est ce que cette commande ajoute automatiquement une journée à la date qu'il retourne? (désolé pas eu le temps de tester ton exemple)
0
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
18 oct. 2006 à 08:41
Re,

Si tu n'as toujours pas eu le temps de testé, je te dirais que cet exemple précis ne possède pas la date mais seulement l'heure.

En revanche ceci possèce bien la date et ajoute seule le jour
Dim Heure15 As Date 
Heure15 = DateAdd("n", 15, "18/10/206 23:59:54") 
MsgBox Heure15 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n
0
Rejoignez-nous