// 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 |