Format date et heure [Résolu]

Signaler
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
-
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
-
Bonjour tout le monde

je souhaiterais un format date et heure pré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éffile.

7:35:12

D'aprez vous comment dois je proceder?

Mercie d'avance pour votre aide

Cordiallement

A bientôt

6 réponses

Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
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ôt
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
19 mai 2016

bonjour,
je pense avoir à peu prè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étermination de la date du jour

If Month(Now) = 1 Then
mois = "Janvier"
End If
If Month(Now) = 2 Then
mois = "Fé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û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écembre"
End If


lbDateJour.Caption = Day(Now) & " " & mois & " " & Year(Now)

Timer1.Interval = 1000 'fonction de l'heure système
Timer1_Timer

End Sub

Private Sub Timer1_Timer() 'composant Timer


lbHeure = Time 'fonction de l'heure systè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ème qui tourne en temps réel au format : 08:30:45
par contre je n'ai pas inscrit le jour correspondant avec la date, désolé.
si je trouve, je te recontacterai.
voilà, j'espère que ça te va.

bon courage et à bientôt.
Messages postés
80
Date d'inscription
lundi 23 août 2004
Statut
Membre
Dernière intervention
2 octobre 2006

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
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
pour la date, encore plus simple:

Date.Caption = format$(date,"dddddd")

Daniel
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
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éfillent pas.

Cordiallement

A bientôt
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
pour que les secondes défilent, il faut un Timer avec Interval = 1000

Private Sub Timer1_Timer()
Date.Caption = format$(Now,"dddddd hh:mm:ss")
End Sub

Daniel