FiveTech Software tech support forums

... I must filter the Reserva.dbf local cTipoElemento:="01" local nElemento:= 5 local dDataIniziale:= ctod("04/07/2021") local dDataFinale:= ctod("08/07/2021") and I made this command oReservations:Exec( < || SET FILTER TO AllTrim( ...

Armando no lo he probado pero quizas funcione

DATE() - CTOD("01/01/0001")

Rao. Please can you sort this:   ::aDatos := { ;                 { "Raiz",    1,  1, 0, CToD( "01/02/2021" ), 0 }, ;                 { "cuatro",  1,  5, 1, CToD( "01/01/1921" ), 0 }, ;            ...

if Empty( CTOD( cStr ) )
// invalid date
endif

... )) Else cVenta := Val(StrTran( Alltrim(linetxt),"Venta","" )) lDia :=.F. xfecha := ctod(StrZero(Val(cDia),2)+"/"+nMes+"/"+nAno ) Aadd(mResultado,{xfecha,cCompra,cventa}) Endif EndIf Next oIE:Visible:=.F. oIE:Quit() ...

To All

Just curious if FiveWin has a FW function to calculate a Fiscal Year .. like:

dDate := ctod("06/27/2020")
nFy := Whatever_function( dDate )

nFy should = 2020

Thanks
Rick Lipkin

... to array If lFirst oVar_AA[t,01] := aVar_AA[t,01] := "Last Update : "+Left(Time(),5) oVar_AA[t,02] := aVar_AA[t,02] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_07))),17) oVar_AA[t,03] := aVar_AA[t,03] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_06))),17) oVar_AA[t,04] := aVar_AA[t,04] ...

... not for a a range date I made a test #include "Fivewin.ch"request dbfcdxrequest dbffptFunction test()*local ddcheckin  := ctod("31/07/2020")*local ddcheckout := ctod("31/07/2020")local ddcheckin  := ctod("02/07/2020")local ...

... to array If lFirst oVar_AA[t,01] := aVar_AA[t,01] := "Last Update : "+Left(Time(),5) oVar_AA[t,02] := aVar_AA[t,02] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_07))),17) oVar_AA[t,03] := aVar_AA[t,03] := PadL(CDoW(CToD(AllTrim(P6_AAAA->CDay_06))),17) oVar_AA[t,04] := aVar_AA[t,04] ...

? DToS( CToD( "01/01/2020" ) )

I have 4 date ranges (periods) I have two dates and I want to calculate the number of days for each period. local dcheck_in: = ctod ("17/05/2020") local dCheck_out: = ctod ("17/06/2020") if I do the operation dCheck_out-dcheck_in i get 31 days in the calculation function ...

... XbrGetDate(txt_to_date( dDataIniziale) , "Select a date",dStagioneMin,dStagioneMax, .t., 0.6, ,aGet[1] ),; IIF( dDataIniziale=ctod("") .or. dDataIniziale=nil ,; (dDataIniziale:="Select a date",aGet[1]:CTEXT(date_to_txt(dDataIniziale))),; aGet[1]:CTEXT(date_to_txt(dDataIniziale)) ...

I made another test

Function test()
Local ddata
Local nreturn

SET DATE ITALIAN
ddata:=date()

nReturn := dData- CTOD("01/01/"+RIGHT(DTOC(dData),2)) +1

RETURN nReturn

return 36577 ( today 21.02.2020)

why not run ok

Silvio,

a test with 50 days

SET DATE GERMAN
ddateInit := ctod("31.08.2013")
dDatefinal := ctod("31.08.2019")

DO while dDatefinal >= ddateInit
ddateInit+=50 //add 3 days
MsgAlert( ddateInit )
EndDo

regards
Uwe

I wish make a cicle type
ddateInit:="31.08.2013"
dDatefinal:="31.08.2019"

DO while ctod(ddateInit)== ctod(dDatefinal)

...make some procedures


ddateInit+=3 //add 3 days

EndDo


why it is bad ?