Date longue et heure

Question

Bonjour,

Je voudrais savoir si une personne pourrai m'aider à résoudre un petit problème.

Je voudrais savoir si il y a la possibilté en automatique de mettre la date longue et l'heure dans le caption d'une form en prenant en compte le caption de la form ? Calcul de ma chaine caption form et calcul chaine date et heure, repositionnement dans la caption form gauche pour mon caption et droite pour ma date et heure.Un centrage automatique en fait
Exemple :

Caption de ma form avec date et heure 
"Toto est en vancances                           Vendredi 15 Décembre 2006  12:50:20 "

Merci à tous pour votre aide
A+
Exploreur

cs_casy · Answer

Pas en automatique.
Faut le faire à la main toutes les secondes (pour raffraichir). Et le centrage aussi à la main en mettant autant d'espaces que necessaire.

Parcontre tu as la possibilité de rajouter une StatutBar en bas de la feuille, où là il peut y avoir la date et l'heure gérées automatiquement.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Dans ton Form Load, 

Timer1.Enabled = True

dans ton timer (avec l'interval à 1000 ms) : 

NomForm.Caption = format(Date, "dddd dd mmmm yyyy") & " " & format(Date, "hh:mm:ss")

++

Renfield · Answer

on preferera 
FormatDatetime(Now, vbLongDate) & " " & FormatDatetime(Now, vbLongTime)

qui va tirer le format a utiliser des parametres regionnaux de l'utilisateur

d'autre part, 
format(Date, "hh:mm:ss")

est faux : Date (issu de DateTime.Date) ne contient que la date, tu vas te retrouver avec "00:00:00"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Bonjour,

Déjà merci à tous de vous être penchés sur mon "problème"

Casy >> Je me doutais un peu, que cela n'était pas possible en automatique, et qu'il faut mettre des espaces en prenant en compte le jour le plus long ainsi que le mois.

Mortalino >> Le code que tu me donne, c'est ce que je fait en partie(remarque de Renfield) dans mon source "Expédition..N° de bl"


Renfield >> Merci pour tes informaions, c'est cool d'apprendre de nouvelles routines d'utilisation FormatDate....On en apprend tous les jours !


Merci à tous et c'est un plaisir de discuter avec vous

Renfield · Answer

la police utilisée dans le titre n'est bien souvent pas a chasse fixe....
en clair, le nombre d'espace utilisé ne peux garantir que ta date sera affichée toujours au même endroit, quelque soit la partie 'Titre' de ton Caption.

le seul moyen d'être sur de ce placement, c'est de dessiner le Caption toi-même ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic

mortalino · Answer

Oui désolé, c'est Now qui prend et la date, et l'heure.

Mais la syntaxe de Renfield est plus correct  !

cs_Exploreur · Answer

Renfield,

J'ai peut-être une solution mais je ne sais pas si elle valable, je te demande donc ton avis :

- J'insère dans la propriété de form.caption mon titre + un certains nombres d'espaces.
- Je calcul ensuite le nombre total de carractères dans form.caption
- Je calcul le nombre total de carractères de date + time
- Je soustrait ce nombre à celui de mon form.caption
- J'enlève un certains nombres d'espaces (calcul ci-dessus)
- Je recombine le tout et je reformule mon form.caption.

Quand penses-tu ?

Exploreur

Renfield · Answer

Ca ne suffira pas....
les lettres n'ont pas toutes la même largeur.
s'assurer, par exemple 40 caractères avant d'afficher la date et l'heure ne conviendra pas...

pour test, essaye simplement :

Public Property Let FormCaption(ByRef Value As String)
Dim sBuffer As String
    sBuffer = FormatDateTime(Date, vbLongDate) & " " & FormatDateTime(Now, vbLongTime)
    Me.Caption = Value & Space$(40 - Len(Value)) & sBuffer
End Property

Renfield
Admin CodeS-SourceS- MVP Visual Basic

mortalino · Answer

Génial ta propriété, je ne connaissais pas comme ceci.
(testé sur UserForm excel)

T'es un bon prof Rey  ;)

++

Renfield · Answer

Merci ^^

j'aime bien la syntaxe qui va avec les property... c'est plus naturel...
au boulot, par exemple, on a la propriété Settings, qui donne accès en lecture ecriture a la config...

Setting("Graph.AxisWidth") = 2
Target.DrawWidth = Setting("Graph.AxisWidth")

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Merci Renfield...


Par contre je ne suis pas Fut-fut...comment s'utilise

Renfield · Answer

tu le place dans le code de ta Form

pour le tester, fais simplement 

Me.FormCaption = "Titre test"

et tu auras comme Caption de ta form, par exemple : "Titre test                  jeudi 21 Septembre 2006 14:10:27"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Merci Renfield pour toutes tes explications et ton code, grâce à toi je viens d'apprendre quelque chose d'autres.

Exploreur

cs_Exploreur · Answer

Salut Renfield,

Il me semble qu'il y a une police qui utilise le même nombre de pixels pour n'importe quel carractères ? Connais-tu cette police ?

Merci d'avance
Exploreur

Renfield · Answer

Il en existe quelques unes...
Terminal
Courier
Courier New
FixedSys
Lucida console
...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Re,

Est-ce que la fameuse "solution" que je pensais(calcul longeur....) peut-être jouable avec une tel police ?

Merci.

Renfield · Answer

oui, a supposer que l'utilisateur ait choisi cette police pour afficher la barre de titre, ce qui est franchement rare, je pense

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Date longue et heure

17 réponses

Votre réponse