eliminación por fecha? con VB

[mrtorch]

Que tal; alguien puede ayudarme?

estoy haciendo una dll en VB para usar con Asp, pero requiero que esta dll ejecute automática y diariamente la verificación de registros que tengan 367 dias de antiguedad y los elimine.
Y cómo debiera almacenar las fechas para poder realizar la operación.
Estoy usando MySQl, ASP y VB-6.0

eso es todo muchas gracias a quien pueda ayudarme.

[HiTek]

holas...salu2....mira como yo imagino la Dll debiera estar continuamente registrando la hora del servidor en el que esta corriendo, unas vez pasadas las 24 horas de cada dia se debe ejecutar el proceso, obviamente se establece la conección con la BD y se ejecuta la SQL para eliminar los registros que correspondan...nose q mas podria suceder...si el servidor es de tu propiedad deberias crear la DLL y ejecutarla como servicio o generar un servicio en el servidor para que esté en constante ejecución y asi poder garantizar que la eliminación de tus registro será en forma diaria....

salu2

[mrtorch]

Ke tal HiTek. Primero que todo gracias por responder.

Pero mi consulta se refiere a algo un poco más práctico, como un trozo de código. Donde estoy un poco perdido es en el cálculo de la diferencia entre fechas, en días (367), es decir, que tengan un poco más de un año de antiguedad, de modo de ir liberando la BD de registros antiguos e inservibles.

salu2

[HiTek]

De momento te puedo pasar este código que simplemente obtiene la fecha del año anterior...no está perfectamente validada cnsiderando los años bisiestos y todo eso pero de algo te podria ayudar eventualmente...salu2

Código PHP:

  Private Sub Form_Load() 
    Dim FechaLimite As Date 
    FechaLimite = GetDate 
    Text1.Text = Format(Date, "DD/MM/YYYY") 
    Text2.Text = FechaLimite 
End Sub 
 
Function GetDate() As Date 
    Dim FechaFch As Date 
    Dim FechaSTR As String 
    Dim Dia As Variant 
    Dim Mes As Variant 
    Dim Anio As Variant 
    Dim FrstSlash As Byte 
    Dim ScndSlash As Byte 
 
    FechaFch = Format(Date, "DD/MM/YYYY") 
     
    FechaSTR = CStr(FechaFch) 
 
    FrstSlash = InStr(1, FechaSTR, "/") 
    ScndSlash = InStr(FrstSlash + 1, FechaSTR, "/") 
 
    Dia = Mid$(FechaSTR, 1, 2) 
    Mes = Mid$(FechaSTR, FrstSlash + 1, 2) 
    Anio = Mid$(FechaSTR, ScndSlash + 1, 4) 
    Anio = Val(Anio) - 1 
 
    GetDate = CDate(dia & "/" & Mes & "/" & Anio) 
End Function  
   

[lic_dahool]

mira, yo cuando trabajo con fechas prefiero utilizarlas en formato de numero (por ejemplo 20040210 - AAAAMMDD), para saber si pasaron los 365 dias, es simple, a la fecha actual le restas 366 y te da hasta que fecha tenes que borrar.
por otro lado no tiene mucho sentido que tengas al servidor verificando continuamente la fecha para ver si puede borrar algo, simplemente los haces cada vez que llamas a la aplicacion, ahi verificas la fechas, como no va a pasar mucho tiempo sin que se ejecute la aplicacion no vas a tener muchos registros para eliminar, por lo que se ejecutaria bastante rápido, y no te comeria recursos y tiempo verificando la fecha constantemente.

saludos.

[mrtorch]

ke tal gracias por haber respondido este tema.

HiTek, usé tu kodigo, y con algunas adaptaciones me funcionó de maravilla, muchas gracias.

lic_dahool, aún no he intentado ke sucede a tu modo, pero ya lo haré, gracias por tu interés.

Mi fuerte es el modelamiento de datos y el Asp, así es que si tienen alguna consulta trataré de responderla.

[HiTek]

DE NADA MRTORCH QUE BUENO Q TE SIRVIO SALU2