FiveTech Software tech support forums

... dDataNote  :=date()+2,aGet[1]:refresh())      SEPARATOR      MENUITEM "Pulisci"  ACTION ( dDataNote  :=ctod("  /  /  "),aGet[1]:refresh())      ENDMENU   return oPopupDate  the command MENUITEM "Pulisci" ...

... LenVar( cVar,ctype,nLen ) If cType="C" cVar:=cVar+Space(nlen-Len(cVar)) ElseIf cType="D" If Valtype( cVar)="C" cVar:=ctod("") Endif Endif Return cVar cVar es el campo de la consulta ctype el tipo de dato del campo nLen es el tamaño del campo con esto puedo ...

hi Mr Rao
thank you, CTOD("") is what I was looking for
bye

damianodec wrote:hi to all
is there any function that return total days from years 0 ?

thanks

What date do you mean by "Year 0"?

Date() - CTOD( "" ) --> JulianDay meaning number of days from January 1, 4713 BC

Sorry posting in english...
Mr Rao...

FW_MTHSLAPSED( ctod("01/01/2018"), ctod("31/01/2018") ) gives 0

Thats right?
Regards, Euclides

... :=oQryClien:Codigo oQryCob:CodiDeu :=nCSoli oQryCob:CodiGa1 :=nCGa1 oQryCob:CodiGa2 :=nCGa2 oQryCob:Cant_Cuo :=oQryCob:Cuo_Ade oQryCob:Fecha_At :=ctod("10/"+str(vMes,2)+"/"+substr(str(vAno,4),3,2)) oQryCob:FechaCar :=Date() oQryCob:tRemesa :=1 oQryCob:tipo_movi:=1 oQryCob:ulti_movi:=ctod("10/"+str(vMes,2)+"/"+substr(str(vAno,4),3,2)) ...

... CStr(<xValue>)->cString CStrToVal(<cString>,<cValtype>)->xValue CtoBit(<cString>,<cBitPattern>)->nInteger CToD(<cDate>)->dDate CtoDoW(<cDayName>)->nDayOfWeek CtoF(<cFloat>)->nNumber CtoMonth(<cMonthName>)->nMonth CtoN(<cDigits>,[<nBase>],[<lNegative>])->nInteger ...

... ConvToOemCP Cos CosH Cot CountLeft CountRight CreateObject Crypt CSetAtMuPa CSetCent CSetCurs CSetKey CSetRef CSetSafety CStr CStrToVal CtoBit CToD CtoDoW CtoF CtoMonth CtoN CtoT CurDir CurDrive Date DateTime Day DaysInMonth DaysToMonth DBAppend DBClearFilter DBClearIndex DBClearRelation DBCloseAll ...

... <= day(::dDob) // nAge3 := 0 nAge3 := day(::dDob) - day(date()) endif Thank you Mr. Marc :D oPerson1 :=Tperson():new("Marc Venken",ctod("26/11/1965")) I think that is your DOB, right ? :lol: Best Regards oPerson1 :=Tperson():new("Fafi",ctod("09/05/1967"))

... in it's place. The line of code failing: AADD( aPMitems, { oPMtable:PMSCOD, dBaseD, 0, oPmtable:recno() } ) The file is oPMtable. dBaseD is simply CTOD( "01/01/80" ). The problem is not here, but when database.prg skips to the record, apparently it does not like one of the values in the ...

Antonio buenas noches, ahora son estos: Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http:...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

algo do tipo:
d1 := ctod("01/01/2016")
d2 := ctod("01/01/2017")
alert((d2-d1)/30)

... we think we need : data bird as date data tva as char data counter as num in the method new we set the defaults ? :: name:="" :: bird:=ctod("26/11/1985") :: tva:= "blabla" :: counter:= 1 but also from from datasource ? :: bird:= customer->bird :: counter:= customer->number ...

... 12.01 - Jan. 2012 dataor.prg(380) Error E0030 Syntax error: "syntax error at '}'" this is Row 380: oBrw:Dataop:bEditValue := { || CTOD( oRs:Fields( "DATAOP" ):Value } I also tried in this way to understand the problem: oBrw:Daiop:bEditValue := " " it compile ...