FiveTech Software tech support forums

Hola

set date brit
? date() - ctod("1/1/0") // = 43707

Saludos, Euclides

Ok

SET CENTURY ON
SET DATE FORMAT TO "DD/MM/YYYY"
? ( Date() - Ctod( "01/01/1900" ) )

...  ,"Seleziona una data",{^ 2019/06/15 }, {^ 2019/09/20 } ,,0.6 ),;               IIF( dDataStart=ctod("") .or. dDataStart=nil ,;                          aGet[3]:cText( "Selezionare una data")         ...

no this is only for test static dDataIniziale,dDataFinale,lshowNumeri on function Beach() //only for test oApp:dDataIniziale := ctod("01-07-2018") oApp:dDataFinale := ctod("07-08-2018") oApp:lshowNumeri:= .t. on Function Change_Plan oReservation:setorder(1) oReservation:Exec( ...

... cDbfPathFunction test()Local oreservationLocal cFilterLocal cTypeRoom:="01"Local nElemento:= 2Local dDataIniziale  := ctod("01/07/2018")Local dDataFinale    := ctod("07/08/2018") RDDSetDefault( 'DBFCDX' ) cDbfPath    := cFilePath(GetModuleFileName( ...

What is strange in it? You look at your own code carefully. You have used CTOD() before setting DATE FORMAT. Till you set the date format is the default format "mm/dd/yy". 14 as month is invalid. To avoid such mistakes it is a good idea to use STOD( ...

If I have this test Function test() Local dDatafine:=ctod("14/08/2019") SET DATE FORMAT "dd/mm/yyyy" SET DATE ITALIAN SET CENTURY ON SET EPOCH TO ( YEAR( DATE() ) - 50 ) ? dDatafine return nil it return me this https://i.postimg.cc/0rRC79S9/fffffffffffffffffffffffffffffffffffffffffffffff.png ...

... ):Value IF (VALTYPE(xReturn)="U") DO CASE CASE cValType=="C" xReturn := "" CASE cValType=="D" xReturn := CTOD( " / / " ) CASE cValType=="N" xReturn := 0 CASE cValType=="L" xReturn := .F. ENDCASE ENDIF xReturn := _CdmType( xReturn, ...

Have you tried with

my_filter = "dtos(oCust:Hiredate) >= dtos(" + ctod(dDate1) + ")"
oCust:SetFilter(my_filter)

... : "+Origen,aFon5) oPrn:Cmsay(3.5,.2,"Destino : "+Destino,afon5) oPrn:Cmsay(4.5,.2,"Fecha : "+Vec_Dia[dow(ctod(fechasalida))]+ " "+FechaSalida,afon5) * oPrn:Cmsay(5.0,.2,"Hora : "+Am_Pm(AllTrim(HoraSalida)),afon5) oPrn:Cmsay(5.0,.2,"Hora ...

... Integer Minutes aRetVal[3,2] Total Minutes (nn.nnnn) * aRetVal[4,1] Integer Seconds aRetVal[4,2] Total Seconds (nn) * $EXAMPLES$ * FT_ELAPSED(CTOD('11/28/90'), CTOD('11/30/90'), '08:00:00', '12:10:30') * will return: * * aRetVal[1,1] -> 2 (Days) aRetVal[1,2] -> 2.1740 Days * aRetVal[2,1] ...

... say an array is made up of a few records of hashes with the following structure h_["receipt"] := "100" h_["date"] := ctod("05/12/2018") h_["amount"] := 1000 How to specify the COLUMNS part in xBrowse command if we just want to display h_["receipt"] ...

Yo haría dos cosas, primero cambiaría cfecha por ctod(cfecha) , para convertir el campo cfecha a fecha si esta definida Albaran->Fecha como fecha segundo Upper(cnombre)$Upper(Albaran->Spro) . Vamos las pondría las dos en mayúsculas por si acaso ...

NOT RUN
MENUITEM "Pulisci" ACTION aGet[1]:SetDate( CTOD( "" ) )

or

MENUITEM "Pulisci" ACTION (dDataNote :=cTod(""), aGet[1]:SetDate( dDataNote ) ,aGet[1]:refresh())

It may be easier to use aGet[ 1 ]:SetDate( dNewDate )
For empty date, :SetDate( CTOD( "" ) )