Using Visual FoxPro 9.0 from Harbour
Usando hbrun, sem compilar!
#require "hbwin"
PROC Main
LOCAL vfp, DateNow, DateThen, DateDif, AgeYears
vfp = win_oleCreateObject("VisualFoxPro.Application")
SET DECIMALS TO 3
DateNow = VAL(vfp:EVAL("SYS(1)"))
DateThen = VAL(vfp:EVAL("SYS(11, '09/26/1962')"))
DateDif = DateNow - DateThen
AgeYears = DateDif / 365.25
? "Today's Julian Date "
?? TRANSFORM(DateNow, '9999999')
? "1962/11/03 Julian Date "
?? TRANSFORM(DateThen,'9999999')
? TRANSFORM(DateDif, 'A difference of 9999999')
? TRANSFORM(AgeYears,'Age In Years 99.999')
?
vfp:Quit()
RETURN
Compilando.
c:\users\jlc\utils>hbmk2 orders.prg hbwin.hbc
#include "hbgtinfo.ch"
PROC Main()
local vfp, cText
vfp = win_oleCreateObject("VisualFoxPro.Application")
vfp:DoCmd("cd c:\utils")
vfp:DoCmd("SELECT * FROM orders WHERE part_id = 'C-300-4010' INTO CURSOR test")
vfp:DoCmd("Go Top")
vfp:DoCmd("_VFP.DataToClip(,,3)")
vfp:Quit()
cText := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
? cText
RETURN
https://groups.google.com/forum/#!topic/harbour-users/5y7v48zDdK8
Agora aparece essa possibilidade de usarmos esses recursos do VFP. Legal!
Saudações,
Itamar M. Lins Jr.