IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Extraction données de la date


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Février 2007
    Messages
    51
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2007
    Messages : 51
    Par défaut Extraction données de la date
    Bonjour,


    Je suis nouveau sur le forum, et en programmation également.

    J'aimerais pouvoir extraire les informations de la date et heure par ex:

    6/02/2007 10:08:56 ---> affichage 060220071008

    Dim Reference As String
    Dim dt As String
    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As String
    Dim f As String

    dt = System.DateTime.Now
    a = Mid(dt, 1, 2)
    If a < 10 Then
    a = "0" + a
    End If
    b = Mid(dt, 3, 2)
    c = Mid(dt, 6, 4)
    d = Mid(dt, 11, 2)
    If d < 10 Then
    d = "0" + d
    End If
    f = Mid(dt, 15, 2)
    If f < 10 Then
    f = "0" + f
    End If
    Reference = a + b + c + d + f
    ajout.tb_reference.Text = Reference
    Mais j'ai toujours une erreur lorsque les minutes sont < à 10 par exemple10:08

    En fait l'affichage de l'heure se fait sans les "0" ...... 10:8 et donc le système doit verifier la condition avec une chaine "8:" et non pas 08 .

    Si quelqu'un a un moyen plus simple je suis preneur ou sinon un solution à ce problème.

    Merci d'avance, j'espère que tout ceci est lisible.

    Inforlab

  2. #2
    Expert confirmé
    Avatar de bidou
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Mai 2002
    Messages
    3 055
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Transports

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 055
    Par défaut
    par exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim dt As DateTime = DateTime.Now
            Dim strDT As String
            strDT = Format(dt.Day, "00") + Format(dt.Month, "00") + dt.Year.ToString + Format(dt.Hour, "00") + Format(dt.Minute, "00")
            Me.Text = strDT
        End Sub

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Février 2007
    Messages
    51
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Février 2007
    Messages : 51
    Par défaut
    Merci à toi

    inforlab

Discussions similaires

  1. Réponses: 12
    Dernier message: 20/05/2015, 17h15
  2. [XL-2007] Extraction données fichiers fermées avec notion de Date (VBA)
    Par romainarequipa dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/01/2015, 07h45
  3. Réponses: 8
    Dernier message: 02/09/2008, 14h28
  4. Extraction données d'une ArrayList
    Par Teb dans le forum Collection et Stream
    Réponses: 4
    Dernier message: 10/04/2006, 17h42
  5. interbase : types de donnés : AutoIncrement et Date ???
    Par delphien dans le forum Bases de données
    Réponses: 2
    Dernier message: 12/04/2004, 17h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo