;+ ***********************************************************************
; NAME:
;	FORM_DATE
;
; PURPOSE:
;	This function pick the curent date en format it on the SOHO format
;
; CATEGORY:
;       Time.
;
; CALLING SEQUENCE:
;	DATE = FORM_DATE()
;
; INPUTS:
;	No
;
; OUTPUTS:
;	Describe any outputs here
;
; OPTIONAL OUTPUTS:
;	DATE     String (YYYY-MM-DD)
;
; PROCEDURE:
;	This function use SYSTIME to have the current date and convert it
;
; MODIFICATION HISTORY:
;	Ecrit par:J Bonmartin le 06/08/98
;-*******************************************************************

FUNCTION FORM_DATE


	DATE = BIN_DATE ( SYSTIME())
	STR_DATE = STRING (Date(0),FORMAT='(I4.4)') + '-' $
			+ STRING (DATE(1), FORMAT='(I2.2)') + '-' $
		+ STRING(DATE(2),FORMAT='(I2.2)')

Return, Str_date

END