Thema Datum  Von Nutzer Rating
Antwort
10.04.2014 16:09:27 alex
NotSolved
10.04.2014 18:03:14 Gast32343
NotSolved
10.04.2014 19:45:32 Gast32343
NotSolved
10.04.2014 19:54:20 Gast32343
NotSolved
10.04.2014 20:55:09 Gast68682
NotSolved
10.04.2014 22:23:33 Gast42501
NotSolved
Rot Jahrestag Ausgabe
 10.04.2014 18:56:11 gabi
NotSolved
13.04.2014 09:29:47 Holger
NotSolved

Ansicht des Beitrags:
Von:
gabi		 Datum:
10.04.2014 18:56:11		 Views:
1008		 Rating:
     
Antwort:
  Ja
Thema:
Jahrestag Ausgabe

< Um eine komplett Lösung wäre ich sehr Dankbar!

Hi Alex,

nun an DateDiff komme auch ich nicht vorbei, anbei etwas ausführlicher

 

Option Explicit

Sub test()
Dim blnTag As Boolean, blnMonat As Boolean  'Wahrheitswerte f.d. Eingabe
Dim intTag As Integer
Dim intMonat As Integer
Dim intTageMonat As Integer 'da unterschiedlich
Dim intJahr As Integer  'akt. Jahr - es gibt ja auch Schaltjahre
Dim dteIst As Date  'das Ergebnis der Abfragen - siehe vorher
Dim intLoesung As Integer

intJahr = Year(Date)  ' OK wegen Schaltjahr
On Error GoTo errorhandler  'Fehlersteuerung / Abbruch da keine Lust auch noch Buchstaben ....

Do  'solange Tag u. Monat unlogisch
  
  If Not blnTag Then _
    intTag = CInt(InputBox("Geben Sie den Tag ein (ganze Zahl):"))
  
  If Not blnMonat Then _
    intMonat = CInt(InputBox("Geben Sie den Monat ein (ganze Zahl):"))
  
  If intMonat >= 1 And intMonat <= 12 Then blnMonat = True  'Prüfung Monat
  
  intTageMonat = Day(CDate(DateSerial(intJahr, intMonat + 1, 0))) 'passend zum Monat
  If intTag >= 1 And intTag <= intTageMonat Then blnTag = True  'Prüfung Tag

Loop Until blnTag And blnMonat  'beides erfüllt - oder

dteIst = DateSerial(intJahr, intMonat, intTag)  'Eingabe zu Datum akt. Jahr

intLoesung = DateDiff("d", DateSerial(intJahr, 1, 1), dteIst) 'geht auch unter Word VBA
intLoesung = intLoesung + 1

MsgBox ("Ihr Datum: " & intTag & "." & intMonat & _
  " ist umgerechnet der " & intLoesung & ". Tag in diesem Jahr")

On Error GoTo 0 'fertig
Exit Sub
'Fehlerbehandlung
errorhandler:
Call MsgBox("Eingabe keine Zahl oder" & vbCrLf & _
  "Abbruch durch Benutzer", vbExclamation, "Programm beendet !")
On Error GoTo 0
End Sub

 

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:



  • 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
10.04.2014 16:09:27 alex
NotSolved
10.04.2014 18:03:14 Gast32343
NotSolved
10.04.2014 19:45:32 Gast32343
NotSolved
10.04.2014 19:54:20 Gast32343
NotSolved
10.04.2014 20:55:09 Gast68682
NotSolved
10.04.2014 22:23:33 Gast42501
NotSolved
Rot Jahrestag Ausgabe
 10.04.2014 18:56:11 gabi
NotSolved
13.04.2014 09:29:47 Holger
NotSolved