VB convertion date

Bonjour,

Voilà j'ai une colonne qui comporte des dates. Le probléme est que ces dates sont sous cette forme :
02/23/2009 02:00:00 PM ou 02/24/2009 00:00:00 AM

Je voudrai sqavoir si il existe une fct pour convertir ces dates en formats francais ... enfin..... en format normale !!!! :)
(j'utilise donc le VB)

Merci
Configuration: Windows XP
Internet Explorer 7.0

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. Yop,

    Hmmm..
    En faite dans ma colonne j'ai déjà des dates. Ces date sont sous cette forme :
    02/25/2009 04:27:52:021 PM
    02/24/2009 03:50:00:538 AM

    J'aimerai en faite convertir ces dates sous cette forme :
    02/25/2009 16:27:52
    02/24/2009 03:50:00

    ce code :
    format(Now, "dd/mm/yyyy hh:mm:ss") 

    nous donne la date, et le l'heure actuel du systéme et donc ne converti pas mes dates ...

    Merci
    1. Bonjour,

      Voici une variante :

      Ma date = format(date,"dd-mm-aaaa")

      Cordialement
      1. euuuhhh

        La colonne qui comporte les date est la n°1:

        Je fais donc
        Cells(1, 1) = format(Date, "dd/mm/yyyy ") ??
        Le probléme est que je récupére JUSTE la date mais pas l'heure , les min et les sec .

        Merci+
        1. Re

          Cells(1, 1) = format(Now, "dd/mm/yyyy hh:mm:ss")
        2. comment changer le format du date de 14/01/2001 vers 14012001
      2. eeuuhh,

        Pour faire avancer le schmilblick, une solution SQL à enrichir pour manipuler les heures, minutes, etc ...

        Utilisation des fonctions left et mid afin d'éviter les "/"

        SELECT <Fichier>.<Champ_date>, Left([<Champ_date>],2.1) & Mid([<Champ_date>],4,2) & DatePart("yyyy",[<Champ_date>]) AS Ddate, DatePart("yyyy",[<Champ_date>]) AS Millésime
        FROM <Fichier>
        ORDER BY <Fichier>.<Champ_date>;

        Cordialement
        La science ne fait que trouver ce qui existe depuis toujours.
        REEVES Hubert.
        1. Contributeur
          Heuuu, puisque tu fais remonter ce topic...
                Ma date = format(Now,"dd/mm/yyyy hh:mm:ss")

          A+