RelativeDateToString (rtl)

Function RelativeDateToString(dt:TDatetime; iUseTranslation:boolean):string;

Cette fonction retourne la date relative d'une representation de date relative.

Result	La représentation en chaine de la date relative.
dt	la date relative à convertir.
iUseTranslation	False: Utilise des abréviations True : Utilise des traductions

Exemple

//Procedure TestRelativeDate;
var dt1,dt2:TDatetime; AStr1,Astr2:string;
begin
  AStr1 := '-3 mois, la fin de l''année'; 
  dt1 := StringToRelativeDate(AStr1); 
  AStr2 := RelativeDateToString(dt1,false{iUseTransaltion}); 
  ShowMessage(Format('%s - %s',[AStr1,AStr2])); 
  dt2 := StringToRelativeDate(AStr2);
  if dt1=dt2 then SHowMessage('Ok') else showMessage('Failed'); 
end;

Voir aussi:

— Développement DSM — Développement DSM —