Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Datum vergleichen bei Microsoft Access.

Wenn ich bei Microsoft Access im vba -Code einen Datumswert mit dem aktuellen Tagesdatum vergleichen möchte, dann führt das manchmal zu problemen.
Datumsfelder werden normalerweise als Datum+Tageszeit gespeichert.
Ein reines Datumsfeld ist somit Datum + 000000 Tageszeit.

Das führt oft zu Problemen, wenn Leute eine Datumsfeld mit dem Heutigen Tag vergleichen.
Also zum Beispiel

Dim dtChanged as date
dtChanged=rec(“DateEntry”)
If dtChanged = Date Then
… tu was
endif



das führt zu einem Fehler wie man hier aus den Überwachungsausdrücken sieht.
Es wird 28.10.2014 gegen 28.10.2014 10:29:52 verglichen, was natürlich falsch ist



Deshalb muß man aus dem kombinierten Datumsfeld mittels DateValue(date) das aktuelle Tagesdatum herauslösen und dieses vergleichen



Hier der Beispielcode

'< check changed >
Dim sChanged As String
sChanged = objListItem.CellText("Changed")
Dim sUser As String
sUser = fg_Sys_getWinUser()
If Not sChanged Like "" Then
Dim dtChanged As Date
dtChanged =
CDate(sChanged)
If DateValue(dtChanged) = Date Then
If sUser Like objListItem.CellText("Changedby") Then
objListItem.BackColor = vbGreen
End If
End If
End If
'</ check changed >






In vb.net wird die Variable ja auch schon mit Datetime erstellt, ansattt mit Date, was den Fehler auch besser verdeutlicht.


Stichworte
Vba access date datum excel word office Micorsoft


Mobile
vba
»
Access DB: Datensatz in Unterformular markieren
»
MS Access: Aktueller Benutzer abfragen
»
Access: Automatisierungsfehler -2147024894
»
Access: Referenz zu SFTP Code Objekten
»
Access: SFTP using in MS Office vba Teil 2 Basic
»
Access: SFTP Files downloaden, Teil 1 eigenständige Anwendung
»
Access: FTP auflisten, herunterladen und umbenennen
»
Access: FTP Funktionen verwenden
»
Access: Abfrage Parameter erstellen, eingeben und ausführen
»
Access: Konstanten definieren

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de