;-------------------------------------------------------------------------------------------------------------------------------------
;
; Schnittstelle zu anderen Modulen:
;
; INPUT und INPUTRESTRIKTIONEN
; ============================
;
; Parameter    :
;
; Typ    Variablename      Variablebeschreibung [Wertebereich]
; int    itag              Schalter für das zu ermittelnde Datum
;                          -1 = gestern
;                           0 = heute
;                           1 = morgen  usw.
; str    cwotag            Wochentag
;                          ddd  = Mo
;                          dddd = Montag
;                          ""   = ohne Wochentag
; str    ctrzei            Trennzeichen zwischen Wochentag und Datum, z.B. ", "
; str    cformat           Format des Datums  
;                          dd month yyyy = 17 März 1997    
;                          dd.mo.yyyy    = 17.03.1997
;                          dd.mo.yy      = 17.03.97
;  
;
; OUTPUT und OUTPUTRESTRIKTIONEN
; ================================
;
; Parameter    :
;
; Typ    Variablenname     Variablenbeschreibung  [Wertebereich]  
; str    cdatum            gesuchtes Datum
;  
;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun datum_ermitteln ( itag cwotag ctrzei cformat 
                          / 
                          canztage cdatum cmenucmd ctrenn 
                          ianztage )
  
; Die Anzahl der Tage für das heutige Datum ermitteln
  (setq ianztage (fix (getvar "date")))

; Die Anzahl der Tage aktualisieren
  (setq ianztage (+ ianztage itag))

; Das gesuchte Datum im entsprechenden Format ermitteln (siehe Handbuch für Benutzeranpassungen Seite 483)
  (setq canztage (itoa ianztage))
  (if (= cwotag "")
    (setq ctrenn "")
    (setq ctrenn ctrzei) ; else
  ) ; if
  (setq cmenucmd (strcat "M=$(edtime," canztage "," cwotag "\"" ctrenn "\"" cformat ")")) 
  (setq cdatum (menucmd cmenucmd))

; Rückgabewert
  cdatum

) ; Modulende