[VBA-E]Tronquer une DATE

**Pitoux** · 16/05/2006, 20h47

J'ai pas le fichier EXCEL sur moi.
Je test cela demain matin et je vous tiens au courant

1000 Merci pour votre aide.
Bonne soirée a vous

Laurent

**Elstak** · 17/05/2006, 08h39

- ELSTAK ( a qui j'ai envoyé le fichier)

T'es vraiment qu'une sale balance

pour info j'ai rien trouvé de plus jvoulais juste tester ma solution sur son fichier

**Vesta** · 17/05/2006, 08h45

Et simplement...

Code :

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

1
2
 
extrac_dates=split(extrac_dates," ")(0)

12/05/2006 14:14:54
donnerai ca 12/05/2006
c'est tout ce kil faut

**AlainTech** · 17/05/2006, 12h36

On en est à 63 messages pour un problème simple!

N'aurait-on pas oublié ceci:

Envoyé par AlainTech

Essaye ça:

Code :

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

1
2
3
4
5
Sub test()
  Dim extrac_date As Date
  extrac_date = "12/05/2006 14:14:54"
  MsgBox Int(extrac_date)
End Sub

???

En VB, une date est exprimée par un nombre. La partie entière détermine le jour et la partie décimale, les portions de jour (h, m et s).
Il suffit de prendre la partie entière pour ne garder que le jour.

**Vesta** · 17/05/2006, 16h24

Alain ca ne rique pas d'arondir a l'unité sup?

**ouskel'n'or** · 17/05/2006, 16h48

Hello Alain,
Je sais que tu es le meilleur mais ma méthode à moi... elle fonctionne aussi

Code :

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

1
2
3
4
5
6
 
Sub MonTestAmoi()
Dim extrac_dates
    extrac_dates = "12/05/2006 14:14:54"
    MsgBox Format(CDate(extrac_dates), "dd/mm/yyyy")
End Sub

L'avantage étant que Vesta pourra dormir tranquile

puisqu'il n'aura plus à poser de question d'arrondi sup ou inf.

A+

N'empêche que Pitoux, il pourrait se manifester qu'on serait tous bien content

**Vesta** · 17/05/2006, 18h18

La mienne aussi lol

une ligne en plus

Code :

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

Split(extractdate, " ")(0)

**AlainTech** · 17/05/2006, 22h49

Je sais qu'il y a plein de manière d'y arriver mais celle que je propose est celle qui est la plus optimisée.

Ceci dit, je ne revendique rien mais on oublie souvent qu'une date est un nombre en VB.

De plus, ayant fait le test sur une chaine dont le jour est <= 12, je n'ai pas l'effet "date américaine".