/*=============( Subtrahieren 2 Datumswerte )=============*/
/*==( Author: Janosch R. Kowalczyk, URL: www.jakoxx.de )==*/
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 ***/