Moderatori: Anthony47, Flash30005
Function DuraEst(ByVal NomeA As String, NomeB As String) As Long
Dim mySplitA, mySplitB, myMatch, noMatch As Long
mySplitA = Split(NomeA & " 1", " ", , vbTextCompare)
mySplitB = Split(NomeB & " 1", " ", , vbTextCompare)
'
For I = 0 To UBound(mySplitA)
myMatch = Application.Match(mySplitA(I), mySplitB, False)
If IsError(myMatch) Then noMatch = noMatch + 1
Next I
If UBound(mySplitB) > UBound(mySplitA) Then
noMatch = noMatch + UBound(mySplitB) - UBound(mySplitA)
End If
DuraEst = noMatch
End Function
=DuraEst(A2;B2)
Torna a Applicazioni Office Windows
Duck duck go è un motore di ricerca ma anche un browser? Autore: franco11 |
Forum: Software Windows Risposte: 2 |
Importare anche gli url con selenium Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 3 |
EXCEL - Estrazione nome file senza estensione da percorso Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 61 ospiti