Código: Selecionar todos
FUNCTION DateTimeXml( dDate, cTime, cUF, lUTC, cUserTimeZone )
LOCAL cText, lHorarioVerao
hb_Default( @dDate, Date() )
hb_Default( @cTime, Time() )
hb_Default( @cUF, "SP" )
hb_Default( @lUTC, .T. )
lHorarioVerao := ( dDate >= HorarioVeraoInicio( Year( dDate ) ) .OR. dDate <= HorarioVeraoTermino( Year( dDate ) - 1 ) )
cText := Transform( Dtos( dDate ), "@R 9999-99-99" ) + "T" + cTime
DO CASE
CASE ! Empty( cUserTimeZone ) ; cText += cUserTimeZone
CASE ! lUTC ; cText += "" // no UTC
CASE cUF $ "AC" ; cText += "-05:00"
CASE cUF $ "MT,MS" .AND. lHorarioVerao ; cText += "-03:00"
CASE cUF $ "DF,ES,GO,MG,PR,RJ,RS,SC" .AND. lHorarioVerao ; cText += "-02:00"
// SP não tem mais horário de verão
CASE cUF $ "AM,MT,MS,RO,RR" ; cText += "-04:00"
OTHERWISE ; cText += "-03:00" // demais casos
ENDCASE
RETURN cText