Re: time function
- From: "HME" <helassaad@xxxxxxxxxxx>
- Date: Mon, 5 Jun 2006 22:49:08 -0400
thank you Mohamed, I'll give it a try.
HME
--
---------------------------------------------------------------------
"Are you still wasting your time with spam?...
There is a solution!"
Protected by GIANT Company's Spam Inspector
The most powerful anti-spam software available.
http://mail.spaminspector.com
"Imaginecorp" <imaginecorp@xxxxxxx> wrote in message
news:uhuQfu3hGHA.1264@xxxxxxxxxxxxxxxxxxxxxxx
try this class, will need some tweeking, I wrote it years ago but it worksshould
change stuff like STR() to transform() to bring it uptodate
Good luck
Mohammed
**************************************************
*-- Class: reg_timetextbox (c:\its\libraries\reg_controls.vcx)
*-- ParentClass: textbox
*-- BaseClass: textbox
*-- Time Stamp: 06/03/06 09:54:07 PM
*
DEFINE CLASS reg_timetextbox AS textbox
FontName = "MS Sans Serif"
FontSize = 8
Hours = 12
Format = "!K"
Height = 19
InputMask = "99:99 AM"
MaxLength = 8
MousePointer = 99
MouseIcon = "..\graphics\normal02.cur"
SelectOnEntry = .T.
SpecialEffect = 1
Width = 71
ColorSource = 0
DisabledBackColor = RGB(224,223,227)
DisabledForeColor = RGB(0,0,0)
IntegralHeight = .T.
Name = "reg_timetextbox"
*-- adds or substract time, accepts 3 parameters , time , date ,
"Add"/"Minus"
PROCEDURE add_minus_time
Lparameters ptime,pdate,pdowhat
mdowhat = Iif(Alltrim(Upper(pdowhat)) = "ADD",.T.,.F.)
Local preturn
Store 0 To mhours,mminutes,mdate
Store "" To mampm
If mdowhat
mminutes = Val(Substr(ptime,4,2)) + Val(Substr(This.Value,4,2))
If mminutes > 59
mhours = Int(mminutes/60)
mminutes = Mod(mminutes,60)
Endif
mhours = Val(Left(ptime,2))+Val(Left(This.Value,2))
mhours = Iif(mhours > 12,(mhours - 12),mhours)
mpmam = Iif(mhours > 12,Iif(Right(ptime,2) =
"AM","PM","AM"),Right(ptime,2))
mreturn = Alltrim(Str(mhours,2))+" "+Str(mminutes,2)+" "+Left(mpmam,1)
Else
Endif
Return mreturn
ENDPROC
PROCEDURE Valid
If !Empty(Left(This.Value,2)) Or !Empty(Substr(This.Value,4,2))
If !Inlist(Upper(Right(This.Value,2)),"PM","AM")
=Messagebox("Must enter the 'AM'/'PM'for this time...",48,its_logo)
This.Value = ""
This.Refresh
Return .F.
Endif
If Val(Left(This.Value,2)) > 12
=Messagebox("You have entered an invalid hour for the
time...",48,its_logo)
This.Value = ""
This.Refresh
Return .F.
Endif
If Val(Substr(This.Value,4,2)) > 60
=Messagebox("You have entered an invalid minute for the
time...",48,its_logo)
This.Value = ""
This.Refresh
Return .F.
Endif
Endif
ENDPROC
ENDDEFINE
*
*-- EndDefine: reg_timetextbox
**************************************************
"HME" <helassaad@xxxxxxxxxxx> wrote in message
news:u-ednf8qpLvCyuPZnZ2dnUVZ_tOdnZ2d@xxxxxxxxxxxxxx
Hi all,
What is the best way to define a field in a table to contain Time?
init be a character or datetime?
also, once it is defined in a table, how is best to utilize that field
a
form? like what input mask should it have and how do you stop the user
from
entering an invalid time?
Is there a control (or does anyone have one?) that could be dropped on a
form that is already validated as a time field?
Thanks
HME
--
---------------------------------------------------------------------
"Are you still wasting your time with spam?...
There is a solution!"
Protected by GIANT Company's Spam Inspector
The most powerful anti-spam software available.
http://mail.spaminspector.com
.
- References:
- time function
- From: HME
- Re: time function
- From: Imaginecorp
- time function
- Prev by Date: Re: Report Amount format Q.
- Next by Date: Sedna, du nouveau...
- Previous by thread: Re: time function
- Next by thread: Re: Trying to use Run (!) command in Fox DOS
- Index(es):
Relevant Pages
|
