ACCESS 97 : SUBSTITUTIONS POUR MID/MID$ ; WORKSHEETFUNCTION.MIN ; WORKSHEETFUNCTION.MAX

Attribute VB_Name = "Mid_Acces"
' REDLUPUS 2004 : Procédures de substitution (utilisateurs access):
' Mid/Mid$ ; WorkSheetFunction.Min et WorkSheetFunction.Max
Option Explicit

' =====================================
Public Function Min(ByVal V1, V2)
' -------------------------------------
' Substitut à la fonction "WorksheetFunction.Min"
' retourne la plus petite des deux valeurs V1 et V2
' =====================================
If V1 < V2 Then Min = V1 Else: Min = V2
End Function

' =====================================
Public Function Max(ByVal V1, V2)
' -------------------------------------
' Substitut à la fonction "WorksheetFunction.Max"
' retourne la plus grande des deux valeurs V1 et V2
' =====================================
If V1 > V2 Then Max = V1 Else: Max = V2
End Function

' =====================================
Public Function Mid1(ByVal St As String, _
                     ByVal Beg As Byte, _
                     ByVal L As Byte) As String
' -------------------------------------
' Substitut à la fonction Mid/Mid$
' Retourne la sous-chaîne de longueur "L",
' extraite de "St", en commençant à la
' position "Beg".
'   St      chaîne d'origine
'   Beg     Position de départ
'   L       longueur à extraire
' =====================================
Mid1 = Right$(Left$(St, Beg + L - 1), _
              Max(0, Min(L, Len(St) - Beg + 1)))
End Function

Télécharger le zip