Windev21 Aulas,Estudos e Desenvolvimento: Curso WinDev - Datas - 004

Video youtube

http://doc.windev.com/en-US/?3027026&name=DateSys
http://doc.pcsoft.fr/fr-FR/?3027026&name=datesys_fonction

http://doc.windev.com/en-US/?3027029&name=functions_for_managing_the_dates_and_times
http://doc.pcsoft.fr/fr-FR/?3027029&name=fonctions_gestion_des_dates_des_heures

Nessa aula vou ensinar como Transformar uma Data Date em Texto

This class will teach you how to transform a Data Date Text

Cette classe va vous apprendre comment transformer une date de données texte

d_data_hoje is Date=DateSys()
t_hora_hoje is Time=TimeSys()
s_dhEvento is string=NumToString(d_data_hoje..Year,"04d")+"-"
s_dhEvento+=NumToString(d_data_hoje..Month,"02d")+"-"
s_dhEvento+=NumToString(d_data_hoje..Day,"02d")+"T"
s_dhEvento+=NumToString(t_hora_hoje..Hour,"02d")+":"
s_dhEvento+=NumToString(t_hora_hoje..Minute,"02d")+":"
s_dhEvento+=NumToString(t_hora_hoje..Second,"02d")+"-"
IF empresa_parametro.horario_verao=True THEN
    s_dhEvento+="02:00"
ELSE
    s_dhEvento+="03:00"
END
// 2016-02-09T20:22:27-02:00

Tem tambem a Dica do Angelo Reis

DhEmi ou DhSai = DateToString(DateSys(),"YYYY-MM-DD")+"T"+TimeToString(Now(),"HH:MM:SS")+"-03:00"