Classe TDates

Descrição
Hierarquia
Classes e Registros Aninhados
Tipos Aninhados
Campos
Métodos
Propriedades

Unit

mi.rtl.objects.Methods.dates

Declaração

type TDates = class(TObjectsMethods)

Descrição

No description available, ancestor TObjectsMethods description follows

Hierarquia

Visão Geral

Classes e Registros Aninhados

Public TipoHora = record
Public TVarGetDate = record
Public TVarGetTime = record
Public TypeData = record

Tipos Aninhados

Public PTypeData = ˆTypeData;
Published TDateMask = (...);
Published THourMask = (...);
Published TMeses = (...);

Campos

Public nested const DataMinima : TypeData = (dia:1;mes:1 ;ano:_AnoLimit);
Public nested const DataMaxima : TypeData = (dia:31;mes:12;ano:_AnoLimit-1);
Public nested const ArrayStrMeses : Array[TMeses] of string = ('', 'Janeiro', 'Fevereiro', 'Marco', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');
Public nested const StrDiaSemana : Array[0..6] of String[7] = ('Sabado ', 'Domingo', 'Segunda', 'Terca ', 'Quarta ', 'Quinta ', 'Sexta ');
Public nested const HoraInicial : TipoHora = (H : 0; M : 0; S : 0; S100 : 0 );
Public DataSistOp: TypeData; static;
Public TempData: TypeData; static;

Métodos

Public class function juliano(d,m,a : SmallInt) : TRealNum;
Public class function DifeData(diaAtual, mesAtual, anoAtual,diaAnterior , mesAnterior , anoAnterior : byte ) :Longint; Overload;
Public class function DifeData(Const DAntBuff,DAtuBuff:TypeData) : Longint; Overload;
Public class function DifeData(Const DatAnterior:TypeData;Const DatAtual : TypeData; Const Operador:AnsiChar; Const operando : Longint) : Boolean; Overload;
Public class procedure somaData(var dia,mes:Byte; Var ano : SmallInt ; diasAsomar : Integer); Overload;
Public class procedure somaData(var dia,mes,ano : byte ; diasAsomar : Integer); Overload;
Public class procedure SomaData(Var Buff:TypeData;Prazo: Integer) ; Overload;
Public class function FSomaData(Buff:TypeData;Prazo: Integer):TString ; Overload;
Public class procedure SomaDataEmMeses(Const DataFont : TypeData; Const Meses : SmallInt; Var DataDest : TypeData);
Public class procedure SomeDataPara(Const Buff1:TypeData;Var Buff2:TypeData ;Const Prazo: Integer) ;
Public class function Dtjuliana(Var Buff) : TRealNum;
Public class procedure moveData(var dataFonte, dataDestino);
Public class function ConvNomeData(Const NomeArqFonte :String; NomeArqDestino : String; Const Mes,Ano : Byte; var Mensagem : String ) : String;
Public class function StrDataMesAno(Const mes,Ano:byte) : String;
Public class function DiaMaxDoMes(Const Mes : Byte;Ano : Integer) : Byte;
Public class function FDiaSemana(Var BuffData) : Byte;
Public class function FStrDiaSemana(Var data ) : String;
Public class function StrMes(Const mes : Word ) : String;
Public class function StrData(Const Dia,mes,ano: Word ; Const ch :AnsiChar) : string;
Public class function StringData(Const Buff :TypeData;Const Ch : AnsiChar) : String;
Public class function GetDataSistOp(Var Buff;const Separador:AnsiChar):String;
Public class function FGetDataSistOp(const Separador:AnsiChar):String;
Public class function GetDateSystem(const DateMask:TDateMask):String;
Public class function GetHourSystem(const HourMask :THourMask):String;
Public class function GetDateTimeSystem():TDateTime; overload;
Public class function GetDateTimeSystem(aMask:TMask):String; overload;
Public class function GetFTimeDos:Longint; Overload;
Public class function GetFTimeDos(Var wSec1000:SmallInt):Longint; Overload;
Public class function GetFTimeDos(Var wSec100:Byte;Var wSec1000:SmallInt):Longint; Overload;
Public class function GetFTimeDos_Valid(aTime_UltimoAcesso:Longint;aMinutos_de_tolerancia_do_Ultimo_Acesso:byte):Boolean;
Public class function PackDate(Const Data:TypeData):Longint; Overload;
Public class function PackDate(Const Data:String; Const Mask: TDateMask):Longint; Overload;
Public class function PackDate(Const Data:String; Const Mask: TDateMask; TimePack:Longint):Longint; Overload;
Public class function PackHour(Const Hora:String; Const Mask: THourMask; TimePack:Longint):Longint; Overload;
Public class function UnPackDate(Const TimePack:Longint):TypeData;
Public class procedure UnPackHora(Const TimePack:Longint;Var Hora : TipoHora);
Public class procedure PackHora(Const Hora : TipoHora; Var TimePack:Longint);
Public class procedure PackDateHora(Data:TypeData; Hora :TipoHora; Var TimePack:Longint);
Public class procedure UnPackDateHora(Const TimePack:Longint; Var Data:TypeData; Var Hora :TipoHora);
Public class function StringTimeD(Const TimePack:Longint;Const Ch : AnsiChar) : String;
Public class function StringTimeH(Const TimePack:Longint) : String;
Public class function StringTimeHSemPonto(Const TimePack:Longint) : String;
Public class function FIncAno(Ano:SmallInt) : Byte;
Public class function FDecAno(Ano:SmallInt) : Byte;
Public class function FAno(Ano:SmallWord) : SmallWord;
Public class function FAno2Digito(Ano : SmallWord):Byte;
Public class function FAnoDoIndex(Const Dia,Ano : byte):String;
Public class function StrAno(ano : SmallInt ) : String;
Public class function StrToDate(aStrDate:String; Const Mask: TDateMask):PTypeData;
Public class function DateToStr(Const aDate:TypeData;Const Mask: TDateMask) : String; Overload;
Public class function DateToStr(Const aDate:Longint;Const Mask: TDateMask) : String; Overload;
Public class function DateToDateTime(aDate:TypeData): System.TDateTime; Overload;
Public class function DateToDateTime(aTimePack:Longint):System.TDateTime; Overload;
Public class function DateTimeToDate(aDateTime:TDateTime):TypeData; Overload;
Public class function DateTimeToDateStr(aDateTime:TDateTime):String; Overload;
Public class function DateTimeToTimeStr(aDateTime:TDateTime):String;
Public class function DateTimeToDateTimeDos(aDateTime:TDateTime):Longint; Overload;
Public class function DateTimeDosToStr(aTimePack:Longint;Mask:TDateMask):String;
Public class function StrToDateTime(aDataTime:String;Mask:TDateMask):TDateTime; Overload;
Public class function StrToDateTimeDos(aDataTime:String;Mask:TDateMask):Longint; Overload;
Public class function StrToHora( aStrHora:String; Const Mask: THourMask):TipoHora;
Public class function StrToHour(Const aStrHora:String; Const Mask: THourMask):Longint; Overload;
Public class function StrToHour(Const aStrHora:String; Const Mask: THourMask;TimePack:Longint):Longint; Overload;
Public class function HourToStr(Const aStrHora:Longint; Const Mask: THourMask;Const OkSpc : Boolean):String; Overload;
Public class function HourToStr(Const Hora:TipoHora; Const Mask: THourMask;Const OkSpc : Boolean):String; Overload;
Public class function HourToDateTime(Const aTimePack:Longint): TDateTime; Overload;
Public class function str2jul(DateStr:string): longint;
Public class function jul2str(JulDate:longint) :string;
Public class function Julian( Year, Month, Day : Word ) : LongInt;
Public class function LeapYear( Year : Word ) : Boolean ;
Public class function DiaMaxMes(Const DataAtual :TypeData) : byte;
Public class function DateMask_to_Str(Const aDateMask : TDateMask ):String;
Public class function Str_to_DateMask(aStrDate:String):TDateMask;
Public class function HourMask_to_Str(Const aHourMask : THourMask ):String;
Public class function ValidDate( aData : TypeData):Byte;
Public class function ValidHour( H,M,S,S100 : Word):Byte;
Public class function DifHoraEmSegundos(Const HAtu,HAnt : TipoHora ):Longint;
Public class function DifHora_Retorne_TipoHora(Const HAtu,HAnt : TipoHora ):TipoHora; Overload;
Public class function DifHora_Retorne_TipoHora(Const HAtu,HAnt : Longint ):TipoHora; Overload;
Public class function DifHora_Retorne_Horas_Fracao(const HAtu,HAnt : TipoHora ):Double; Overload;
Public class function DifHora_Retorne_Horas_Fracao(const HAtu,HAnt : Longint ):Double; Overload;
Public class function DifHora_Retorne_Minutos(Const HAtu,HAnt : TipoHora ):Longint; Overload;
Public class function DifHora_Retorne_Minutos(Const HAtu,HAnt : Longint ):Longint; Overload;
Public class function DifHora_Retorne_Time(Const HAtu,HAnt : TipoHora ):Longint; Overload;
Public class function DifHora_Retorne_Time(Const HAtu,HAnt : Longint ):Longint; Overload;
Public class function SegundosEmHora(Const Segundos:Longint):String;
Public class function New_Lista_Str_Meses: PSitem;
Public class function getDateStr:tstring ;
Public class function getTimeStr:tstring ;
Public class function DateTimeValid(aDate:AnsiString):Boolean;
Public class function MaskEdit_to_Mask(const aMaskEdit: AnsiString ): TMask; override;
Public class function Mask_to_MaskDateTime(const aMask: TMask): AnsiString;
Public class function MaskDateTime_to_Mask(const aMaskDateTime: AnsiString):TMask; overload;
Public class function MaskDateTime_to_MaskEdit(const aMaskDateTime: AnsiString): AnsiString;
Public class function Mask_to_MaskEdit(const aMask: TMask): AnsiString;
Public class function FormatMask( S: AnsiString;const aMask: TMask):AnsiString;
Public class function DeleteMask(s:AnsiString):AnsiString;
Public class function SetDefaultFormatSettings(Mask: TMask;DestDataBase: Boolean): TFormatSettings; overload;
Public class function SetDefaultFormatSettings(Mask: TMask): TFormatSettings; overload;
Public class function yymmdd_to_ddmmyy(S: AnsiString):AnsiString;
Public class function yyyymmdd_to_ddmmyyyy(S: AnsiString):AnsiString;
Public class function StrToDateTime(S: AnsiString;Const Mask: TMask;DestDataBase:Boolean):TDateTime; overload;
Public class function StrToDateTime( const S: AnsiString):TDateTime; overload;
Public class function DateTimeToStr(d:TDateTime; Mask: TMask;DestDataBase:Boolean ): AnsiString; overload;
Public class function DateTimeToStr(d:TDateTime):AnsiString; Overload;

Descrição

Tipos Aninhados

Public PTypeData = ˆTypeData;
 
Published TDateMask = (...);
 
Valores
  • DateMask_yy_mm_dd
  • DateMask_yyyy_mm_dd
  • DateMask_dd_mm_yy
  • DateMask_ddmmyy
  • DateMask_dd_mm_yyyy
  • DateMask_mm_yy
  • DateMask_mm_yyyy
  • DateMask_Nomemm_yy
  • DateMask_Nomemm_yyyy
  • DateMask_MM_NomeMM
  • DateMask_MM_Nomemm_yy
  • DateMask_MM_Nomemm_yyyy
  • DateMask_Extenco
  • DateMask_dd_mm_yy_hh_nn_ss
  • DateMask_ddmmyyhhnnss
  • DateMask_dd_mm_yy_hh_nn
  • DateMask_ddmmyyhhnn
  • DateMask_dd_mm_yyyy_hh_nn_ss
  • DateMask_ddmmyyyyhhnnss
  • DateMask_yyyymmddhhnnss
Published THourMask = (...);
 
Valores
  • HourMask_hh_nn
  • HourMask_hh_nn_ss
  • HourMask_hh_nn_ss_zzz
Published TMeses = (...);
 
Valores
  • MesNulo
  • Janeiro
  • Fevereiro
  • Marco
  • Abril
  • Maio
  • Junho
  • Julho
  • Agosto
  • Setembro
  • Outubro
  • Novembro
  • Dezembro

Campos

Public nested const DataMinima : TypeData = (dia:1;mes:1 ;ano:_AnoLimit);
 
Public nested const DataMaxima : TypeData = (dia:31;mes:12;ano:_AnoLimit-1);
 
Public nested const ArrayStrMeses : Array[TMeses] of string = ('', 'Janeiro', 'Fevereiro', 'Marco', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');
 
Public nested const StrDiaSemana : Array[0..6] of String[7] = ('Sabado ', 'Domingo', 'Segunda', 'Terca ', 'Quarta ', 'Quinta ', 'Sexta ');
 
Public nested const HoraInicial : TipoHora = (H : 0; M : 0; S : 0; S100 : 0 );
 
Public DataSistOp: TypeData; static;
 
Public TempData: TypeData; static;
 

Métodos

Public class function juliano(d,m,a : SmallInt) : TRealNum;
 
Public class function DifeData(diaAtual, mesAtual, anoAtual,diaAnterior , mesAnterior , anoAnterior : byte ) :Longint; Overload;
 
Public class function DifeData(Const DAntBuff,DAtuBuff:TypeData) : Longint; Overload;
 
Public class function DifeData(Const DatAnterior:TypeData;Const DatAtual : TypeData; Const Operador:AnsiChar; Const operando : Longint) : Boolean; Overload;
 
Public class procedure somaData(var dia,mes:Byte; Var ano : SmallInt ; diasAsomar : Integer); Overload;
 
Public class procedure somaData(var dia,mes,ano : byte ; diasAsomar : Integer); Overload;
 
Public class procedure SomaData(Var Buff:TypeData;Prazo: Integer) ; Overload;
 
Public class function FSomaData(Buff:TypeData;Prazo: Integer):TString ; Overload;
 
Public class procedure SomaDataEmMeses(Const DataFont : TypeData; Const Meses : SmallInt; Var DataDest : TypeData);
 
Public class procedure SomeDataPara(Const Buff1:TypeData;Var Buff2:TypeData ;Const Prazo: Integer) ;
 
Public class function Dtjuliana(Var Buff) : TRealNum;
 
Public class procedure moveData(var dataFonte, dataDestino);
 
Public class function ConvNomeData(Const NomeArqFonte :String; NomeArqDestino : String; Const Mes,Ano : Byte; var Mensagem : String ) : String;
 
Public class function StrDataMesAno(Const mes,Ano:byte) : String;
 
Public class function DiaMaxDoMes(Const Mes : Byte;Ano : Integer) : Byte;
 
Public class function FDiaSemana(Var BuffData) : Byte;
 
Public class function FStrDiaSemana(Var data ) : String;
 
Public class function StrMes(Const mes : Word ) : String;
 
Public class function StrData(Const Dia,mes,ano: Word ; Const ch :AnsiChar) : string;
 
Public class function StringData(Const Buff :TypeData;Const Ch : AnsiChar) : String;
 
Public class function GetDataSistOp(Var Buff;const Separador:AnsiChar):String;
 
Public class function FGetDataSistOp(const Separador:AnsiChar):String;
 
Public class function GetDateSystem(const DateMask:TDateMask):String;
 
Public class function GetHourSystem(const HourMask :THourMask):String;
 
Public class function GetDateTimeSystem():TDateTime; overload;
 
Public class function GetDateTimeSystem(aMask:TMask):String; overload;
 
Public class function GetFTimeDos:Longint; Overload;
 
Public class function GetFTimeDos(Var wSec1000:SmallInt):Longint; Overload;
 
Public class function GetFTimeDos(Var wSec100:Byte;Var wSec1000:SmallInt):Longint; Overload;
 
Public class function GetFTimeDos_Valid(aTime_UltimoAcesso:Longint;aMinutos_de_tolerancia_do_Ultimo_Acesso:byte):Boolean;
 
Public class function PackDate(Const Data:TypeData):Longint; Overload;
 
Public class function PackDate(Const Data:String; Const Mask: TDateMask):Longint; Overload;
 
Public class function PackDate(Const Data:String; Const Mask: TDateMask; TimePack:Longint):Longint; Overload;
 
Public class function PackHour(Const Hora:String; Const Mask: THourMask; TimePack:Longint):Longint; Overload;
 
Public class function UnPackDate(Const TimePack:Longint):TypeData;
 
Public class procedure UnPackHora(Const TimePack:Longint;Var Hora : TipoHora);
 
Public class procedure PackHora(Const Hora : TipoHora; Var TimePack:Longint);
 
Public class procedure PackDateHora(Data:TypeData; Hora :TipoHora; Var TimePack:Longint);
 
Public class procedure UnPackDateHora(Const TimePack:Longint; Var Data:TypeData; Var Hora :TipoHora);
 
Public class function StringTimeD(Const TimePack:Longint;Const Ch : AnsiChar) : String;
 
Public class function StringTimeH(Const TimePack:Longint) : String;
 
Public class function StringTimeHSemPonto(Const TimePack:Longint) : String;
 
Public class function FIncAno(Ano:SmallInt) : Byte;
 
Public class function FDecAno(Ano:SmallInt) : Byte;
 
Public class function FAno(Ano:SmallWord) : SmallWord;
 
Public class function FAno2Digito(Ano : SmallWord):Byte;
 
Public class function FAnoDoIndex(Const Dia,Ano : byte):String;
 
Public class function StrAno(ano : SmallInt ) : String;
 
Public class function StrToDate(aStrDate:String; Const Mask: TDateMask):PTypeData;
 
Public class function DateToStr(Const aDate:TypeData;Const Mask: TDateMask) : String; Overload;
 
Public class function DateToStr(Const aDate:Longint;Const Mask: TDateMask) : String; Overload;
 
Public class function DateToDateTime(aDate:TypeData): System.TDateTime; Overload;
 
Public class function DateToDateTime(aTimePack:Longint):System.TDateTime; Overload;
 
Public class function DateTimeToDate(aDateTime:TDateTime):TypeData; Overload;
 
Public class function DateTimeToDateStr(aDateTime:TDateTime):String; Overload;
 
Public class function DateTimeToTimeStr(aDateTime:TDateTime):String;
 
Public class function DateTimeToDateTimeDos(aDateTime:TDateTime):Longint; Overload;
 
Public class function DateTimeDosToStr(aTimePack:Longint;Mask:TDateMask):String;
 
Public class function StrToDateTime(aDataTime:String;Mask:TDateMask):TDateTime; Overload;
 
Public class function StrToDateTimeDos(aDataTime:String;Mask:TDateMask):Longint; Overload;
 
Public class function StrToHora( aStrHora:String; Const Mask: THourMask):TipoHora;
 
Public class function StrToHour(Const aStrHora:String; Const Mask: THourMask):Longint; Overload;
 
Public class function StrToHour(Const aStrHora:String; Const Mask: THourMask;TimePack:Longint):Longint; Overload;
 
Public class function HourToStr(Const aStrHora:Longint; Const Mask: THourMask;Const OkSpc : Boolean):String; Overload;
 
Public class function HourToStr(Const Hora:TipoHora; Const Mask: THourMask;Const OkSpc : Boolean):String; Overload;
 
Public class function HourToDateTime(Const aTimePack:Longint): TDateTime; Overload;
 
Public class function str2jul(DateStr:string): longint;
 
Public class function jul2str(JulDate:longint) :string;
 
Public class function Julian( Year, Month, Day : Word ) : LongInt;
 
Public class function LeapYear( Year : Word ) : Boolean ;
 
Public class function DiaMaxMes(Const DataAtual :TypeData) : byte;
 
Public class function DateMask_to_Str(Const aDateMask : TDateMask ):String;
 
Public class function Str_to_DateMask(aStrDate:String):TDateMask;
 
Public class function HourMask_to_Str(Const aHourMask : THourMask ):String;
 
Public class function ValidDate( aData : TypeData):Byte;
 
Public class function ValidHour( H,M,S,S100 : Word):Byte;
 
Public class function DifHoraEmSegundos(Const HAtu,HAnt : TipoHora ):Longint;
 
Public class function DifHora_Retorne_TipoHora(Const HAtu,HAnt : TipoHora ):TipoHora; Overload;
 
Public class function DifHora_Retorne_TipoHora(Const HAtu,HAnt : Longint ):TipoHora; Overload;
 
Public class function DifHora_Retorne_Horas_Fracao(const HAtu,HAnt : TipoHora ):Double; Overload;
 
Public class function DifHora_Retorne_Horas_Fracao(const HAtu,HAnt : Longint ):Double; Overload;
 
Public class function DifHora_Retorne_Minutos(Const HAtu,HAnt : TipoHora ):Longint; Overload;
 
Public class function DifHora_Retorne_Minutos(Const HAtu,HAnt : Longint ):Longint; Overload;
 
Public class function DifHora_Retorne_Time(Const HAtu,HAnt : TipoHora ):Longint; Overload;
 
Public class function DifHora_Retorne_Time(Const HAtu,HAnt : Longint ):Longint; Overload;
 
Public class function SegundosEmHora(Const Segundos:Longint):String;
 
Public class function New_Lista_Str_Meses: PSitem;
 
Public class function getDateStr:tstring ;
 
Public class function getTimeStr:tstring ;
 
Public class function DateTimeValid(aDate:AnsiString):Boolean;
 
Public class function MaskEdit_to_Mask(const aMaskEdit: AnsiString ): TMask; override;
 
Public 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.

Public class function MaskDateTime_to_Mask(const aMaskDateTime: AnsiString):TMask; overload;
 
Public class function MaskDateTime_to_MaskEdit(const aMaskDateTime: AnsiString): AnsiString;
 
Public class function Mask_to_MaskEdit(const aMask: TMask): AnsiString;
 
Public class function FormatMask( S: AnsiString;const aMask: TMask):AnsiString;

O método FormatMask retorna s compatível com aMaskDateTime se s for um campo TDateTime válido e vazio caso contrário

Public class function DeleteMask(s:AnsiString):AnsiString;
 
Public class function SetDefaultFormatSettings(Mask: TMask;DestDataBase: Boolean): TFormatSettings; overload;

O método SetDefaultFormatSettings seta o registro DefaultFormatSettings para a mascara definida em Mask e retorna o estado anterior de DefaultFormatSettings.

  • PARÂMETROS

    • Mask : Mascara com formatação de datas

    • DestDataBase:

      • True : A formatação será gravada em arquivo ou lida de um aquivo.

      • False : A formação está sendo usado na edição de datas.

Public class function SetDefaultFormatSettings(Mask: TMask): TFormatSettings; overload;

O método SetDefaultFormatSettings seta o registro DefaultFormatSettings para a mascara definida em Mask e retorna o estado anterior de DefaultFormatSettings.

  • PARÂMETROS

    • Mask : Mascara com formatação de datas

  • OBS

    • Executa o método SetDefaultFormatSettings(Mask,false);

Public class function yymmdd_to_ddmmyy(S: AnsiString):AnsiString;
 
Public class function yyyymmdd_to_ddmmyyyy(S: AnsiString):AnsiString;
 
Public class function StrToDateTime(S: AnsiString;Const Mask: TMask;DestDataBase:Boolean):TDateTime; overload;
 
Public class function StrToDateTime( const S: AnsiString):TDateTime; overload;
 
Public class function DateTimeToStr(d:TDateTime; Mask: TMask;DestDataBase:Boolean ): AnsiString; overload;

O método DateTimeToStr receber uma data e hora compactada e retorna uma data e hora em string de acordo com a mascara passada em mask

Public class function DateTimeToStr(d:TDateTime):AnsiString; Overload;
 
Gerado por PasDoc 0.16.0.