Unit TimeFnc

Classes

Functions

DecToRTime - convert RTime to DateTime Field

######################################################################## // Decimal to RTime conversion // ########################################################################
RTimeMinH - Convert RTime to a string

######################################################################## // Subtract an integer from the hours field // ########################################################################
RTimeMinM - Add Integer To RTime.
RTimePlsH - Subtract Integer To RTime.
RTimePlsM - Subtract Integer To RTime.
RTimeToDec - Takes time calculation in decimal and converts it to RTime

######################################################################## // RTime to Decimal // ########################################################################
RTimeToStr - Subtracts Two RTime records

######################################################################## // Convert a RTime record into a string // ########################################################################
RTimeToTD - convert DateTime Field to RTime

return record
RTimeZero -
StrToRTime - Add Integer To RTime.
TDToRTime - ######################################################################## // TDateTime Field to RTime // ########################################################################
TFChange - Convert String to RTime

######################################################################## // Time Format Change - Change from 24 to unlimited format // ########################################################################
TimeAdd - ######################################################################## // Add two RTime Records // ########################################################################
TimeSub - Adds Two RTime records

######################################################################## // Subtract two RTime Records // ########################################################################

Types

TRTime

Constants

Variables


Functions


function DecToRTime(S1: single;I1 : integer) : TRTime;

convert RTime to DateTime Field

######################################################################## // Decimal to RTime conversion // ########################################################################


function RTimeMinH(T1 : TRTime; I1 : Integer) : TRTime;

Convert RTime to a string

######################################################################## // Subtract an integer from the hours field // ########################################################################


function RTimeMinM(T1 : TRTime; I1 : Integer) : TRTime;

Add Integer To RTime.H

######################################################################## // Subtract an integer from the Minutes field // ########################################################################


function RTimePlsH(T1 : TRTime; I1 : Integer) : TRTime;

Subtract Integer To RTime.H

######################################################################## // Add an integer to the hours field // ########################################################################


function RTimePlsM(T1 : TRTime; I1 : Integer) : TRTime;

Subtract Integer To RTime.M

######################################################################## // Add an integer to the Minutes field // ########################################################################


function RTimeToDec(RT1 : TRTime): Single;

Takes time calculation in decimal and converts it to RTime

######################################################################## // RTime to Decimal // ########################################################################


function RTimeToStr(T1 : TRTime) : string;

Subtracts Two RTime records

######################################################################## // Convert a RTime record into a string // ########################################################################


function RTimeToTD(T1 : TRTime) : TDateTime;

convert DateTime Field to RTime

return record


function RTimeZero(T1 : TRTime) : TRTime;


function StrToRTime(Str1 : string; I1 : integer) : TRTime;

Add Integer To RTime.M

######################################################################## // Convert a string to RTime record // ########################################################################


function TDToRTime(TD1 : TDateTime) : TRTime;

######################################################################## // TDateTime Field to RTime // ########################################################################

function TFChange(T1 : TRTime; I1 : integer) : TRTime;

Convert String to RTime

######################################################################## // Time Format Change - Change from 24 to unlimited format // ########################################################################


function TimeAdd(T1, T2 : TRTime) : TRTime;

######################################################################## // Add two RTime Records // ########################################################################

function TimeSub(T1, T2 : TRTime) : TRTime;

Adds Two RTime records

######################################################################## // Subtract two RTime Records // ########################################################################


Types


TRTime = record
H : integer;
M : integer;
S : integer;
TF : integer;
end;

Constants


Variables