format date et heureRésolu

Question

Bonjour tout le monde

je souhaiterais un format date et heure pr&#233;cis

Voici le code que j'ai mis dans le timer et form_load.

Heure.Caption = Time$
Date.Caption = Day(Now) & " - " & Month(Now) & " - " & Year(Now)

Je souhaiterais le format pour la date comme ci dessous:

Vendredi 11 mars 2005

Pour l'heure je souhaiterais comme ci dessous avec les secondes qui d&#233;ffile.

7:35:12

D'aprez vous comment dois je proceder?

Mercie d'avance pour votre aide

Cordiallement

A bient&#244;t

developvbdebut · Accepted Answer

Bonjour tout le monde

Ca marche tres bien, mercie.

Voicie le code que j'ai mis dans form_load

heure.Caption = Format(Now, "hh:mm:ss")
date.Caption = Format$(Now, "dddddd")
Timer1.Interval = 1000

Cordiallement

A bient&#244;t

cs_momo49800 · Answer

bonjour,
je pense avoir &#224; peu pr&#232;s le code que tu recherche ; je vais te mettre ce que j'ai fais ds un de mes programmes :

Private Sub Form_Load()


Dim mois As String


'D&#233;termination de la date du jour
    
    If Month(Now) = 1 Then
        mois = "Janvier"
    End If
    If Month(Now) = 2 Then
        mois = "F&#233;vrier"
    End If
    If Month(Now) = 3 Then
        mois = "Mars"
    End If
    If Month(Now) = 4 Then
        mois = "Avril"
    End If
    If Month(Now) = 5 Then
        mois = "Mai"
    End If
    If Month(Now) = 6 Then
        mois = "Juin"
    End If
    If Month(Now) = 7 Then
        mois = "Juillet"
    End If
    If Month(Now) = 8 Then
        mois = "Ao&#251;t"
    End If
    If Month(Now) = 9 Then
        mois = "Septembre"
    End If
    If Month(Now) = 10 Then
        mois = "Octobre"
    End If
    If Month(Now) = 11 Then
        mois = "Novembre"
    End If
    If Month(Now) = 12 Then
        mois = "D&#233;cembre"
    End If


    lbDateJour.Caption = Day(Now) & " " & mois & " " & Year(Now)
    
    Timer1.Interval = 1000      'fonction de l'heure syst&#232;me
    Timer1_Timer
    
End Sub

Private Sub Timer1_Timer()       'composant Timer


    lbHeure = Time              'fonction de l'heure syst&#232;me
    lbHeure.Refresh
    
End Sub

avec ce que j'ai inscrit j'obtiens dans un label la date au format par exemple : 11 Mars 2005
et dans un autre label l'heure syst&#232;me qui tourne en temps r&#233;el au format : 08:30:45
par contre je n'ai pas inscrit le jour correspondant avec la date, d&#233;sol&#233;.
si je trouve, je te recontacterai.
voil&#224;, j'esp&#232;re que &#231;a te va.

bon courage et &#224; bient&#244;t.

sensosofttunisiee · Answer

Salut,
Je te propose une solution tres courte et plus efficace

Heure.caption = format ( now, "hh:mm:ss")
Date.caption = format(date,"dddd dd mmm yyyy")

et c'est tout tu va obtenir le format que tu recherche
 Bonne chance

JamJam

Gobillot · Answer

pour la date, encore plus simple:

Date.Caption = format$(date,"dddddd")

Daniel

developvbdebut · Answer

Bonsoire tout le monde

Mercie pour vos conseilles

Pour la date j'ai fais comme ci-desous et sa fonctionne

Date.Caption = format$(Now,"dddddd")

L'heure s'affiche mais les seconde ne d&#233;fillent pas.

Cordiallement

A bient&#244;t

Gobillot · Answer

pour que les secondes d&#233;filent, il faut un Timer avec Interval = 1000

Private Sub Timer1_Timer()   
    Date.Caption = format$(Now,"dddddd  hh:mm:ss")
End Sub

Daniel

Format date et heure

6 réponses

Discussions similaires