Thema Datum  Von Nutzer Rating
Antwort
18.05.2012 21:41:45 Gast81334
Solved
Blau networkdays ENDdate
 22.05.2012 13:00:16 Dekor
NotSolved
22.05.2012 19:08:20 nobody
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
22.05.2012 13:00:16		 Views:
1025		 Rating:
     
Antwort:
  Ja
Thema:
networkdays ENDdate

Hallo Gast,

das Rechnen mit einem Datum sollte bzw. muss mit DateAdd() erfolgen!

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
   Dim Heute As Date, gesucht As Date
   Heute = Format(Date, "m/d/yyyy")      'Ist meine Formatierung die ich verwende
 
   Heute = DateAdd("d", 0, Heute) 'nur zum check welches Datum ausgegeben wird
 
   MsgBox Heute
 
   Select Case Weekday(Heute, 3)
      Case 3
         gesucht = DateAdd("d", 4, Heute)
      Case 4
         gesucht = DateAdd("d", 3, Heute)
      Case Else
         gesucht = DateAdd("d", 2, Heute)
   End Select
 
   MsgBox gesucht  ' Nun muesste hier praktisch das Datum vom Dienstag stehen, tut es aber nicht WARUM??? es steht immer noch das heutige datum drinne.
End Sub

hab es etwas umgebaut damit ich es selbst testen kann.

 

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2012 21:41:45 Gast81334
Solved
Blau networkdays ENDdate
 22.05.2012 13:00:16 Dekor
NotSolved
22.05.2012 19:08:20 nobody
NotSolved