DATE DU JOUR

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