:qldate()
:Func
:Local jr,mo,dat,nj
:Local ch,nm,aa
:{"dim","lun","mar","mer",
 "jeu","ven","sam",}->jr
:{"jan","fev","mars","avr"
 ,"mai","juin","juil","aou
 t","sept","oct","nov,"de
 c"}->mo
:getDate()->dat
:dayOfWk(dat[1],dat[2],dat
 [3])->nj
:string(dat[3])->ch
:If dat[3]<10 Then
: left(ch,1)->ch
:Else
: left(ch,2)->ch
:EndIf
:dat[2]->mn
:string(dat[1])->aa
:mid(aa,3,2)->aa
:jr[nj]&" "&ch&" "&mo[nm]&
 " "&aa
:EndFunc

// écrit la date du jour.