Search options

why the format of date not changed in fastreport ?
format yyyy/MM

there is the code to convert number to word in franch
procedure MISSIONCADRE_Button3_OnClick (Sender: TObject; var Cancel: boolean);
begin
    //mission.Label33.Caption := ToWords(mission.Edit23.Value);
    MISSIONCADRE.Label33.Caption := MoneyToWords(MISSIONCADRE.Edit25.Value);
    MISSIONCADRE.Edit23.text := MoneyToWords(MISSIONCADRE.Edit25.Value);
end;

function RoundOff(num:Real; places:integer=2): Real;
begin
    result := StrToFloat(Format('%.'+IntToStr(places)+'f', [num]));
end;

function LPad(PadString : string ; HowMany : integer ; PadValue : string='0'): String;
var
   Counter : integer;
   x : integer;
   NewString : string;
begin
   Counter := HowMany - Length(PadString);
   NewString := '';
   for x := 1 to Counter do
   begin
      NewString := NewString + PadValue;
   end;
   Result := NewString + PadString;
end;

function RPad(PadString : string ; HowMany : integer ; PadValue : string='0'): String;
var
   Counter : integer;
   x : integer;
   NewString : string;
begin
   Counter := HowMany - Length(PadString);
   NewString := '';
   for x := 1 to Counter do
   begin
      NewString := PadValue+NewString;
   end;
   Result := PadString+NewString;
end;

{
    /// https://stackoverflow.com/questions/115 … r-in-words
}
function MoneyToWords(const Number: double; UseCurrency: Boolean = True): String;
var
    _fraction,_i,_maxLen,_levels,_numLen,_cutPos,_hundred,_tens,_currNum,_singles: Integer;
    _strNum,_fr: String;
    _arrStr : Array of String;
    _LIST1 : Array of String =['', 'un', 'deux', 'trois', 'quatre', 'cinq', 'six', 'sept', 'huit', 'neuf', 'dix', 'onze',
            'douze', 'treize', 'quatorze', 'quinze', 'seize', 'dix-sept', 'dix-huit', 'dix-neuf'
        ] ;
    _LIST2 : Array of String = ['', 'dix', 'vingt', 'trente', 'quarante', 'cinquante', 'soixante', 'soixante-dix', 'quatre-vingt', 'quatre-vingt-dix', 'cent'] ;
    _LIST3 : Array of String =['', 'mille', 'million', 'milliard', 'billion', 'quadrillion', 'quintillion', 'sextillion', 'septillion',
            'octillion', 'nonillion', 'decillion', 'undecillion', 'duodecillion', 'tredecillion', 'quattuordecillion',
            'quindecillion', 'sexdecillion', 'septendecillion', 'octodecillion', 'novemdecillion', 'vigintillion'
        ] ;
begin
    result := '';
    _fraction := 0;
    _strNum := VarToStr(Number);
    _strNum := ReplaceStr(_strNum,',','');
    if ValidFloat(_strNum) then begin
        if StrToFloat(_strNum) > 0 then begin
            _strNum := FloatToStr(RoundOff(StrToFloat(_strNum)));
            _arrStr := SplitString(_strNum,'.');

            if Length(_arrStr) > 1 then begin
                _fr := _arrStr[1];
                _fraction := StrToInt(_arrStr[1]);
            end;

            _strNum := _arrStr[0];
            _numLen := Length(_strNum);
            _levels := Int((_numLen + 2) / 3);
            _maxLen := _levels * 3;

            _strNum := LPAD(_strNum, _maxLen);

            for _i:=1 to Int(Length(_strNum)/3) do begin
                Dec(_levels);
                _cutPos := (3*_i)-3;
                if _i>1 then begin
                    Inc(_cutPos);
                end;

                _currNum := StrToInt(Copy(_strNum,_cutPos,3));
                _hundred := Int(_currNum/100);
                if _hundred > 0 then begin
                    result := result + _LIST1[_hundred] + ' cent ';
                end;

                _tens := _currNum mod 100;
                if _tens < 20 then begin
                    result := result + _LIST1[_tens];
                end else begin
                    result := result + _LIST2[Int(_tens/10)];
                    _singles := _currNum mod 10;
                    if _singles > 0 then
                        result := result + ' ' + _LIST1[_singles];
                end;

                if _levels > 0 then
                    if _currNum > 0  then
                        result := result + ' ' + _LIST3[_levels] + ' ';
            end;

            if result[Length(result)]=' ' then
                result :=  Copy(result,0,Length(result)-1);

            if _fraction > 0 then begin
                if Length(_arrStr[1]) > 1 then
                    result := result + ' and ' + LPad(_arrStr[1],2) + '/100'
                else
                    result := result + ' and ' + RPad(_arrStr[1],2) + '/100'
            end;
        end;
    end;
end;

thnks for your effort but not like that i to show all the date between not only the first date and the last one
exmp:
from 01/04/2022 to 05/04/2022
01/04/2022
02/04/2022
03/04/2022
04/04/2022
05/04/2022