ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 19.04.2000

Diese Seite wurde zuletzt aktualisiert am 19.04.2000
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Gleicher Monat, Tag...?

Zurück...


Anzeige

(-hg) mailto:hg_issamedatepart@aboutvb.de

Die Frage, ob es sich zwei Datums-Angaben um den gleichen Monat handelt, scheint auf den ersten Blick leicht zu beantworten zu sein:

If Month(Date1) = Month(Date2) Then...

Das ist aber ein Fehlschluss - nämlich dann, wenn die Datums-Angaben aus verschiedenen Jahren sind. Nun könnten Sie zwar auch noch das Jahr prüfen, aber es geht einfacher: Mit der Visual Basic-Funktion MSDN Library - VB DateDiffDateDiff ermitteln Sie statt dessen die tatsächliche Differenz zwischen den Monaten. Ist die Differenz gleich 0, handelt es sich um exakt denselben Monat.

Public Function IsSameMonth _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameMonth = Not CBool(DateDiff("m", Date1, Date2))
End Function

Das gleiche Prinzip können Sie natürlich auch für alle anderen Datums-Bestandteilen verwenden - für Quartal, Woche, Tag, Stunde, Minute und sogar Sekunde:

Public Function IsSameQuarter _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameQuarter = Not CBool(DateDiff("q", Date1, Date2))
End Function

Public Function IsSameWeek _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameWeek = Not CBool(DateDiff("w", Date1, Date2))
End Function

Public Function IsSameDay _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameDay = Not CBool(DateDiff("d", Date1, Date2))
End Function

Public Function IsSameHour _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameHour = Not CBool(DateDiff("h", Date1, Date2))
End Function

Public Function IsSameMinute _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameMinute = Not CBool(DateDiff("n", Date1, Date2))
End Function

Public Function IsSameSecond _
 (ByVal Date1 As Date, ByVal Date2 As Date) As Boolean

  IsSameSecond = Not CBool(DateDiff("s", Date1, Date2))
End Function

Modul modIsSameDatePart (modIsSameDatePart.bas - ca. 1,3 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche



Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer