TKSoft-Online

Erster Tag der Woche PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Datum/Zeit
Geschrieben von: TommyK   
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr
Tags:

Problemstellung:

Wie kann ich den ersten Tag der Woche, ausgehend von einem beliebigen Datum, ermitteln? 


Public Function FirstDayWeek(dateDatum As Date)
'*******************************************
'Name:      FirstDayWeek (Function)
'Purpose:   Ermittelt den ersten Tag der Woche ausgehend von dateDatum
'Author:    Thomas Keßler
'Date:      Februar 12, 2004, 11:45:00
'Inputs:    dateDatum= Datum ab dem gerechnet werden soll
'Output:
'*******************************************
    Dim w As Integer
    w = WeekDay(dateDatum, vbMonday)
    FirstDayWeek = (dateDatum - w) + 1

End Function

Aufruf:


Dim x As Variant
x =FirstDayWeek(#02.04.2004#)

Das Ergebnis wäre x = 29.03.2004
DatumKlicks
Total1155
Di. 221
Mo. 212
So. 204
Do. 172
Mi. 162
Di. 151
So. 131
< Zurück   Weiter >
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:38 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173416 Downloads