Classe TDatesFreePascal

Unit

mi.rtl.ui.Dmxscroller.dates

Declaração

type TDatesFreePascal = class(TObject)

Descrição

A Class TDatesFreePascal usado para acessar a data e hora usando formato TDateTime.

• Programa usado para teste da unit

Pascal

         unit Unit1;


         interface

         uses
           Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls
           ,Mi.rtl.All
           ,mi.rtl.ui.Dmxscroller.dates;


         type


           TForm1 = class(TForm)
             Button5: TButton;
             procedure Button5Click(Sender: TObject);

           private

           public

           end;

         var
           Form1: TForm1;

         implementation

         $R *.lfm



         procedure TForm1.Button5Click(Sender: TObject);
           Procedure today (Fmt : string);

             Var S : AnsiString;

           begin
             DateTimeToString (S,Fmt,Date);
             Writeln (S);
           end;

           Procedure Print (Fmt : string);

             Var S : AnsiString;

           begin
             TMi_rtl.Logs.info('fmt='+'...');
             TMi_rtl.Logs.info('fmt='+Fmt);

             DateTimeToString (S,Fmt,now);
             Writeln (S);
             TMi_rtl.Logs.info('Print-fmt='+Fmt+' Valor: '+s);
           end;

           Procedure Print_DateTimeToStr (Mask:  TDatesFreePascal.TMask );
             Var S : AnsiString;

           begin
             with TDatesFreePascal do
             begin
               s := DateTimeToStr(now,Mask);
               TMi_rtl.Logs.info('Print_DateTimeToStr: '+s);

             end;
           end;


           Procedure Print_StrToDateTime(Str:AnsiString;Mask:  TDatesFreePascal.TMask );
             Var
               d:TDateTime;
           begin
             with TDatesFreePascal do
             begin
               d := StrToDateTime(str,Mask);
               str := DateTimeToStr(d,Mask);
               TMi_rtl.Logs.info('Print_StrToDateTime: '+str);
             end;
           end;


           procedure test1;
           begin
             Today ('"Today is "dddd dd mmmm y');
             Today ('"Today is "d mmm yy');
             Today ('"Today is "d/mm/yy');
             Today ('"Today is "yy/mm/dd');
             Today ('"Today is "yyyy/mm/dd');
             //Now ('''The time is ''am/pmh:n:s');
             //Now ('''The time is ''hh:nn:ssam/pm');
             //Now ('''The time is ''tt');
           end;

         Begin

          with TDatesFreePascal do
          begin
            TMi_rtl.Logs.info('Mask: '+Mask_to_MaskDateTime(Mask_yy_mm_dd));
            Print(Mask_to_MaskDateTime(Mask_yy_mm_dd));
            Print_DateTimeToStr(Mask_yy_mm_dd);
            Print_StrToDateTime('24/03/28',Mask_yy_mm_dd);



            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy));
            Print_DateTimeToStr(Mask_dd_mm_yy);
            Print_StrToDateTime('28/03/24',Mask_dd_mm_yy);

            Print(Mask_to_MaskDateTime(Mask_dd_mm_yyyy));
            Print_DateTimeToStr(Mask_dd_mm_yyyy);
            Print_StrToDateTime('28/03/2024',Mask_dd_mm_yyyy);

            Print(Mask_to_MaskDateTime(Mask_yyyy_mm_dd));
            Print_DateTimeToStr(Mask_yyyy_mm_dd);
            Print_StrToDateTime('2024/03/28',Mask_yyyy_mm_dd);

            Print(Mask_to_MaskDateTime(Mask_mm_yy));
            Print_DateTimeToStr(Mask_mm_yy);
         //    Print_StrToDateTime('03/24',Mask_mm_yy);Não é data válida

            Print(Mask_to_MaskDateTime(Mask_mm_yyyy));
            Print_DateTimeToStr(Mask_mm_yyyy);
            //Print_StrToDateTime('03/2024',Mask_mm_yyyy);  Não é data válida


            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy_hh_nn_ss));
            Print_DateTimeToStr(Mask_dd_mm_yy_hh_nn_ss);
            Print_StrToDateTime('28/03/24 17:11:59',Mask_dd_mm_yy_hh_nn_ss);


            Print(Mask_to_MaskDateTime(Mask_dd_mm_yy_hh_nn));
            Print_DateTimeToStr(Mask_dd_mm_yy_hh_nn);
            Print_StrToDateTime('28/03/24 17:11',Mask_dd_mm_yy_hh_nn);

            Print(Mask_to_MaskDateTime(Mask_dd_mm_yyyy_hh_nn_ss));
            Print_DateTimeToStr(Mask_dd_mm_yyyy_hh_nn_ss);
            Print_StrToDateTime('28/03/24 17:11:59',Mask_dd_mm_yyyy_hh_nn_ss);



            Print(Mask_to_MaskDateTime(Mask_hh_nn));
            Print_DateTimeToStr(Mask_hh_nn_DateTime );
            Print_StrToDateTime('17:11',Mask_hh_nn_DateTime );

            Print(Mask_to_MaskDateTime(Mask_hh_nn_ss_DateTime));
            Print_DateTimeToStr(Mask_hh_nn_ss_DateTime);
            Print_StrToDateTime('17:11:59',Mask_hh_nn_ss_DateTime);

            Print(Mask_to_MaskDateTime(Mask_hh_nn_ss_s1000_DateTime ));
            Print_DateTimeToStr(Mask_hh_nn_ss_s1000_DateTime );
         //    Print_StrToDateTime('17:48:25:742',Mask_hh_nn_ss_s1000_DateTime ); Não é válido.
          end;

         End;

         end.

Hierarquia

• TObject
• TDatesFreePascal

Visão Geral

Tipos Aninhados

	SmallWord = System.word;
	TMask = (...);

Métodos

	class function Mask_to_MaskDateTime(const aMask: TMask): AnsiString;
	class function Mask_to_MaskEdit(const aMask: TMask): AnsiString;
	class function MaskEdit_to_Mask(const aMaskEdit: AnsiString): TMask ;
	class function SetDefaultFormatSettings(Mask: TMask): TFormatSettings;
	class function StrToDateTime(const S: AnsiString;Const Mask: TMask):TDateTime; overload;
	class function StrToDateTime( const S: AnsiString):TDateTime; overload;
	class function DateTimeToStr(d:TDateTime; Mask: TMask ): AnsiString; overload;
	class function DateTimeToStr(d:TDateTime):AnsiString; Overload;
	class function IsDateTime(const aTemplate: AnsiString): Boolean;

Descrição

Tipos Aninhados

	SmallWord = System.word;

	TMask = (...);
Esse tipo é usado pelo interpretar o tipo TDateTime Valores Mask_yy_mm_dd Mask_yyyy_mm_dd Mask_dd_mm_yy Mask_dd_mm_yyyy Mask_mm_yy Mask_mm_yyyy Mask_dd_mm_yy_hh_nn_ss Mask_dd_mm_yy_hh_nn Mask_dd_mm_yyyy_hh_nn_ss Mask_hh_nn Mask_hh_nn_ss Mask_hh_nn_ss_zzz Mask_Extenco Mask_Invalid

Métodos

	class function Mask_to_MaskDateTime(const aMask: TMask): AnsiString;
O método Mask_to_MaskDateTime recebe a mascara definida em aMask e retorna um string esperado pelo registro DefaultFormatSettings.

	class function Mask_to_MaskEdit(const aMask: TMask): AnsiString;

	class function MaskEdit_to_Mask(const aMaskEdit: AnsiString): TMask ;

	class function SetDefaultFormatSettings(Mask: TMask): TFormatSettings;
O método SetDefaultFormatSettings seta o o registro DefaultFormatSettings para a mascara definida em Mask e retorna o estado anterior de DefaultFormatSettings.

	class function StrToDateTime(const S: AnsiString;Const Mask: TMask):TDateTime; overload;

	class function StrToDateTime( const S: AnsiString):TDateTime; overload;

	class function DateTimeToStr(d:TDateTime; Mask: TMask ): AnsiString; overload;

	class function DateTimeToStr(d:TDateTime):AnsiString; Overload;

	class function IsDateTime(const aTemplate: AnsiString): Boolean;

---

Gerado por PasDoc 0.16.0.