Date du jour

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 971 fois - Téléchargée 71 fois


Contenu du snippet

Renvoie la date du jour formatée

Source / Exemple :


Function sDateDuJour() As String
    Dim LaDate As String                ' Recuperation de la date du jour
    Dim leJour As String                ' Le jour du jour.
    Dim leMois As String                ' Le mois du jour.
    Dim lAnnee As String                ' L'annee du jour
    
    
    On Error GoTo ERROR_sDateDuJour
    
    ' Recuperation des infos
    LaDate = format(Now, LoadResString(cID_RES_FORMAT_DATE))
    leJour = Left(LaDate, 2)
    LaDate = Right(LaDate, Len(LaDate) - (Len(leJour) + 1))
    leMois = Left(LaDate, 2)
    lAnnee = Right(LaDate, Len(LaDate) - (Len(leMois) + 1))
    
    ' Création de la date au format de l'application
    LaDate = format(leJour, cZERO_ZERO) & cSEPARATEUR_DATE & format(leMois, cZERO_ZERO) & cSEPARATEUR_DATE & format(lAnnee, String(4, cZERO))
    
    sDateDuJour = Trim(LaDate)

ERROR_sDateDuJour:
    Exit Function
End Function

A voir également

Ajouter un commentaire

Commentaire

crownstud
Messages postés
16
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
29 juin 2011
-
c'est vraiement ce dont j'ai besoin mais vb me demande de déclaré: left right cZERO_ZEROLoadResString cID_RES_FORMAT_DATEcSEPARATEUR_DATE.
Comment le faire fonctionné? merci

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.