Funcion DateIFF

Diferencia de minutos en vb:

IF HOUR(FECHAINICIO)<=19 AND HOUR(FECHAFIN) <=19 THEN
DIFERENCIA =DATEDIFF(NN,FECHAINICIO,FECHAFIN)

Funcion de Validacion Datagrid

Valida en DataGrid.
Dentro del evento DBGrid1_AfterColUpdate escribir :

If dbgrid1.colummns.value <> 1 or dbgrid1.colummns.value <> 2 then
msgbox "Los valores aceptables con 1 o 2 "
dbgrid1.col = 1 ' Supongo que es la primera columna
else
dbgrid1.col = dbgrid1.col + 1
end if

Funcion StrConv

Funcion que convierte la primera letra en mayuscula, formato "Titulo":

Text1.Text = StrConv(Text1.Text, vbProperCase)

Funcion de busqueda de tabla MDB

Public Function BuscarTabla(sTabla As String) As Boolean
Dim dbsActual As Database
Dim cn As String
Set dbsActual = OpenDatabase("TuBase.mdb", False, False, ";pwd=" & DB_KLAVE)
For Each tdef In dbsActual.TableDefs
If tdef.Name = sTabla Then
BuscarTabla = True
Exit Function
End If
Next tdef
Set dbsActual = Nothing
End Function

Fecha de creacion de archivos

Trabajar con un objeto OSF (objet sistem file),

Dim osf As Object
Dim fichero as file
Dim fecha as string

Set osf = CreateObject("Scripting.FileSystemObject")
Set fichero = osf.getfile(ruta_de_acceso)

fecha = "la fecha es " & and fichero.DateLastModified

msgbox fecha

Nota :

DateLastModified = ultima ves que fue modificado
DateCreated = cuando fue creado.