Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Bankdatum in Excel darstellen

41 views
Skip to first unread message

Wolfgang Dohn

unread,
Mar 28, 2000, 3:00:00 AM3/28/00
to
Hallo zusammen!


Ich stehe vor einem großen Problem mit Excel. Ich will ein Bankdatum in Excel
darstellen und Excel dazu bringen, mit diesem zu rechnen.
Zur Erklärung:
Bankdatum ist das Datum, mit dem Banken gewöhnlich die Zinstage berechnen, d.h.
dadurch findet eine Normierung der Anzahl der Tage im Jahr auf 360 statt. Damit
haben Monate mit 31 Tage und der Februar gleichermaßen 30 Tage.
Excel kennt jedoch den 30.02. nicht und gibt bei der Tageberechnung #Wert! aus.


Gibt es eine Möglichkeit, Excel dazu zu bringen, banktechnisch zu rechnen, etwa
mit Hilfe eines Makros?


Über rege Hilfe bin ich sehr dankbar.


Grüße
Wolfgang
--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de

Alexander Freudenberg

unread,
Mar 28, 2000, 3:00:00 AM3/28/00
to
Wolfgang Dohn <Wolfga...@web.de> schrieb in im Newsbeitrag:
38e0b600$1...@netnews.web.de...

> dadurch findet eine Normierung der Anzahl der Tage im Jahr auf 360 statt.
Damit
> haben Monate mit 31 Tage und der Februar gleichermaßen 30 Tage.
> Gibt es eine Möglichkeit, Excel dazu zu bringen, banktechnisch zu rechnen,
etwa
> mit Hilfe eines Makros?

Ich würde es folgendermaßen machen:

Alle Zellen, in denen später ein Datum stehen soll bekommen das Zellformat
"Text".
Das Datum wird grundsätzlich in der Form 01.01.2000 dargestellt (oder irgend
etwas anderes - dann muss das Makro entsprechend angepasst werden).

Unter Verwendung einer benutzerdefinierten Funktion kann man nun jedem Tag
eine Zahl zuordnen. Die 1 könnte dabei der 1.1.2000 sein. Mit dem Ergebnis
(Integer-Zahl) kann man dann weiterrechnen.

'Tageszahl in banktechnischer Zählweise
'jeder Monat hat 30 Tage
'der 1.1.2000 ist die 1
'Übergabeformat: tt.mm.jjjj
Function BankValue(s)
Dim t, m, j
t = Val(Left(s, 2))
m = Val(Mid(s, 4, 2))
j = Val(Right(s, 4))
BankValue = 360 * (j - 2000) + 30 * (m - 1) + t
End Function

AF.

Wolfgang Dohn

unread,
Mar 28, 2000, 3:00:00 AM3/28/00
to


Habe es sofort ausprobiert und es funktioniert hervorragend!!
Herzlichen Dank für die prompte Hilfe!


WD.

0 new messages