1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Date & Heure
  5. Recuper toutes les infos sur les dates et heures, en chiffres ou lettres, separement.

Recuper toutes les infos sur les dates et heures, en chiffres ou lettres, separement.

0/5 (8 avis)

Vue 8 434 fois - Téléchargée 572 fois

Télécharger le projet
Commenter

Description

Alooors. Voici un petit module sans prétention aucune, et qui renvoie sous forme de chaine l'info choisie sur l'heure ou la date. Il est possible d'avoir :
  • le jour (en chiffres ou en lettres)
  • le mois (en chiffres ou en lettres)
  • l'année (en mode 2 ou 4 chiffres)
  • les heures (2 chiffres : hh)
  • les minutes (2 chiffres : mm)
  • les secondes (2 chiffres : ss)


Placez ce qui suit dans un module...

Source / Exemple : 


'==               MODULE                =='
'==  formatage complet dates & heures   =='
'== ---------------rel.1--------------- =='
'==Nom d'appel de la fonction : fHor()  =='
'==Auteur de la fonction      : Pekinio =='
'==Date de creation           : 16/8/2k1=='
'== ___________________________________ =='
'==| ------exemple d'utilisation------ |=='
'==|                                   |=='
'==| Private Sub Form_Load()           |=='
'==| Dim LeJour As String              |=='
'==| Dim LeMois As String              |=='
'==|     LeJour = fHor("JourL")        |=='
'==|     LeMois = fHor("MoisL")        |=='
'==| MsgBox "Nous sommes un " & LeJour |=='
'==| MsgBox "En plein " & LeMois       |=='
'==| End Sub                           |=='
'==|___________________________________|=='
'      Listing des strings 'TItem'        '
'               ---------                 '
'  JourL   > renvoie le jour en lettres   '
'  JourC   > renvoie le jour en chiffres  '
'  MoisL   > renvoie le mois en lettres   '
'  MoisC   > renvoie le mois en chiffres  '
'  AnnéeL  > renvoie l'année à 4 chiffres '
'  AnnéeC  > renvoie l'année à 2 chiffres '
'  Heure   > renvoie l'heure (hh)         '
'  Min     > renvoie les minutes (mm)     '
'  Sec     > renvoie les secondes (ss)    '
'-----------------------------------------'

Public Function fHor(TItem As String) As String

If TItem = "JourL" Then
    fHor = (Format$(Date, "dddd"))
 ElseIf TItem = "JourC" Then
    fHor = (Format$(Date, "dd"))
 ElseIf TItem = "MoisL" Then
    fHor = (Format$(Date, "mmmm"))
 ElseIf TItem = "MoisC" Then
    fHor = (Format$(Date, "mm"))
 ElseIf TItem = "AnnéeL" Then
    fHor = (Format$(Date, "yyyy"))
 ElseIf TItem = "AnnéeC" Then
    fHor = (Format$(Date, "yy"))
 ElseIf TItem = "Heure" Then
    fHor = (Format$(Time, "hh"))
 ElseIf TItem = "Min" Then
    fHor = (Format$(Time, "mm"))
 ElseIf TItem = "Sec" Then
    fHor = (Format$(Time, "ss"))
End If

End Function

Conclusion :


Voila, donc, comme vous avez pu le constater, y'a absolument rien de bien méchant la dedans, et puis je pense que ca pourrait aider pas mal de debutants... Vous savez bien qu'on est tous d'eternels débutants...
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
pekinio
16 août 2001 à 02:20
Merci de laisser des commentaires, svp...Ca m'aidera surement, tant que c'est constructif ;)
pekinio
16 août 2001 à 03:09
(vous noterez au passage que c'est ma premiere source ;))
Clem
16 août 2001 à 21:13
Pas mal pour un débutant,
mais tu pourrai faire comme ceci :


Enum Hor
JourL = 0
JourC = 1
MoisL = 2
MoisC = 3
AnnéeL = 4
AnnéeC = 5
Heure = 6
Minute = 7
Seconde = 8
End Enum
Public Function fHor(TItem As Hor) As String
Select Case TItem
Case JourL: fHor = Format$(Date, "dddd")
Case JourC: fHor = Format$(Date, "dd")
Case MoisL: fHor = Format$(Date, "mmmm")
Case MoisC: fHor = Format$(Date, "mm")
Case AnnéeL: fHor = Format$(Date, "yyyy")
Case AnnéeC: fHor = Format$(Date, "yy")
Case Heure: fHor = Format$(Date, "hh")
Case Minute: fHor = Format$(Date, "mm")
Case Seconde: fHor = Format$(Date, "ss")
End Select
End Function
pekinio
18 août 2001 à 04:38
ouaip c plus structuré :)
sur un code plus long la difference se ferait surement dans la taille du code c sur
pekinio
20 août 2001 à 19:49
puis merci pour la note ; )
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Pekinio)