Date du jour


Commenter

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

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 (blq)