Trabajar con FECHAS

[ka0s]

Bueno hace rato ya no tenía ninguna duda, así que vine a molestar de nuevo.
Espero que me puedan dar una mano.
Lo que estoy haciendo es una aplicación para un gimnasio.
Lo que intento hacer es que en una Grilla (MSHFLEXGRID) me figure si pagó o no pagó el socio ingresado.

O sea, yo cuando ingreso un socio nuevo, en un textbox figura la fecha que se inscribe (día que se crea el nuevo socio) y quiero que al MES siguiente, en la grilla me figure en ROJO si tiene que pagar NUEVAMENTE el mes o si ya pagó que figure en VERDE.

La verdad, no tengo idea como hacerlo.
Yo pensaba hacer:

Si fechainscripcion > fechaactual entonces
        GRILLA en color ROJO.
Sino
        GRILLA en color VERDE.

Obviamente TOMANDO con Mid o Left solamente los dos primeros valores de la fecha, pero no me salió.

Espero que me puedan dar una mano.
Desde ya muchas gracias!

[seba123neo]

Hola, un ejemplo para que veas como seria:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
  With MSHFlexGrid1
     .FixedCols = 0

     .FormatString = "Fecha Alta|Nombre Cliente"

     .AddItem "07/09/2009" & vbTab & "Sebastian"
     .AddItem "08/09/2009" & vbTab & "Leandro"
     .AddItem "09/09/2009" & vbTab & "Cobein"
     .AddItem "01/06/2009" & vbTab & "Ivo"
     .AddItem "15/06/2009" & vbTab & "Karcrack"
     
     .ColWidth(0) = 1500
     .ColWidth(1) = 1500
     .RowHeight(1) = 0
  End With
  Call ColorearFecha
End Sub

Private Sub ColorearFecha()
   Dim vFechaAlta As String, vFechaPago As String
   Dim i As Integer
   Dim vColumna As Integer
   
   MSHFlexGrid1.Redraw = False
   For i = 2 To MSHFlexGrid1.Rows - 1
       For vColumna = 0 To MSHFlexGrid1.Cols - 1
           MSHFlexGrid1.Row = i
           MSHFlexGrid1.Col = vColumna
           vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy"))
           vFechaPago = DateAdd("d", 30, vFechaAlta)
           If Date > CDate(vFechaPago) Then
              MSHFlexGrid1.CellBackColor = vbRed
           Else
               MSHFlexGrid1.CellBackColor = vbGreen
           End If
       Next vColumna
   Next i
   MSHFlexGrid1.Redraw = True
End Sub

fijate ahi que esta la fecha de alta en cada cliente, lo recorre y se fija si la fehca actual es mayor a la fecha que debe pagar (fecha de alta + un mes).fijate que te los marca con color rojo los que se pasaron en la fecha de paga (Karcrack y Ivo )   y los que todavia no les llego la fecha de pagar los marca en verde.igualemnte en la base de datos debes tener un campo que guarde la ultima fecha de pago, porque despues la fecha de alta una vez que ya pago no te va a servir mas, solo la primera vez sirve, pero despues te vas a tener que fijar en la fecha de ultimo pago, y para saber en que fecha debes fijarte te podes crear un campo que guarde si ya pago una vez o todavia no pago, me explico...si recien lo das de alta y no pago a ese campo le pones una "N" de nuevo, y fijas en la fecha de alta...y si ya pago una vez a ese campo le pones una "P" de pagado y entonces te fijas en la fecha de ultimo pago.

saludos.

[ka0s]

Te agradezco Seba siempre por ayudarme.
Pero la verdad se me complica entender el código. Y también traté de aplicarlo a mi proyecto que es con BASE DE DATOS pero tampoco pude hacerlo andar.

Cuando creo un nuevo socio le puse un campo que diga "Fecha Que Paga", como me indicaste vos.

Más que nada de el codigo que pusiste no entiendo el if.
Si no es mucho pedir, podrías comentarlo a ver si lo entiendo de esa manera?

Desde ya muchas gracias Seba!

Saludos!

PD: Dejo una imágen del proyecto así ven como es.

Form Principal


Form Nuevo


Saludos!!

[seba123neo]

es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico:

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaAlta As String, vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    MSHFlexGrid1.Redraw = False 'deshabilita el repintado para que no parpadee cuando se pintan las celdas
    For i = 2 To MSHFlexGrid1.Rows - 1 ' recorre las filas de la grilla
      For vColumna = 0 To MSHFlexGrid1.Cols - 1 'recorre las columnas de la fila actual
            MSHFlexGrid1.Row = i 'posiciona la fila actual
            MSHFlexGrid1.Col = vColumna 'posiciona la columna actual
            vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy")) ' saca la fecha de alta de la columna 0
            vFechaPago = DateAdd("d", 30, vFechaAlta) 'calcula la fecha de pago sumandole 30 dias a la fecha de alta
            If Date > CDate(vFechaPago) Then 'si la fecha actual es mayor a la fecha de pago es porque el tipo no pago
               MSHFlexGrid1.CellBackColor = vbRed 'marca en rojo
            Else
               MSHFlexGrid1.CellBackColor = vbGreen ' marca en verde
            End If
      Next vColumna 'siguiente columna
    Next i 'siguiente fila
    MSHFlexGrid1.Redraw = True ' habilita el repintado
End Sub

en la grilla debe haber otra columna( que seria otro campo en la base de datos) que guarde la proxima fecha de pago, la calculas directamente cuando das de alta el cliente, por ejemplo ahi vos diste de alta 2 clientes cuya fecha de alta es la misma, bueno cuando das de alta el cliente debes guardar tambien la fecha de proximo pago (que seria la fecha de alta + 30 dias). y en la grilla para estos 2 te quedaria que la fecha de proximo pago seria el 08/10/2009.eso es para cuando das de alta, ahora debes hacer una pantalla que sea para hacer pagar el cliente o desde un boton ahi nomas , ni idea como tenes pensado hacerlo, pero la idea seria que si paga por segunda vez otra vez le sumes a la fecha de pago otros 30 dias y asi sucesivamente cada vez que el cliente paga.la funcion esta la llamas despues de que cargas la grilla siempre.

saludos.

[ka0s]

es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico:

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaAlta As String, vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    MSHFlexGrid1.Redraw = False 'deshabilita el repintado para que no parpadee cuando se pintan las celdas
    For i = 2 To MSHFlexGrid1.Rows - 1 ' recorre las filas de la grilla
      For vColumna = 0 To MSHFlexGrid1.Cols - 1 'recorre las columnas de la fila actual
            MSHFlexGrid1.Row = i 'posiciona la fila actual
            MSHFlexGrid1.Col = vColumna 'posiciona la columna actual
            vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy")) ' saca la fecha de alta de la columna 0
            vFechaPago = DateAdd("d", 30, vFechaAlta) 'calcula la fecha de pago sumandole 30 dias a la fecha de alta
            If Date > CDate(vFechaPago) Then 'si la fecha actual es mayor a la fecha de pago es porque el tipo no pago
               MSHFlexGrid1.CellBackColor = vbRed 'marca en rojo
            Else
               MSHFlexGrid1.CellBackColor = vbGreen ' marca en verde
            End If
      Next vColumna 'siguiente columna
    Next i 'siguiente fila
    MSHFlexGrid1.Redraw = True ' habilita el repintado
End Sub

en la grilla debe haber otra columna( que seria otro campo en la base de datos) que guarde la proxima fecha de pago, la calculas directamente cuando das de alta el cliente, por ejemplo ahi vos diste de alta 2 clientes cuya fecha de alta es la misma, bueno cuando das de alta el cliente debes guardar tambien la fecha de proximo pago (que seria la fecha de alta + 30 dias). y en la grilla para estos 2 te quedaria que la fecha de proximo pago seria el 08/10/2009.eso es para cuando das de alta, ahora debes hacer una pantalla que sea para hacer pagar el cliente o desde un boton ahi nomas , ni idea como tenes pensado hacerlo, pero la idea seria que si paga por segunda vez otra vez le sumes a la fecha de pago otros 30 dias y asi sucesivamente cada vez que el cliente paga.la funcion esta la llamas despues de que cargas la grilla siempre.

saludos.

Muchas gracias campeón, no solo me ayudaste sino que me diste una idea más para mi programa.
Cualquier duda aparezco por acá.

Gracias Seba!!

[ka0s]

Bueno vuelvo de nuevo acá.
Usé tu código Seba adaptandolo a la base de datos que estoy usando yo, pero no me funcionó como esperaba.

Agregué un campo nuevo como dijiste vos que se llame PROXIMO PAGO y como DateAdd le di el valor de un mes.

Pero cuando puse el código tuyo, modificandolo, me pinto todas de ROJO.
Y tendría que haberme pintado LA 1ERA SOLAMENTE mientras que la 2da y la 3era FILA tendrían que estar en VERDE.

Les dejo el código modificado:

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaAlta As String, vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    grilla.Redraw = False
    For i = 1 To grilla.Rows - 1
        For vColumna = 1 To grilla.Cols - 1
            grilla.Row = i
            grilla.Col = vColumna
            If RST!inscripcion >= CDate(RST!proximopago) Then
               grilla.CellBackColor = vbRed
            Else
                grilla.CellBackColor = vbGreen
            End If
        Next vColumna
    Next i
    grilla.Redraw = True
End Sub

Y una imágen para que vean lo que les digo:



Están marcadas en verde las dos filas que tendrian que figurar como PAGO y en rojo los que tienen que pagar nuevamente.

Saludos y gracias!

[seba123neo]

tenes que poner el numero de la columna donde esta la fecha de pago..quedaria algo asi en tu caso es la columna 7.

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    MSHFlexGrid1.Redraw = False
    For i = 2 To MSHFlexGrid1.Rows - 1
        For vColumna = 0 To MSHFlexGrid1.Cols - 1
            MSHFlexGrid1.Row = i
            MSHFlexGrid1.Col = vColumna
            vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 7), "dd/MM/yyyy"))
            If Date > CDate(vFechaPago) Then
               MSHFlexGrid1.CellBackColor = vbRed
            Else
                MSHFlexGrid1.CellBackColor = vbGreen
            End If
        Next vColumna
    Next i
    MSHFlexGrid1.Redraw = True
End Sub

proba eso, y fijate que hay algo mal ahi, porque el primer registro tiene la misma fecha de pago que la fecha de inscripcion, y deberia tener 1 mes mas o sea 09/11/2009, cuando das de alta debes guardar en ese campo 1 mes mas.en realidad te tendrian que salir todas en verde porque la fecha de hoy no es mayor a la fecha de 09/10/2009

saludos.

[ka0s]

tenes que poner el numero de la columna donde esta la fecha de pago..quedaria algo asi en tu caso es la columna 7.

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
   Dim vFechaPago As String
   Dim i As Integer
   Dim vColumna As Integer

   MSHFlexGrid1.Redraw = False
   For i = 2 To MSHFlexGrid1.Rows - 1
       For vColumna = 0 To MSHFlexGrid1.Cols - 1
           MSHFlexGrid1.Row = i
           MSHFlexGrid1.Col = vColumna
           vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 7), "dd/MM/yyyy"))
           If Date > CDate(vFechaPago) Then
              MSHFlexGrid1.CellBackColor = vbRed
           Else
               MSHFlexGrid1.CellBackColor = vbGreen
           End If
       Next vColumna
   Next i
   MSHFlexGrid1.Redraw = True
End Sub

proba eso, y fijate que hay algo mal ahi, porque el primer registro tiene la misma fecha de pago que la fecha de inscripcion, y deberia tener 1 mes mas o sea 09/11/2009, cuando das de alta debes guardar en ese campo 1 mes mas.en realidad te tendrian que salir todas en verde porque la fecha de hoy no es mayor a la fecha de 09/10/2009

saludos.

Me sigue sin funcionar Seba.
O sea lo que vos me dijiste arriba de que algo esta mal por lo del MES yo lo hice así A PROPÓSITO. Modifiqué LA BASE DE DATOS MANUALMENTE para que me muestre uno en ROJO y el resto en VERDE para corroborar el código.

Por otro lado probé lo que me dijiste pero no me funcionó. Me ponía todos en VERDE y como dije antes UNO LO MODIFIQUE A PROPÓSITO PARA VERLO EN ROJO pero lo sigue mostrando VERDE.

Y una cosa más, de tu código no se para que usas la variable FechadePago y tratás de obtenerla con TextMatrix si yo ya la tengo haciendo RST!ProximoPago.

Te dejo el código tuyo, modificado de nuevo:

Private Sub ColorearFecha()
   Dim i As Integer
   Dim vColumna As Integer

   grilla.Redraw = False
   For i = 1 To grilla.Rows - 1
       For vColumna = 1 To grilla.Cols - 1
           grilla.Row = i
           grilla.Col = vColumna
           If RST!inscripcion >= CDate(RST!proximopago) Then
              grilla.CellBackColor = vbRed
           Else
               grilla.CellBackColor = vbGreen
           End If
       Next vColumna
   Next i
   grilla.Redraw = True
End Sub

O sea si mirás bien, esta todo tal cual lo pusiste vos, SALVO QUE EN VEZ DE USAR LAS VARIABLES FECHAALTA Y FECHADEPAGO LO SACO DIRECTAMENTE CON RST!INSCRIPCION Y RST!PROXIMOPAGO

Espero que haya quedado claro, y desde ya muchas gracias por prestarle atención a esto

[ka0s]

Gente, finalmente un amigo me pudo solucionar el problema que tenía con el codigo de seba

Acá se los dejo como me quedó y funciono perfectamente.

Dim vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer
    grilla.Redraw = False
    For i = 1 To grilla.Rows - 1
        For vColumna = 0 To grilla.Cols - 1
            grilla.Row = i
            grilla.Col = vColumna
           
            If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then
               grilla.CellBackColor = vbRed
            Else
                grilla.CellBackColor = vbGreen
            End If
        Next vColumna
    Next i
    grilla.Redraw = True

Les dejo la imágen:



MUCHAS GRACIAS SEBA POR TODO!!

[Skeletron]

Basicamente, todo es en base a un IF.. y si el IF es TRUE, cambia colores


Muy lindo te esta quedando..
Segui con eso!!