Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » Elevate Web Builder Technical Support » Support Forums » Elevate Web Builder Binaries » View Thread |
Messages 1 to 5 of 5 total |
Helper Unit |
Mon, Jan 29 2018 8:26 AM | Permanent Link |
Walter Matte Tactical Business Corporation | 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 Attachments: uHelper.zip |
Mon, Jan 29 2018 10:35 AM | Permanent Link |
Huseyin Aliz myBiss ApS | 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 > |
Mon, Jan 29 2018 1:49 PM | Permanent Link |
kamran | 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 |
Wed, Jan 31 2018 11:42 AM | Permanent Link |
Uli Becker | Much appreciated, Walter...
Uli |
Thu, Mar 8 2018 8:20 PM | Permanent Link |
Frederick Chin | 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 |
This web page was last updated on Wednesday, August 14, 2024 at 02:26 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |