Calcular parámetros de fecha para reporte
Bueno ya estoy terminando mi dolor de cabez... Gracias a ustedes...
Estoy eternamente agradecido..
Tengo otra duda...
Hace unos días estuve buscando información acerca de como hacer cierres. De mes y año...
Beno ya me ah quedado chido
Al iniciar el sistema guardo en variables globales el mes y el año activo
ahora ya teniendo el mes y año activo
la duda es esta..
Como puedo hallar la primera fecha del mes y la ultima fecha del mes.. Sabemos que no todos los meses llevan la misma cantidad de días
ejm.
01/01/2008 - 31/01/2008 :o: 01/02/2008 - 28/02/2008
al hacer un reporte o busqueda de documento
haria un retrieve dw_1.retrieve(fecha1,fehca2)
Estoy eternamente agradecido..
Tengo otra duda...
Hace unos días estuve buscando información acerca de como hacer cierres. De mes y año...
Beno ya me ah quedado chido
Al iniciar el sistema guardo en variables globales el mes y el año activo
ahora ya teniendo el mes y año activo
la duda es esta..
Como puedo hallar la primera fecha del mes y la ultima fecha del mes.. Sabemos que no todos los meses llevan la misma cantidad de días
ejm.
01/01/2008 - 31/01/2008 :o: 01/02/2008 - 28/02/2008
al hacer un reporte o busqueda de documento
haria un retrieve dw_1.retrieve(fecha1,fehca2)
1 Respuesta
Respuesta de Edw. N.
1
Long #Month, #Year , #Mes
String $date, $fecha
DateTime datefrom, dateto
Date DRelativeDate
//Tus Variables Globales mes y año
#Month = Month(Today())
#Year = Year(Today())
//todas las fechas empiezan con 01 //Armamos fecha de acuerdo al mes y año
$date = '01' +'/' + String(#Month) + '/' + String(#Year)
If Isdate($date) Then
datefrom = Datetime(date($date),Time('00:00'))
End If
//sacamos el siguiente mes al actual
if #Month = 12 then
#Mes = 1
Else
#Mes = #Month + 1
End IF
//1er dia del mes siguiente
$fecha = '01' +'/' + String(#Mes) + '/' + String(#Year)
If Isdate($fecha) Then
//restamos 1dia al 1er dia del mes siguiente para calcular ultimo dia mes actual
DRelativeDate = Relativedate(date($fecha),-1)
dateto = Datetime(date(DRelativeDate),Time('23:59'))
End If
//Solo para verificar las fechas
Messagebox("Desde", String(datetime(datefrom)))
Messagebox("Hasta", String(datetime(dateto)))
//Con eso ya podras hacer sus retrieves
String $date, $fecha
DateTime datefrom, dateto
Date DRelativeDate
//Tus Variables Globales mes y año
#Month = Month(Today())
#Year = Year(Today())
//todas las fechas empiezan con 01 //Armamos fecha de acuerdo al mes y año
$date = '01' +'/' + String(#Month) + '/' + String(#Year)
If Isdate($date) Then
datefrom = Datetime(date($date),Time('00:00'))
End If
//sacamos el siguiente mes al actual
if #Month = 12 then
#Mes = 1
Else
#Mes = #Month + 1
End IF
//1er dia del mes siguiente
$fecha = '01' +'/' + String(#Mes) + '/' + String(#Year)
If Isdate($fecha) Then
//restamos 1dia al 1er dia del mes siguiente para calcular ultimo dia mes actual
DRelativeDate = Relativedate(date($fecha),-1)
dateto = Datetime(date(DRelativeDate),Time('23:59'))
End If
//Solo para verificar las fechas
Messagebox("Desde", String(datetime(datefrom)))
Messagebox("Hasta", String(datetime(dateto)))
//Con eso ya podras hacer sus retrieves
