formatage date

Bonjour

Une question concernant le formatage des date
Lorsque l'on souhaite convertir un string en date, comment indiquer au programme le format de la date.

ex: "12 01 06"

Comment spécifier au programme qu'il s'agit du 12 janvier 2006 ou du 1 décembre 2006 ou encore du 6 janvier 2012 sans tenir compte des paramêtres régionaux et sans décomposer caractère par caratère le string ?

Merci

Salut,

Tu peux faire ça :

Dim sboub As String
sboub = "12 01 06"
MsgBox CDate(sboub)

Là, tu auras en réponse     12/01/2006            et c'est par rapport à tes paramètres régionaux.
Je ne connais pas d'autres techniques pour ce que tu veux faire, mis à part rechercher caractère par caractère.

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement

Bonjour,

Tu peux essayer la fonction "Format"

Exemple :
Dim VarCal as Decimal
VarCal = 3.1415926
TextBox1.Text = Format(VarCal, "0.00")   affiche 3.14

Il existe plusieurs formats valables pour les dates mais je ne les connais pas très bien,
n'ayant pas encore eu besoin de les utiliser. Regarde dans l'aide.

Bon(nes) courage, développement, salutations... (choisissez ce qui vous convient) dp

Bien vu dp_favresa,

NewValeur = Format(OldValeur, "DD/MMMM/YYYY")

Tu met ce que tu veux. par ex, DDDD/MMMM/YY ou DD/MM/YY etc...

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement

La fonction Format permet de convertir une variable de type Date en variable de type String avec un Format defini.
Ce que je veux faire c'est le contraire: forcer le format (passer outre les parametres regionaux) dans la convertion d'un string vers un type date.

tout dépend de la facon dont ta chaine de départ est formattée...
tu auras plus ou moins de travail.

je recommande vivement l'utilisation du format dd-mm-yyyy qui sera reconnu quelques soient les parametres regionnaux...

une autre facon de faire, est d'utiliser la fonction DateSerial, une fois le découpage D / M /Y effectué par tes soins.

Mortalino :
   il vaux mieux ne pas utiliser
        NewValeur = Format(OldValeur, "DD/MMMM/YYYY")
   mais bien utiliser les paramètres regionnaux de l'utilisateur :
        NewValeur = Format(OldValeur, "Short Date")
        ou bien :
        NewValeur  = FormatDateTime(OldValeur, vbShortDate)


Renfield
Admin CodeS-SourceS- MVP Visual Basic

J'ai trouvé aussi la fonction ParseExact :

    Dim DateJour As String
    Dim DateStr As String
    Dim provider As IFormatProvider

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DateStr = "12 06 05"
        '   ATTENTION : respecter le format de la date dans les paramètres de ParseExact
        TextBox1.Text = DateTime.ParseExact(DateStr, "dd MM yy", provider, DateJour)

    End Sub

Voir à : http://msdn2.microsoft.com/en-us/library/ms131044(d=ide).aspx

Bon(nes) courage, développement, salutations... (choisissez ce qui vous convient) dp

ah, j'avait pas vu que c'était en .Net ^^, dsl

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Salut Renfield,

Et bien merci pour ces précisions, je reconnais que des fois je me fais chi** à utiliser la méthode DD MM YYYY.
Je pense que ce que tu m'as proposé avec les constantes :

>ou bien :
>        NewValeur  = FormatDateTime(OldValeur, vbShortDate)

sera plus 'conventionnel', respectant ainsi les paramètres utilisateurs.
 Surtout qu'on y pense pas, mais ça m'embêterai de choisir un type d'affichage, et qu'on me le change par dessus.
Il faut effectivement se mettre à la place des Utilisateurs..

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement

Idem Renfield !

Désolé !

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement