>Hi all,
>
>i want a strict date in a text endtext clause ;
>
>it 's possible ?
>
> m.dtest = DATE()
>
>

> TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15
>
><< m.dtest >> 
>
>ENDTEXT
>

>
>Thank in advance

Bernhart,

********************************************************************
*  Description.......: DateToStr - creates a strict date string from date
*  Calling Samples...:
*  Parameter List....: tdDate
********************************************************************
function DateToStr
lparameter tdDate
local lcReturn
if empty(m.tdDate)
	lcReturn='{}'
else
	lcReturn="{^" + (transform(dtos(m.tdDate), "@R 9999-99-99")) + "}"
endif
return m.lcReturn

 TEXT To m.testclause NOSHOW TEXTMERGE PRETEXT 15

<< DateToStr(m.dtest) >> 

ENDTEXT