Janosch's Prtozedursammlung

Name

Syntax

diff = SubDates([minDate][, subDate][, minForm][, subForm])[;]

Beschreibung

Ermitteln eines Tagesintervals zwischen zwei Datumswerten im beliebigen Format der REXX-Funktion Date(): DEMNOSUW[JL].

Aufrufparameter

Parameter

Beschreibung

minDate

Minuend - Datumswert, von dem abgezogen wird

subDate

Subtrahend - Datumswert, der abgezogen wird

minForm

Format des Minuends. Option der REXX-Funktion Date() (DEMNOSUW[JL]), die das Format des Minuends beschreibt.

subForm

Format des Subtrahends. Option der REXX-Funktion Date() (DEMNOSUW[JL]), die das Format des Subtrahends beschreibt.

Standardwerte

Parameter

Standardwert

minDate

Das aktuelle Datum (heute) im Date(B)-Format

subDate

Das aktuelle Datum (heute) im Date(B)-Format

minForm

subForm

Rückgabewerte

Name/Wert

Bedeutung

diff

Anzahl von Tagen ddddddd, die zwischen den 2 subtrahierten Werten liegen.

Bemerkungen

Die Funktion liefert als Ergebnis die Anzahl von Tagen ddddddd, die zwischen den 2 subtrahierten Werten liegen. Dieser Wert ist immer positiv oder 0.

Sourcecode

/*=============( Subtrahieren 2 Datumswerte )============*/
SubDates: Procedure
Arg minD, subD, minF, subF

/*---( Standardwerte (Defaults) )---*/
If minD = '' Then minD = Date( 'B' )
If subD = '' Then subD = Date( 'B' )
If minF = '' Then minF = 'B'
If subF = '' Then subF = 'B'

/*-----( Datumswerte formatieren und subtrahieren )-----*/
Return Abs( Date( 'B', minD, minF ) - Date( 'B', subD, subF ))
/*** End SubDates ***/

Beispiel 1

Say SubDates()

Ergebnis 1

Beispiel 2

minDate = "20051231"
minForm = "S"
Say SubDates( minDate,, minForm )

Ergebnis 2

356   /* Erstellt am 22.12.2006 */

Beispiel 3

minDate = 1 /* Datum 0001.01.02 im Base-Format (B) */ 
Say SubDates( minDate )

Ergebnis 3

732665   /* Erstellt am 22.12.2006 */

Beispiel 4

minDate = 0 /* Datum 0001.01.01 im Base-Format (B) */ 
Say SubDates( minDate )

Ergebnis 4

732666   /* Erstellt am 22.12.2006 */

Your privacy: This web site has no cookies, no advertising and does not provide access data to anyone for any reason.
Copyright © Janosch R. Kowalczyk 1999, 2010. All rights reserved.
Most recent revision on 25 Feb 2010 (56) - 13:24:09.