Gruppe
Allgemein
Problem
Es soll ein einfaches Kassenbuch erstellt werden, das Ein- und Auszahlungen automatisch dem Kassenbestand zu- oder abrechnet.
StandardModule: basMain
Function ISOWeek(dat As Date) As Integer
Dim dbl As Double
With WorksheetFunction
ISOWeek = Fix((dat - .WeekDay(dat, 2) - _
DateSerial(Year(dat + 4 - _
.WeekDay(dat, 2)), 1, -10)) / 7)
End With
End Function