Hi Guys,
Do you know if is there in Harbour/Fivewin any function like GetTime() from Java ?
Or
How could I convert a Date to a double value?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Java GetTime Function
Hola, Algo asi?
https://www.google.com/search?q=converter+uma+data+em+um+valor+duplo+harbour&oq=converter+uma+data+em+um+valor+duplo+harbour&aqs=chrome..69i57j33i160l2.5227j0j15&sourceid=chrome&ie=UTF-8
Regards, saludos.
// https://pt.stackoverflow.com/questions/494387/como-formatar-uma-data-no-harbour
#Include "FiveWin.ch"
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET EPOCH TO YEAR( DATE() ) - 30
SET SOFTSEEK OFF
SET WRAP ON
SETCANCEL( .F. )
SET CONFIRM OFF
SET DELETED ON
SET _3DLOOK ON
SET UNIQUE OFF
SET ESCAPE OFF
SET EXACT ON // CONTROLA O :=, = e ==
SET EXCLUSIVE OFF
SET MULTIPLE OFF
SET OPTIMIZE ON
? hb_Dtoc( Date(), "YYYY-MM-DD" )
? hb_Dtoc( Date(), "DD-MM-YYYY" )
? hb_Dtoc( Date(), "MMDDYY" )
? hb_Dtoc( Date(), "DDMMYY" )
RETURN NIL
FUNCTION hb_Dtoc( dData, dFormat )
IF dFormat == NIL
RETURN Dtoc( dData )
ENDIF
dFormat := Upper( dFormat )
dFormat := StrTran( dFormat, "DD", StrZero( Day( dData ), 2 ) )
dFormat := StrTran( dFormat, "MM", StrZero( Month( dData ), 2 ) )
dFormat := StrTran( dFormat, "YYYY", StrZero( Year( dData ), 4 ) )
dFormat := StrTran( dFormat, "YY", StrZero( Mod( Year( dData ), 100 ), 2 ) )
RETURN( dFormat )
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
How could I convert a Date to a double value?? HB_DateTime() - STOT("")
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr Rao,
When i tried HB_DateTime() - STOT("") the function i called is receiving this date 14/01/8637
When i tried HB_DateTime() - STOT("") the function i called is receiving this date 14/01/8637
Please explain your actual requirement.
This is a DateTime value ( valtype "T" )
? HB_DateTime() // --> 2024-12-09 19:29:45Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
I need to call this function:
PIXCD_ConsultarPixRecebidos(ADataInicio, ADataFim, ATxId, ACpfCnpj, PagAtual, ItensPorPagina, sResposta, esTamanho)
Where aDataInic and aDataFim are from DATE type. That i've declared by this way:
DLL32 FUNCTION PIXCD_ConsultarPixRecebidos(ADataInicio AS _DOUBLE,ADataFim AS _DOUBLE,ATxId AS STRING,;
ACpfCnpj AS STRING, PagAtual AS _INT, ItensPorPagina AS _INT,;
@sResposta AS STRING,@nTamanho AS _INT) AS LONG PASCAL FROM "PIXCD_ConsultarPixRecebidos" LIB oACPx
PIXCD_ConsultarPixRecebidos(ADataInicio, ADataFim, ATxId, ACpfCnpj, PagAtual, ItensPorPagina, sResposta, esTamanho)
Where aDataInic and aDataFim are from DATE type. That i've declared by this way:
DLL32 FUNCTION PIXCD_ConsultarPixRecebidos(ADataInicio AS _DOUBLE,ADataFim AS _DOUBLE,ATxId AS STRING,;
ACpfCnpj AS STRING, PagAtual AS _INT, ItensPorPagina AS _INT,;
@sResposta AS STRING,@nTamanho AS _INT) AS LONG PASCAL FROM "PIXCD_ConsultarPixRecebidos" LIB oACPx
Do you propose to use
days.fraction of day
as double?
Hope you made sure in which format that software expects the date-time values.
Another most important thing is what is the Epoch date. This differs from software to software.
Microsoft' Ole sources count date/time from epoch Jan 1, 1900 00 hours
Unix / java/ etc start with Jan 1 1970 00 hours
FW_DateToUnix( tHarbourDateTime ) --> nMilliSeconds ( Unixtime )
The value we provide depends on what the other library actually expects
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank you,
It worked with FW_DateToUnix() ;)
It worked with FW_DateToUnix() ;)