Private Function diretel.frm_principal.unk_18e60.1.txt

Calls out:


MsgBox
_B_var_Format
_B_var_Date

Incoming calls for diretel.frm_principal.unk_18e60.1.txt


diretel.frm_principal.Form_Activate.10.txt

Decompiled source code follows:

FLocal3 = Format(Date,"dd",VBSUNDAY,VBFIRSTJAN1)
FLocal4 = Format(Date,"mmmm",VBSUNDAY,VBFIRSTJAN1)
Do While (Data1.Recordset.NoMatch = 0)
Data1.Recordset.FindFirst ((((4234724 + FLocal3) + 4234752) + FLocal4) + 4234796)
LLocal1 = ""
Do While (Data1.Recordset.NoMatch = 0)
      FLocal34 = Data1.Recordset.Fields.Item("nombres").Value
      LLocal1 = (((LLocal1 & vbCrLf & "- " + FLocal34) + 4232696) + Data1.Recordset.Fields.Item("apellidos").Value)
      Data1.Recordset
Loop While (#FAILED-HRES-BLOCK != 0)
Loop
If (LLocal1 != "")
MsgBox "Hoy es Cumpleaņos de :" & vbCrLf & LLocal1,VBINFORMATION
End If
Set Local1 as Nothing
End Sub