- 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
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