Access VBA-Forum - Das Forum zu Microsoft Access VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Zahl aus Text filtern und mit Datum addieren	18.08.2024 16:42:01	Martin
Zahl aus Text filtern und mit Datum addieren	19.08.2024 10:26:23	Gast85583
Zahl aus Text filtern und mit Datum addieren	19.08.2024 11:53:32	Gast43006
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	19.08.2024 17:57:49	Gast85583
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	11.09.2024 11:51:01	Gast36485
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	11.09.2024 12:52:16	Gast30398

Ansicht des Beitrags:

Von:
Gast85583

Datum:
19.08.2024 10:26:23

Rating:

Antwort:

Thema:
Zahl aus Text filtern und mit Datum addieren

Es sollte relativ leicht mit einem regulären Ausdruck zu lösen sein.

Option Explicit

Public Sub DemoExample()
  
  Debug.Print GetDayValue("Zahlbar innerhalb von 14 Tagen netto nach Rechnungsdatum.")
  Debug.Print GetDayValue("Payment within 30 days net.")
  
End Sub

Public Function GetDayValue(Expression As Variant) As Integer
    
  With CreateObject("VBScript.RegExp")
    
    .Global = False     ' nur den ersten Treffer liefern
    .IgnoreCase = False
    .MultiLine = False
    
    ' https://www.vba-tutorial.de/applikation/regexp.htm
    .Pattern = "(\d+)\s+(?:Tagen|days)"
    
    With .Execute(Expression)
      If .Count > 0 Then
        GetDayValue = CInt(.Item(0).SubMatches(0))
      Else
        GetDayValue = -1
      End If
    End With
    
  End With
  
End Function

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Zahl aus Text filtern und mit Datum addieren	18.08.2024 16:42:01	Martin
Zahl aus Text filtern und mit Datum addieren	19.08.2024 10:26:23	Gast85583
Zahl aus Text filtern und mit Datum addieren	19.08.2024 11:53:32	Gast43006
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	19.08.2024 17:57:49	Gast85583
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	11.09.2024 11:51:01	Gast36485
Das freut mich. Genau so soll es sein. :) - Grüße (owt)	11.09.2024 12:52:16	Gast30398