This unit has a few routines that may be helpful to others and may have specific coding for whatever I used it for so forgive me!

function NowFix : DateTime;
function DateFix : Integer;
function DisplayDate(dt : DateTime; fmt : integer) : string;
function DateToJul(dt : DateTime) : integer;
function JulToDate(iJ : integer) : DateTime;
function MoveDays(dt : DateTime; iDays : integer) : DateTime;
function FixDec(aAmt: double): double;
function IsNum(s : string) : boolean;
function CommaDouble(amt : double): string;
function CommaInteger(amt : integer): string;
function CommaString(s : string): string;
function CheckEmailCharAllowed(const s: string): Boolean;
function IsValidEmail(const Value: string): Boolean;
 
function RandNum(imax : integer) : integer;

// TColor = clSmokeWhite; TColor = clLightSkyBlue
procedure MakeGradient(BG : TBackground; GradientColor0 : TColor = 4294309365; GradientColor100 : TColor = 4287090426);

Walter

Hi Walter,

Thanks, think it's very usable

Regards,

Hüseyin


Den 29-01-2018 kl. 14:26 skrev Walter Matte:
> This unit has a few routines that may be helpful to others and may have specific coding for whatever I used it for so forgive me!
>
> function NowFix : DateTime;
> function DateFix : Integer;
> function DisplayDate(dt : DateTime; fmt : integer) : string;
> function DateToJul(dt : DateTime) : integer;
> function JulToDate(iJ : integer) : DateTime;
> function MoveDays(dt : DateTime; iDays : integer) : DateTime;
> function FixDec(aAmt: double): double;
> function IsNum(s : string) : boolean;
> function CommaDouble(amt : double): string;
> function CommaInteger(amt : integer): string;
> function CommaString(s : string): string;
> function CheckEmailCharAllowed(const s: string): Boolean;
> function IsValidEmail(const Value: string): Boolean;
>    
> function RandNum(imax : integer) : integer;
>
> // TColor = clSmokeWhite; TColor = clLightSkyBlue
> procedure MakeGradient(BG : TBackground; GradientColor0 : TColor = 4294309365; GradientColor100 : TColor = 4287090426);
>
> Walter
>

Thanks Walter !

Really useful.

Cheers

Kamran

Walter Matte wrote:

This unit has a few routines that may be helpful to others and may have specific coding for whatever I used it for so forgive me!

function NowFix : DateTime;
function DateFix : Integer;
function DisplayDate(dt : DateTime; fmt : integer) : string;
function DateToJul(dt : DateTime) : integer;
function JulToDate(iJ : integer) : DateTime;
function MoveDays(dt : DateTime; iDays : integer) : DateTime;
function FixDec(aAmt: double): double;
function IsNum(s : string) : boolean;
function CommaDouble(amt : double): string;
function CommaInteger(amt : integer): string;
function CommaString(s : string): string;
function CheckEmailCharAllowed(const s: string): Boolean;
function IsValidEmail(const Value: string): Boolean;
 
function RandNum(imax : integer) : integer;

// TColor = clSmokeWhite; TColor = clLightSkyBlue
procedure MakeGradient(BG : TBackground; GradientColor0 : TColor = 4294309365; GradientColor100 : TColor = 4287090426);

Walter

Much appreciated, Walter...

Uli

Walter Matte wrote:

/*
This unit has a few routines that may be helpful to others and may have specific coding for whatever I used it for so forgive me!
*/

Thanks for sharing.

--
Frederick