Fill Property Let with function

[silentwolf]

Hi guys,
I am just wondering how I could fill a property let with a function.

for example I got following function

Function KW_DIN(Datum As Date) As Integer
    '''geklaut ;o)
    ''von Christoph Kremer, Aachen
    'Berechnt die KW nach DIN 1355
    'http://www.office-loesung.de/fpost675805.php#675805

    Dim t&
    t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
    KW_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

And I like to fill a property Let statement in a class module with this function

this I got in the Class module

Private m_KW as integer

Property Let Kalenderwoche(datKW As Date)
    m_KW = KW_DIN(datKW)
End Property

is this possible? Or is that not really how you should do that?

Thanks for your input!

 

[Jaafar Tribak]

Hi,

Is this what you want ? :

In the Class Module :

Private m_KW As Integer

Property Let Kalenderwoche(datKW As Date)
    
    Dim t&
    t = DateSerial(Year(datKW + (8 - Weekday(datKW)) Mod 7 - 3), 1, 1)
    m_KW = (datKW - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1


End Property

 

[silentwolf]

Hi,
thanks Jaafar .. but I am still not really getting anywhere here..
I have a userform where I like to pick a date that should then fill the Kalenderwoche (Calendar Week) but somehow I am getting not the right answer..

I got this sub in the class module

Sub AddToTimeSheet()

    Range("G1").Value = Me.Mitarbeiter
    Range("B1").Value = Me.Kalenderwoche
 
    
End Sub

And a userform with a datepicker now I like after I click the ok button on the userform that my addToList sub of the class module fires..

Is this a bit clearer now?