And the rest:
Select Case strFormat
Case "MMDDYY"
intYear = lngdate Mod 100
intMonth = lngdate \ 10000
intDay = (lngdate \ 100) Mod 100
Case "MMDDYYYY"
intYear = lngdate Mod 10000
intMonth = lngdate \...
This is from the basDateTime module I'm trying to edit:
Option Compare Database
Option Explicit
' From "VBA Developer's Handbook"
' by Ken Getz and Mike Gilbert
' Copyright 1997; Sybex, Inc. All rights reserved.
Private Declare Function GetProfileString Lib "kernel32" Alias...
I have a Visiting db at my prison. Visiting days are Fri., Sat., Sun., Mon. We are closed Tues., Wed., and Thurs.. The database is set up to reset the visiting lists on Mon., but our Visiting week runs Fri-Mon, and we need to keep a running list of visits through those four days. Then we...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.