FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Wx - Exemplo de diferença entre datas e horas
Wx - Exemplo de diferença entre datas e horas
Iniciado por adrianoboller, 27,nov. 2015 19:53 - No hay respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 27,noviembre 2015 - 19:53
// Time passed since 01/01/1998 at 12:15
s
TDatahoraAgenda is
string
=
Middle
(
StringToDate
(
EDT_
DataAgendamento
)
+
StringToTime
(
Middle
(
EDT_
DataAgendamento
,
12
,
5
)
)
,
1
,
12
)
//"199801011215"
Diff is
string
Diff
=
DateTimeDifference
(
s
TDatahoraAgenda
,
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
n
SMinutos 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
--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto