title image


Smiley Re: Betriebskalender --> Datum zu Monat, als FUNKTION !!!!
Hallo Jörn,

dann pack diese Funktion in ein AddIn:







Public Function BKal(datum As Date) As String



    Dim KW As Date

    Dim Din_KW



    KW = 4 + datum - WeekDay(datum, 2)

    Din_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7



    Select Case Din_KW

        Case 1 To 4

            BKal = "Januar"

        Case 5 To 8

            BKal = "Februar"

        Case 9 To 13

            BKal = "März"

        Case 14 To 17

            BKal = "April"

        Case 18 To 21

            BKal = "Mai"

        Case 22 To 26

            BKal = "Juni"

        Case 27 To 30

            BKal = "Juli"

        Case 31 To 34

            BKal = "August"

        Case 35 To 39

            BKal = "Sebtember"

        Case 40 To 43

            BKal = "Oktober"

        Case 44 To 47

            BKal = "November"

        Case 48 To 53

            BKal = "Dezember"

     End Select



End Function







Code eingefügt mit Syntaxhighlighter 4.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: