Discussion :

[Gabrieel]

Bonjour,

j'essaie de calculer la date de livraison maximale d'un véhicule. un véhicule a une date de dispo x et a contractuellement 5 jour de délai pour être livré donc basiquement la date de livraison maximale = x+5. la petite astuce c'est que les délais sont en jours ouvrés j'ai donc fait ce code pour calculer ma date:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function DateMax(ByVal DateMAD As Date, lgDélai As Long) As Date
    For i = 1 To 5
 
       DateMAD = DateMAD + 1
       'On lance l'evaluation si on tombe sur un jourférié on skip au prochain jour
        Do While Not DatePart("w", DateMAD, vbMonday, vbFirstFourDays) > 5 Or EstFerie(DateMAD) = True
              DateMAD = DateMAD + 1
        Loop
    Next i
    DateMax = CDate(DateMAD)
 
End Function

le problème c'est que les données que je reçoit son abbérent. après avoir chercher c'est que dans mon access il les lit en anglais par exemple la date du 24/10/16 il prend ça pour le 16/10/2024

Code :

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

1
2
3
4
5
6
7
8
?datepart("w",#24/10/16#,vbmonday)
 3 
?year(#24/10/16#)
 2024 
 ?month(#24/10/16#)
 10 
?day(#24/10/16#)
 16

savez vous comment je sais faire pour lui dire de la lire les dates en français?

Merci de votre aide. je m'arrache les cheveux dessus depuis Vendredi

Merci d'avance

[Jean-Philippe André]

Salut,

caster une date en date ?

Code :

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

DateMax = DateMAD

fera largement l'affaire

[Gabrieel]

Salut,

caster une date en date ?

Code :

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

DateMax = DateMAD

fera largement l'affaire

merci de ton retour rapide , je enlever le cdate

parcontre tu sais comment expliquer ça?

Code :

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

1
2
3
4
5
6
7
8
?datepart("w",#24/10/16#,vbmonday)
 3 
?year(#24/10/16#)
 2024 
 ?month(#24/10/16#)
 10 
?day(#24/10/16#)
 16

[Jean-Philippe André]

Ecrire une date avec une annee sur 2 chiffres, c'est fondamentalement foireux
Je pencherai pour un format US des dates (annee/mois/jour)


Quelques lectures sur les dates
http://didier-gonard.developpez.com/...l-et-vba/#LIII

Regarde les solutions proposees en passant par Excel et Application.International
http://jpcheck.developpez.com/tutori...ional/#LIV-5-i

[nico84]

Bonjour,

En VBA j'utilise systématiquement les dates entre ' ça respecte les conventions locales paramétrées dans windows

Code :

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

SELECT top 1 year('4/10/14'), month('4/10/14') from matable

renvoie 2014, 10
Bizarrement je n'ai trouvé ça dans aucun tuto

[ClaudeLELOUP]

Bonjour Nico84,

:cool:

Préfère plutôt des doubles-quotes « " »