DateTimeDifference (Function) In french: DateHeureDifférence
// Time passed since 01/01/1998 at 12:15
Diff is string
Diff = DateTimeDifference("199801011215", DateSys() + TimeSys())
// Display the time passed
Info("Time passed: " + CR + ...
Left(Diff, 8) + "days" + CR + ...
Middle(Diff, 9, 2) + "hours" + CR + ...
Middle(Diff, 11, 2) + "minutes" + CR + ...
Middle(Diff, 13, 2) + "seconds" + CR + ...
Middle(Diff, 15, 2) + "hundredths of a second")
// Time passed since 01/01/1998 at 12:15
Diff is string
Diff = DateTimeDifference("199801011215", SysDateTime())
// Display the time passed
Info("Time passed: " + CR + ...
Left(Diff, 8) + "days" + CR + ...
Middle(Diff, 9, 2) + "hours" + CR + ...
Middle(Diff, 11, 2) + "minutes" + CR + ...
Middle(Diff, 13, 2) + "seconds" + CR + ...
Middle(Diff, 15, 2) + "hundredths of a second")
// To fill a duration from the result of DateTimeDifference
Diff is string = DateTimeDifference("199801011215", DateSys() + TimeSys())
// convert the difference into a duration variable
Duration1 is Duration = StringToDuration(Diff, durationCenti)
// --------------------------------------------
// Other possible solution
// DateTime1 is DateTime = "199801011215"
// DateTime2 is DateTime = SysDate() + SysTime()
// Duration1 is Duration = DateTime2 - DateTime1
// ----------------------------------------------
// Display the time passed
Info("Time passed: " + Duration1..Day + "days" + CR + ...
Duration1..Hour + "hours" + CR + ...
Duration1..Minute + "minutes" + CR + ...
Duration1..Second + "seconds" + CR + ...
Duration1..Millisecond + "thousandths of a second")
// To fill a duration from the result of DateTimeDifference
Diff is string = DateTimeDifference("199801011215", SysDateTime())
// convert the difference into a duration variable
Duration1 is Duration = StringToDuration(Diff, durationCenti)
// --------------------------------------------
// Other possible solution
// DateTime1 is DateTime = "199801011215"
// DateTime2 is DateTime = DateTimeSys()
// Duration1 is Duration = DateTime2 - DateTime1
// ----------------------------------------------
// Display the time passed
Info("Time passed: " + Duration1..Day + "days" + CR + ...
Duration1..Hour + "hours" + CR + ...
Duration1..Minute + "minutes" + CR + ...
Duration1..Second + "seconds" + CR + ...
Duration1..Millisecond + "thousandths of a second")
Syntax
<Result> = DateTimeDifference(<Start date/time> , <End date/time>)
<Result>: Character string Numbers of days, hours, minutes, seconds passed between two dates in +/-DDDDDDHHMMSSCC format where:- DDDDDD is the number of days passed between the two specified "Date - Time",
- HH is the number of hours,
- MM is the number of minutes,
- SS is the number of seconds,
- CC is the number of hundredths of a second.
This result comes from the following operation: <End date/time> - <Start date/time>. The result is negative if <Start date/time> is after <End date/time>. Caution: To assign this result to a Duration variable, you must use StringToDuration associated with the durationCenti constant. <Start date/time>: Character string or DateTime variable Start date/time in the following format:- YYYYMMDDHHMMSSCC
- YYYYMMDDHHMMSS
- YYYYMMDDHHMM
- YYYYMMDDHH
<End date/time>: Character string or DateTime variable End date/time in the following format:- YYYYMMDDHHMMSSCC
- YYYYMMDDHHMMSS
- YYYYMMDDHHMM
- YYYYMMDDHH
Remarks The validity of dates and times passed in parameter is checked. A message is displayed if the date or time is invalid. A "Date - Time" is considered as being invalid if: - The date is invalid. The date validity can be checked by DateValid.
- The time is invalid. The time validity can be checked by TimeValid.
This function cannot be used to calculate the number of days between dates before October 14 1582 (the switch from the Julian calendar to the Gregorian calendar will not be taken into account). The storage format allows you to store dates from 01/01/0001 to 12/31/9999.
This page is also available for…
|
|
|
| |
| | https://youtu.be/c-Ih6WpX4Ws
https://windevdesenvolvimento.blogspot.com/2019/05/dicas-2106-windev-webdev-mobile-data-29.html
// EDT_BTN_cALCULAR_DIAS
diferencia is string = DateTimeDifference(EDT_DATA_INICIAL_1, EDT_DATA_FINAL_1)
duracao is Duration=StringToDuration(diferencia, durationCenti)
EDT_dias_1=duracao..Day |
|
|
|
| |
| |
| |
|
| Display the result of DateTimeDifference |
|
|
DateTimeLOGIN = Table.MyLOGIN
DateTimeLOGOUT = Table.MyLOGOUT
MyDuration = DateTimeDifference(DateTimeLOGIN,DateTimeLOGOUT)+"0"
Table.MyDuration = MyDuration
Adding the "0" to the result of the calculation is necessary to get a correct display!
|
|
|
|
| |
| |
| |
|
| | // Time passed since 01/01/1998 at 12:15
sTDatahoraAgenda is string = Middle(StringToDate(EDT_DataAgendamento)+StringToTime(Middle(EDT_DataAgendamento,12,5)),1,12) //"199801011215"
Diff is string
Diff = DateTimeDifference(sTDatahoraAgenda, DateSys() + TimeSys())
//Display the time passed
//Info("Time passed: " + CR + ...
//Left(Diff, 8) + "days" + CR + ...
//Middle(Diff, 9, 2) + "hours" + CR + ...
//Middle(Diff, 11, 2) + "minutes" + CR + ...
//Middle(Diff, 13, 2) + "seconds" + CR + ...
//Middle(Diff, 15, 2) + "hundredths of a second")
//Valida data
nSMinutos is int = Val(Middle(Diff, 11, 2))
IF CBOX_Agendamento..Value = True AND Middle(Diff, 11, 2) < 30
Info("A data e hora agendada tem que ser maior do que 30 minutos")
ok1 = False
ELSE
ok1 = True
END |
|
|
|
| |
| |
| |
| |
| |
| |
| | |
|