Military Time

[Dickx]

Is it possible to enter a time as a short time, and on field exit, convert the display to military (24 hour) time.

 

[ProgramError]

YES!

but firstly, a question.

do they enter am or pm when entering the time?


Program Error
Programmers do it one finger at a time!

 

[Dickx]

AM or PM is not entered

 

[TheAceMan1]

How are ya Dickx . . . . .

Unless I'm missing something, [blue]Short Time is Military 24 hour time.[/blue] As long as you enter a proper time [blue]hh:mm[/blue] with/without [blue]am/pm[/blue] the display is coerced properly.

Just set the form to [blue]Short Time[/blue] . . .

See Ya! . . . . . .

 

[Dickx]

AceMan1

Thank you. Follow up question What would the code be to calculate the time difference in minutes between time1 and time2 if for example, time1 = 1900 (7:00 pm) and 0700 (7:00am) Should be 720 minutes

Dickx

 

[TheAceMan1]

Dickx . . . . .

[blue]   = Abs(DateDiff("n", Me!Time1, Me!Time2))[/blue]

See Ya! . . . . . .

 

[Dickx]

Thank you again Aceman1 The code worked except one problem. If I enter 2300 (1100PM)as time1,then 0100 (1:00 AM)as time2, I get the elapsed time as 1320 minutes instead of 120 minutes. How do I correct this?

 

[ProgramError]

check for date difference first before calculating. If there's a date difference then add 1200 minutes to the second value (time2).

Program Error
Programmers do it one finger at a time!

 

[TheAceMan1]

Dickx . . . . .

Sorry to get back so late.

I forgot about [blue]midnight crossover[/blue] (sorry about that). Replace the code with the following:

[blue]= Me!Ans = DateDiff("n",Me!Time1,Me!Time2) + (Me!Time2 < Me!Time1) * (-1440)[/blue]

[purple]Cheers![/purple]

See Ya! . . . . . .

 

[Dickx]

AceMan1

Hopefully one last question/problem. Plugging in the above code I get the following message "Production Information System can't find the field 'Ans'referred to in your expression" Correction ??

Really appreciate your help

Dickx

 

[earthandfire]

DateDiff("n",Me!Time1,Me!Time2) + (Me!Time2 < Me!Time1) * (-1440)

AceMan its not like you to to do unnecessary work - what about:

DateDiff("n",Me!Time1,Me!Time2) - (Me!Time2 < Me!Time1) * 1440

 

[Dickx]

AceMan1

That's got it !!!!!!

Thank you very much

Dickx

 

[TheAceMan1]

[blue]Dickx . . . . .[/blue]
Sorry about the typo! . . . was in a hurry!

[blue]earthandfire[/blue] . . . . .
Thanks for the assist!

See Ya! . . . . . .