USE THIS API
'''''''''''''''''''''''''''''''''''
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
'''''''''''''''''''''''''''''''''''
Private Declare Function GetDateFormat Lib "kernel32"
Alias "GetDateFormatA" (ByVal Locale As Long, ByVal
dwFlags As Long, lpDate As SYSTEMTIME, ByVal lpFormat
As String, ByVal lpDateStr As String, ByVal cchDate As
Long) As Long
'''''''''''''''''''''''''''''''''''
'''CREATE FUNCTION USER DEFINE FUNCTION
'''''''''''''''''''''''''''''''''''
Private Function sETMYDATE(strDate As String, aval As
Integer) As String
Dim Buffer As String, ST As SYSTEMTIME
With ST
.wDay = Mid(strDate, 1, 2)
If aval = 1 Then .wDay = .wDay + 1
.wMonth = Mid(strDate, 4, 2)
.wYear = CLng("20" & Mid(strDate, 7, 2))
End With
Buffer = String(255, 0)
GetDateFormat ByVal 0&, 0, ST, vbNullString,
Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) -
1)
sETMYDATE = Buffer
End Function
'''''''''''''''
'THIS FUNCTION WILL RETRUE DATE IN COMPUTER
'FORMATE DATE
'ADD INTO YOUR DATA BASE
'SAME WAY FOR RETREVING DATA
HOPE THIS WILL SOLVE YOUR PROBLEM.
BRIJ HERE.
Brij Here
____________________________________________________
Start your day with Yahoo! - make it your home page
http://www.yahoo.com/r/hs
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12hiqtgsf/M=362131.6882499.7825260.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1122637985/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life
- brought to you by One Economy</a>.</font>
--------------------------------------------------------------------~->
Please zip all files prior to uploading to Files section.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessDevelopers/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
