topic-14229

Board index FiveWin para Harbour/xHarbour Año, Meses y dias

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Año, Meses y dias
Posted: Sat Jan 10, 2009 02:41 AM

Hola colegas

Alguna rutina para el calculo de Año, Meses y dias entre dos fechas? :?:

mucgas gracias

david
argentina

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Año, Meses y dias
Posted: Sat Jan 10, 2009 05:02 AM

dobfivewin wrote:Hola colegas

Alguna rutina para el calculo de Año, Meses y dias entre dos fechas?

mucgas gracias

david
argentina

viewtopic.php?f=6&t=12071&hilit=CALCULAR+MESES

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

noe aburto

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Re: Año, Meses y dias
Posted: Sat Jan 10, 2009 04:59 PM

dobfivewin wrote:Hola colegas

Alguna rutina para el calculo de Año, Meses y dias entre dos fechas?

mucgas gracias

david
argentina

//// pasar por referencia nAI,nMI,nDI
function nDMA(dFecIni,dFecFin,nAI,nMI,nDI)
local nAF,nMF,nDF

nAI:=year(dFecIni)
nMI:=month(dFecIni)
nDI:=day(dFecIni)
nAF:=year(dFecFin)
nMF:=month(dFecFin)
nDF:=day(dFecFin)
// dia
if nDI>nDF
nDF+=30 ; nMF--
endif
nDI:=nDF-nDI
// mes
if nMI>nMF
nMF+=12 ; nAF--
endif
nMI:=nMF-nMI
// año
nAI:=nAF-nAI
return NIL

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

FiveTech Support Forums

Continue the discussion