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

Arbeitstage zu Startdatum addieren

149 views
Skip to first unread message

Franz.S...@gmx.net

unread,
Aug 18, 2008, 2:22:51 PM8/18/08
to
Hi liebe Access-Könner,
ich muss in einer Access-Datenbank zu einem Startdatum 10 Arbeits-Tage
(nicht Wochentage) addieren, und mit diesen Tagen 10 Felder füllen. In
MS Excel gibts die Funktion ARBEITSTAG; kennt jemand eine ähnliche
Funktion in Access? Vielen Dank vorweg....Franz

Michael Franke

unread,
Aug 18, 2008, 11:39:34 PM8/18/08
to
Hallo Franz,

Du kannst nach folgendem Muster aus Access heraus auf Excel-Funktionen
zugreifen:

Sub Pi_Excel()
Dim Exx As Excel.Application
Set Exx = New Excel.Application
MsgBox "Die Zahl Pi lautet " & Exx.WorksheetFunction.Pi
Exx.Quit
Set Exx = Nothing
End Sub

Gruß, Michael

Stefan Wirrer

unread,
Aug 19, 2008, 2:46:58 AM8/19/08
to
Hallo Franz,

und wie schaut's mit den regional unterschiedlichen Feiertagen aus?
Eine Feiertag-Liste gibts unter www.donkarl.com?FAQ2.19
Berechnungen rund um dieses Thema gibt's in der KnowHow-MDB

--
Gruß
aus München

Stefan

Stefan...@volke-muc.de
---------------------------------------------------------------------
Access-FAQ: http://www.donkarl.com/AccessFAQ.htm
KnowHow-MDB: http://www.freeaccess.de/
Infos für Neulinge in den Access-Newsgroups:
http://www.doerbandt.de/access/Newbie.htm
Stammtisch: http://www.access-muenchen.de/


Franz Strompen

unread,
Sep 6, 2008, 6:33:25 AM9/6/08
to
Michael Franke:
> Hallo Franz,
>
>> Hi liebe Access-K=F6nner,

>> ich muss in einer Access-Datenbank zu einem Startdatum 10
Arbeits-Tage
>> (nicht Wochentage) addieren, und mit diesen Tagen 10 Felder f=FCllen.
In
>> MS Excel gibts die Funktion ARBEITSTAG; kennt jemand eine =E4hnliche

>> Funktion in Access? Vielen Dank vorweg....Franz
>
> Du kannst nach folgendem Muster aus Access heraus auf
Excel-Funktionen
> zugreifen:
>
> Sub Pi_Excel()
> Dim Exx As Excel.Application
> Set Exx =3D New Excel.Application

> MsgBox "Die Zahl Pi lautet " & Exx.WorksheetFunction.Pi
> Exx.Quit
> Set Exx =3D Nothing
> End Sub
>
> Gru=DF, Michael

Vielen Dank, will ich nach meinem restlichen Urlaub gleich mal
ausprobieren

0 new messages