Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Datumsunterschied in Tagen berechnen
Autor: p. specht (---.aon.at)
Datum:   27.01.18 10:10

Hier die Formel, für frühere Versionen.
Gruss
 Windowtitle upper$("  Anzahl der Tage zwischen zwei Datumsangaben")
 font 2:randomize:clrs
 Appendmenubar 100,"Gilt nur im Zeiraum 1.01.1901 bis 31.12.2099 !"
 Declare a!,a$,y&,m&,d&,n!,r!,A![12]
 A![1]=0:A![2]=31:A![3]=59.25:A![4]=90.25:A![5]=120.25
 A![6]=151.25:A![7]=181.25:A![8]=212.25:A![9]=243.25
 A![10]=273.25:A![11]=304.25:A![12]=334.25
 NEU:
 PRINT "\n Bitte das Bezugsdatum eingeben: (Enter für "heute")\n"
 clear m&,d&,y&,n!,r!:Eingab :R!=N!:nochmal:
 
 PRINT "\n Abfragedatum eingeben:\n":Eingab
 A!=N!-R!:PRINT "\n Anzahl der dazwischen liegenden Tage: ";int(abs(A!))
 if %csrlin>24:waitinput:clrs:endif
 if int(A!)=0:Print "\n Wird ein neues Bezugsdatum gewünscht [j/n]? ";:input a$
   a$=trim$(a$):a$=lower$(a$):a$=left$(a$,1):if (a$="j") or (a$="y") or (a$="1")
   clrs:goto "NEU":endif
 endif:goto "nochmal"
 
 proc Eingab
 Print " Jahr (4-stellig): ";:input y&
 if y&=0:y&=val(left$(date$(3),4)):m&=val(mid$(date$(3),5,2))
   d&=val(right$(date$(3),2)):print " ";y&,m&,d&;"\n"
 else
   mon:
   Print " Monat (2stellig): ";:input m&
   case (m&<1) or (m&>12):goto "mon"
   day:
   Print " Tag  (2-stellig): ";:input d&
   case (d&<1) or (d&>31):goto "day"
 endif
 N!=365.25*(Y&-1901)+A![M&]+D&:N!=int(N!)
 endproc
 
 proc clrs :CLS rgb(200+rnd(56),200+rnd(56),200+rnd(56))
 endproc 
 


____
Ein richtiges Problem hat keine Lösung, nur Näherungen!

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Datumsunterschied in Tagen berechnen  Neu
Mathias Heinemann 25.01.18 14:22 
 Re: Datumsunterschied in Tagen berechnen  Neu
Heinz Brill 25.01.18 15:38 
 Re: Datumsunterschied in Tagen berechnen  Neu
Mathias Heinemann 26.01.18 12:37 
 Re: Datumsunterschied in Tagen berechnen  Neu
Jacob Liebeck 16.03.18 16:25 
 Re: Datumsunterschied in Tagen berechnen  Neu
p. specht 27.01.18 10:10 
 Re: Datumsunterschied in Tagen berechnen  Neu
Michael Wodrich 16.03.18 16:44 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org