| |
Visual-Basic EinsteigerVBA Datum Uhrzeit (größer kleiner), mal ja mal nein | | | Autor: woerny | Datum: 01.12.17 07:47 |
| Hallo*,
ich lese die Termine aus Outlook aus, und bevor ich einen neuen Termin setze, möchte ich prüfen, ob zu diesem Zeitpunkt bereits ein anderer Termin vorhanden ist.
Falls ja, addiere ich 15 Min hinzu und prüfe erneut, ... erneut .... erneut.
Habe ich so einen freien Termin gefunden, gebe ich diesen Zeitpunkt zurück und der neue Termin wird gespeichert.
Soweit so gut. Allerdings funktioniert der Part:
' tNewAppDate - "30.11.2017 09:00"
If tNewAppDate >= obj.start And tNewAppDate <= obj.end Then nicht wirklich zuverlässig.....
Mal werden 15 Min addiert, da der Vergleich funktioniert, mal nicht.
Hier mal die ganze Funktion
Public Function AppointmentsAtDay(ByVal oFLD As Outlook.MAPIFolder, _
ByVal dtDate As Date, _
Optional oResult As Outlook.Items) As Date
Dim oItems As Outlook.Items
Dim sFind As String
Dim obj As Object
Dim i As Long: i = 0
Dim maxLoop As Byte: maxLoop = 0
Set oItems = oFLD.Items
oItems.Sort "[Start]", False
oItems.IncludeRecurrences = True
sFind = Format(dtDate, "ddddd")
sFind = "[Start] <= " & Chr(34) & sFind & " 12:00 PM" & Chr(34) & " AND " & _
"[End] > " & Chr(34) & sFind & " 00:00 AM" & Chr(34)
Set oResult = oItems.Restrict(sFind)
For Each obj In oResult
i = i + 1
Next
Dim tNewAppDate As Date
tNewAppDate = dtDate
checkAgain:
' ### Schutz vor Endlos-Schleife
maxLoop = maxLoop + 1
If maxLoop >= 15 Then GoTo keinTermin
Dim habeKonflikt As Boolean: habeKonflikt = False
Debug.Print "Versuche : " & tNewAppDate
' ### Die Appointments filtern und ausgeben
For Each obj In oResult.Restrict(sFind)
If tNewAppDate >= obj.start And tNewAppDate <= obj.end Then
Debug.Print "Konflikt! - START: " & obj.start & " ENDE: " & obj.end, _
"neu: " & tNewAppDate
habeKonflikt = True
End If
Next obj
' ### 15 Min Zuschlag für nächsten Termin
If habeKonflikt = True Then
tNewAppDate = DateAdd("N", 15, tNewAppDate)
GoTo checkAgain
End If
AppointmentsAtDay = tNewAppDate
finALLY:
Exit Function
keinTermin:
MsgBox "ACHTUNG", vbInformation, "kein Termin FREI"
GoTo finALLY
errHand:
Debug.Print Now & " - es ist ein Fehler aufgetreten"
Debug.Print Err.Number & "|" & Err.Description
Debug.Print "mod_OLTermin - in AppointmentsAtDay"
GoTo finALLY
End Function Könnt Ihr mir weiterhelfen?
| |
Re: VBA Datum Uhrzeit (größer kleiner), mal ja mal nein | | | Autor: woerny | Datum: 01.12.17 09:17 |
| Hallo *,
so funktioniert es:
'***BUG***
' If tNewAppDate >= obj.start And tNewAppDate <= obj.end Then
' ### umwandeln Datum Uhrzeit in einen 5'stelligen (= ohne Sekunden) _
Double Wert
If Round(CDbl(tNewAppDate), 5) >= Round(CDbl(obj.start), 5) And _
Round(CDbl(tNewAppDate), 5) < Round(CDbl(obj.end), 5) Then Wenn es eine bessere Lösung für mich habt....
Gruß
Werner
| |
Re: VBA Datum Uhrzeit (größer kleiner), mal ja mal nein | | | Autor: Blackbox | Datum: 01.12.17 17:49 |
| ich sage mal:
Es liegt an der fehlenden Klammersetzung im AND - Ausdruck im Zusammenhang mit der IF-Anweisung. Darauf deutet insbesondere die Aussage von Woermy hin, dass es mal funktioniert und mal nicht.
Und wenn er es hinbekommen hat - ist es auch recht | |
Re: VBA Datum Uhrzeit (größer kleiner), mal ja mal nein | | | Autor: Manfred X | Datum: 02.12.17 07:00 |
| Hallo!
Die Zuweisung der Abfrage auf "sFind" macht Probleme, weil
die start/end-Eigenschaften des Outlook-Items zwar Date-Werte liefern,
die aber mit Strings verglichen werden. Es fehlt die CDate-Konvertierung
der DateTime-Zeichenfolgen, die das Intervall definieren.
Beitrag wurde zuletzt am 02.12.17 um 07:08:21 editiert. | |
Re: VBA Datum Uhrzeit (größer kleiner), mal ja mal nein | | | Autor: woerny | Datum: 02.12.17 13:33 |
| das sieht ja sehr gut aus!
Danke für den Link
Gruß
Werner
| |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|