Procedure ConverteDataTHora2DataHora(DataHoraTipoT)
sNovaData is string
IF Middle(DataHoraTipoT,11,1)="T"
sNovaData = Middle(DataHoraTipoT,1,4)+Middle(DataHoraTipoT,6,2)+Middle(DataHoraTipoT,10,2)+Middle(DataHoraTipoT,12,2)+Middle(DataHoraTipoT,15,2)+Middle(DataHoraTipoT,18,2)
END
RESULT(sNovaData)
Procedure ExtraiDataHora2Data(DataHora)
sNovaData is string
IF Middle(DataHora,5,1) = "-" OR Middle(DataHora,5,1) = "/" OR Middle(DataHora,5,1) = "."
sNovaData = Middle(DataHora,1,4)+Middle(DataHora,6,2)+Middle(DataHora,10,2)
ELSE
sNovaData = Middle(DataHora,1,4)+Middle(DataHora,5,2)+Middle(DataHora,7,2)
END
RESULT(sNovaData)
Procedure ExtraiDataHora2Hora(DataHora)
sNovaHora is string
IF Middle(DataHora,5,1) = "-" OR Middle(DataHora,5,1) = "/" OR Middle(DataHora,5,1) = "." OR Middle(DataHora,13,1) = ":"
sNovaHora = Middle(DataHora,11,2)+Middle(DataHora,14,2)+Middle(DataHora,17,2)
ELSE
sNovaHora = Middle(DataHora,9,2)+Middle(DataHora,11,2)+Middle(DataHora,13,2)
END
RESULT(sNovaHora)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/