TKSoft-Online

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

Problemstellung:

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

 


Function LastDayWeek(dateDatum As Date)
'*******************************************
'Name:      LastDayWeek (Function)
'Purpose:   Ermittelt den letzen 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 As Integer
    w = WeekDay(dateDatum, vbMonday)
    LastDayWeek = dateDatum - w + 7

End Function

Aufruf:


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

Das Ergebnis wäre x = 04.04.2004

DatumKlicks
Total969
Mi. 231
Di. 221
So. 202
Sa. 191
Fr. 181
Do. 173
Mi. 162
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:38 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads