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