Hola, un ejemplo para que veas como seria:

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.

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

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.

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:

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!

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:


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

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


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