Is there an easier way for this?

[Laurent <lutgenl@icloud.com>]

Hi

I need a function which generates some specific file names:

VITEK2-BCI_yymmdd_hhmmss_x.txt

where yymmdd is the current date, hhmmss the current time and x the number of txt files. No idea if x 
actually important.

I have tinkered this together but I find it quite horrible. Is there a more elegant way to do it?

   function Make_File_Name (How_Many : in Positive) return V_String.Bounded_String is
      
      use V_String;
      
      File_Name : V_String.Bounded_String:= (+"VITEK2-BCI_");
      Temp      : V_String.Bounded_String;
      
      Right_Now : Ada.Calendar.Time := Ada.Calendar.Clock;
      Y         : Positive := Ada.Calendar.Year (Right_Now) rem 100;
      M         : Positive := Ada.Calendar.Month (Right_Now);
      D         : Positive := Ada.Calendar.Day (Right_Now);
      
      Secs_Past_Midnight : Natural;
      Mins_Past_Midnight : Natural;
      Secs          : Natural;
      Mins          : Natural;                                    
      Hrs           : Natural;

   begin
      
      Secs_Past_Midnight := Natural (Ada.Calendar.Seconds (Right_Now));
      Mins_Past_Midnight := Secs_Past_Midnight / 60;
      Secs          := Secs_Past_Midnight rem 60;
      Mins          := Mins_Past_Midnight rem 60;
      Hrs           := Mins_Past_Midnight / 60;
      
      if Y < 10 then
         Temp := (+"0" & Trim(Y'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (Y'Img);
         File_Name := File_Name & Temp;
      end if;
      
      if M < 10 then
         Temp := (+"0" & Trim(M'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (M'Img);
         File_Name := File_Name & Temp;
      end if;
      
      if D < 10 then
         Temp := (+"0" & Trim(D'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (D'Img);
         File_Name := File_Name & Temp;
      end if;
      
      File_Name := File_Name & "_";
      
            if Hrs < 10 then
         Temp := (+"0" & Trim(Hrs'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (Hrs'Img);
         File_Name := File_Name & Temp;
      end if;
      
      if Mins < 10 then
         Temp := (+"0" & Trim(Mins'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (Mins'Img);
         File_Name := File_Name & Temp;
      end if;
      
      if Secs < 10 then
         Temp := (+"0" & Trim(Secs'Img));
         File_Name := File_Name & Temp;
      else
         Temp := Trim (Secs'Img);
         File_Name := File_Name & Temp;
      end if;
     
      File_Name := File_Name & "_";
      File_Name := File_Name & Trim (How_Many'Img) & ".txt";      
      
      return File_Name;
      
   end Make_File_Name;

Thanks

Laurent