Compair Todays Date To A Date On File

Checking For Date In Access File And Compairing It To Todays Date...
Hey all, i am stuck at this point in my program.

I need the program to load up my access table and check for the date of orders:

each record has a field called PickUp and its formatted like "sat 1/1/2004".

When the form loads up, i need it to check that field and the computers date and if its the same, place the record into the list view. Keep going down the list til EOF.

Any help would be great.

Thanks for your time,
David

---

Compair File Date/Time
I created A program to check time date of a database on to computers.

What my program looks for is the date time of the file on the other computer.

If it changes the it tell the operator they need to get the file.

My problems is I need a way to make sure the the date one one compter is the latest or that changes have been made to the file.

I tryed using Fso for each computer to get the file date/time that works fine..

I need a way to compair the datas and times for the latest file.

---

Resolved -How Do I Get Tomorrows Date From Todays Date And Put It In Access An Query?
I figured this much out in VB but it returns a string. So how can I put in a Access query tomorrows date? I also want to do a report that is for the week. Do Date$ = 7 days... Any ideas on how I should do this?

Str(Month(Date$)) + "/" + Str(Day(Date$) + 1) + "/" + Str(Year(Date$))

---

Still Having Probs With Select Statement Where Date = Todays Date
Hi Guys

I am using vb6.0 connecting to a SQL database (runningMSDE)

I am trying to load all contacts where the recontactdate is today
I have tried the following but am getting the error - syntax error converting datetime to character string - please help!

my code -
onload - dtpicker1.value = date
(tblcontacts.dtmrecontactdate is date/time)

Set adoduecallbacks = New Recordset

adoduecallbacks.Open "Select * from tblcontacts where dtmrecontactdate = ' " & DTPicker1.Value & "%" & " ' ", db, adOpenStatic, adLockOptimistic

- Please help!!!

Thanks

---

Creating A Text File With Todays Name And Date
Question:how to create a text file with the name of the file being today's date and time

---

Problem With SQL Date Query (Todays Date)
Hi there,

Having a problem getting an SQL query to work when searching a database for todays date (basically a reminder package).

Here's the query

Set MyRecSet = MyConn.Execute("SELECT CoxRef, CompanyName, ContactName, postcode, tel FROM Reminders WHERE ReminderDate = #(date)# ")

Have tried all sorts of different things such as '&(date)&'") etc.

Only works when I type the date in like so .. WHERE ReminderDate = 15/02/2005

Any ideas please ?

Seymour

---

Q.1 - Adding Todays Date To The Write File When Saving And Q.2 - Appending
I would like to know if I could add a statement to the write command somewhere in the following code, so the file would write Todays date at the end in date format MM/DD/YY:

As the text in my write file looks like this:

"Flower - Lilac",2,5.22,10.44

Could I get it to add TODAYS date automatically to read

"Flower - Lilac",2,5.22,10.44,03/07/04

My code now reads:

**************************************************
Private Sub cmdWriteQuotation_Click()
    Dim pintCurrentItem As Integer
    Dim pstrFileName As String
    Dim psngTotal As Single
   
    
    pstrFileName = _
        InputBox("Enter the filename", "Write File")
    If pstrFileName <> vbNullString Then
        Open pstrFileName For Output As #1
        For pintCurrentItem = 0 To _
            lstQuotedExtPrice.ListCount - 1
            Write #1, _
                lstQuotedProduct.List(pintCurrentItem), _
                Val(lstQuotedQty.List(pintCurrentItem)), _
                Val(lstQuotedPrice.List(pintCurrentItem)), _
                Val(lstQuotedExtPrice.List(pintCurrentItem))
        Next
    
    psngTotal = 0
    For pintCurrentItem = 0 To _
        lstQuotedExtPrice.ListCount - 1
        psngTotal = psngTotal + _
            lstQuotedExtPrice.List(pintCurrentItem) * 1.06
        ' Above line computes Sales Tax directly into total
       

    Next
    txtTotal.Caption = Format(psngTotal, "Currency")
   

End If
        Close #1
    
End Sub
****************************************************
Also, when I pull this data into an Access Table it leaves the .44 off the total price of 10.44 as from the line below: why?

"Flower - Lilac",2,5.22,10.44 (It pulls the 5.22 just fine, but the 10.44 it gives me 10)


Also someone told me how to append the write file here earlier by using the Append command with the For statement, but can't get that to work...could someone give me a clue how to change this Statement to append all new input to the same text file.

My existing code is above and if you can show me how to use the append command I'd sure appreciate this too...

Thank you
NMP

---

Compair A Number With The Week Of Year Of A Certain Date
Hello,

i want to check of a number is lower then the week of the year of the current date.
How do you do this?

---

Go To Todays Date Row
Hi-

I was wondering if anyone could help me write a macro that when clicked on would take the user to todays date.

My spreadsheet is set up with every date from now until 2010 on the left column.

I want a feature where you click on a button an it takes you to (maybe even highlights that row) the current date.

Any help would be appreciated. I have never used VB or macros before.

thx

matt

---

Todays Date
is there a way to have a caption display todays date?

---

How Do I Insert Todays Date Using Sql
I have an access table and I want to insert today's date into one of the field. What is the correct syntax.
This is not working:
Dim todaysdate as String
todaysdate = format(Now,"m/d/yy")
Insert into table(Date)Values(todaysdate)
Thanks

---

Doesn't Seem To Like Todays Date
Am I missing something?

CODEMe.MyDay.text = Day(date)

---

List ALL Files For Todays Date
Hi,

Can someone please help me with the following request.

I wish to list all file names on my hard disk that have a last accessed/modified date of today - this includes all subdirectories
from the root directory.

Thanking you in advance.

Cheers,

Kevin

---

Saving Textbox With Todays Date
I am trying to save the text in a textbox with the with the current date automatically updated every day by simply clicking a button

This is what I have but it doesnt work

visual basic code:--------------------------------------------------------------------------------Public Function SaveText(Text1 As TextBox) As Boolean
Dim hFile As Integer
Dim sFileName As String

On Error Resume Next
hFile = FreeFile
sFileName = App.Path & "C:" & Format(Now, "yyyymmdd") & ".txt"
Open sFileName For Output As #hFile
Print #hFile, Text1.Text
Close #hFile
End Function

Private Sub Command1_Click()
Call SaveText(Text1)
End Sub

Private Sub Text1_Change()

End Sub
--------------------------------------------------------------------------------

---

Adding Days To Todays Date
I want to add x amount of days to todays date. The number of days is held in an integer variable...how would i do it????

---

Inserting Todays Date With Button
I am v new to this VBA lark so be kind :-)

I have three cbo's - dd, mm, yyyy and what I want is a button next to the date dropdowns so you can click 'today' and it fills out the dd/mm/yyyy with todays dates.

I currently have this cbo code :-

    With cbodd
      .AddItem "01"
.............
      .AddItem "31"
    End With
    With cbomm
      .AddItem "January"
.............
      .AddItem "December"
    End With
    With cboyyyy
      .AddItem "2004"
.............
      .AddItem "2008"
    End With

Any help/pointers very welcome!

Thanks

Pete




Edited by - petebrooker on 6/22/2004 10:10:00 AM

---

Saving Text With Todays Date
I am trying to save the text in a text box as for example "20050511.txt" for todays date. I want the date to update automatically and I want the file to save when I click a command button.

Please help if you can

---

Reading Todays Date / Display Data
I'm writing a small address program and wish that it will display a list of birthdays/anniversaries that are happening 'today' when the form loads.

As I have the control version of VB I am unable to read from a database, so I thought that I would just list them - but can I get VB to read a list and recognise 'todays' date?

A direct to research would be helpful, Cheers

---

FIXED!!! Display Todays Date &lt;Access&gt;
< edit > I got it working...

How do assign today's date to a text box? I tried searching around here before posting a simple question.

Here is what I have:

Code:
Private Sub order_date_BeforeUpdate(Cancel As Integer)
    order_date.Value = Date
End Sub




Edited by - SubPar_Coder on 9/15/2004 3:00:46 PM

---

Monthview DayBold Works, But Resets To Todays Date.
This is a pretty easy task I think, but I wanted to run this by everyone on the forum.

My program revolves around a monthview control. The user clicks the date they want to work with and off they go. What I'd like to do is have the monthview control show the days in bold where data has been entered into the database. That way the user can see at a glance (one month at a time) where they've entered data.

I think the easiest way to do this is to find the first and last day of the month their working in then run a query that selects distinct dates from the database where they fall in between the first and last days of the month. At that point I can loop through and say if there is a match, bold the day...if not, move to the next day.

So I guess all I need is how to find the first and last days of a month based on where the user is currently sitting in the monthview control.

---

Archive PPT-Save A Copy With Todays Date, If Doesnt Exist Already
I want to make a macro that will check a certain directory for a file with a filename like:

Presentation-20-09-2007.ppt

If the file for todays date doesnt exist, it saves the current presentaion with the proper date in the filename.

Is that possible?

---

Saving A Text Box As Text With Todays Date
Does anybody have any idea on how to automatically save a text box as text with the file name as todays date.

thanks

---

File Information Get Path ,filename,filesize,access Date ,modified Date
This tiny zip file have filename,filepath,fileaccess date,file　modified date
if picture file then size of the picture

Thanks guys

bellow code
-------------------------------------------------------------------
Private Const OF_READ = &H0&
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Dim lpFSHigh As Long
Private fileN As String
Private fileP As String
Private fileS As Double
Private fileC As String
Private fileA As String
Private fileH As Long
Private fileW As Long
Private fileX As String
Dim fs As Scripting.File
Private Sub Command1_Click()
Call commonDialogCall
Call GetFileS(fileX)
Call FileWHget
Call FileDateGet
Call displayall
End Sub
Public Sub displayall()
Label1.AutoSize = True
Label2.AutoSize = True
Label3.AutoSize = True
Label4.AutoSize = True
Label5.AutoSize = True
Label6.AutoSize = True
Label7.AutoSize = True

Label1.Caption = "File name = " & fileN
Label2.Caption = "File path = " & fileP
Label3.Caption = "File size = " & fileS & " Byte"
Label4.Caption = "File Created = " & fileC
Label5.Caption = "File Accessed = " & fileA
Label6.Caption = "File height = " & fileH
Label7.Caption = "File Widht = " & fileW
End Sub
Public Sub commonDialogCall()
CommonDialog1.Filter = "*.bmp"
CommonDialog1.ShowOpen
fileX = CommonDialog1.FileName
fileN = CommonDialog1.FileTitle
fileP = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - (Len(CommonDialog1.FileTitle) + 1))
End Sub
Public Sub GetFileS(FilePath As String)

Dim Pointer As Long, sizeofFile As Long
Pointer = lOpen(FilePath, OF_READ)
'size of the file
sizeofFile = GetFileSize(Pointer, lpFSHigh)
fileS = sizeofFile
lclose Pointer
End Sub
Private Sub FileDateGet()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fileX)
fileC = f.DateCreated
fileA = f.DateLastModified
End Sub

Private Sub FileWHget()
Dim pic As Picture
Set pic = LoadPicture(fileX)
fileH = pic.Height
fileW = pic.Width
End Sub

Private Sub Command2_Click()
End
End Sub
---------------------------------

---

DATE Problems - Change Date Format To European, Get Current Date, Subtract 2 Dates?
Need someone to point me in the right direction/start me off with this please as I am quite clueless on it at present...

I need something that can successfully subtract two dates...


eg. calculate the difference between the current date
02/04/04 (2nd April 04) and 29/03/04 (28th March 04)
...
which will then output a result of 5 days


So what I need to know is...

1.
I need to know how to get the current date from the system clock

2.
I must somehow get my date function converted into European date format (as at present it is in USA format ie. 2nd April 04 is 04/02/04 like April 2nd 04 which is not good!)

3.
and then I must actually SUBTRACT the 2 dates (the current date and a date that is given) from each other to give an integer which I can then use (ie. a value like 5 or 15).


But I have little idea how to go about this


Can anyone please start me off?

---

DATE Problems - Change Date Format To European, Get Current Date, Subtract 2 Dates?
Need someone to point me in the right direction/start me off with this please as I am quite clueless on it at present...

I need something that can successfully subtract two dates...


eg. calculate the difference between the current date
     02/04/04 (2nd April 04) and 29/03/04 (28th March 04)
     ...
     which will then output a result of 5 days


So what I need to know is...

1.
I need to know how to get the current date from the system clock

2.
I must somehow get my date function converted into European date format (as at present it is in USA format ie. 2nd April 04 is 04/02/04 like April 2nd 04 which is not good!)

3.
and then I must actually SUBTRACT the 2 dates (the current date and a date that is given) from each other to give an integer which I can then use (ie. a value like 5 or 15).


But I have little idea how to go about this


Can anyone please start me off?

---

How To Subtract 12 Date And Then Delete All The File Match The Date
Hi all,

At the first run on my program, I rename all incoming file within today date. then now my folder start to be full after a while. i mean my output folder is full.
how can i delete a list of file if they are 12 day old?
here is my rename and adding todays date.
thanks for u help in advance.

my output file after renaming looks like : myfilename.txt-07-07-2007


Code:
Private Sub tmrRefresh_Timer()
File1.Refresh
File2.Refresh
Dim i
Dim oldFileName$
Dim filedate$, newFileName$
Dim oldFilePath$
Dim del
Dim newfilename1$
filedate$ = Format$(Now, "dd-mm-yyyy")
For i = 0 To File1.ListCount - 1
oldFileName$ = File1.List(i)
If oldFileName$ <> "Rename1.exe" Then
oldFilePath$ = File1.Path & "" & oldFileName$
newFileName$ = File2.Path & "" & oldFileName$ & "-" & filedate$
If oldFileName$ <> "" Then
FileCopy oldFilePath$, newFileName$
Kill oldFilePath$

End If
End If
File1.Refresh
File2.Refresh
Next i
End Sub

---

Comparing User Inputed Date With File Date
Hi

Can someone please help me out of this....

i'm making the user input the date in a textbox in the same format as the date format of a file's "last modified date". i need to add all those files to a listview whose last modified date is less than or equal to the user input.

Really appreciate it......
Ice

---

Every Record Has A Date Field. I Want To Find A Date And From This Date, I Want To Read Records To E
Every record has a date field. I want to find a date and from this date, I want to read records to eof. What is the code? - Thanks

---

Get Date Created And Date Modified Of A File
How to get the Date Created and Date Modified of a File using API Calls ???

---

DATE Problem - Formatting US Date MM/DD/YY To European Date Format DD/MM/YY
I have a problem whereby the user must enter a date into a field...

The system changes the date format to US standard which is MM/DD/YY
but I need to change the format to DD/MM/YY (European standard)


I have done this using the Format function, but I still have a slight problem
Format(mydate,"dd/mm/yy")

doesnt account for all dates...

for example...
if I enter 31/03/04 this is fine, it will accept it as that

However, if I enter 02/04/04 (todays date - 2nd April 04), it will change it to 04/02/04



Any ideas how I can counter this from happening?

---

Query With Date Ranges And Return Only Closest Date To 'to Date'
I am using an access db...

I am trying to pull back due dates for credit reports for clients. I have 4 tables I am working with for this query...

    [Client_info]
    [Dispute_track_eq]
    [Dispute_track_exp]
    [Dispute_track_trans]

[Client_info] has the basic client information....ID, SSN, name, telephone_numbers, yadd yadda..
    each of the other tables hold the fields I am pulling from(other fields as well but these are the ones i need)...

    [Dispute_track_eq].eq_due_date
    [Dispute_track_exp].exp_due_date
    [Dispute_track_trans].trans_due_date

Here is my problem...
    I have variable that are set by dtpickers...'from_date' and 'to_date'. I am trying to get back each of these due dates that fall between the ranges set along with the [client_info] data linked by the SSN field. The problem is that sometimes these clients will have multiple due_dates(multiple rows) between the range. What the end result needs to be is this, I need to only have one record to come back with one of each due_date from each table, but only give me back the closest due_date to the 'to_date'(set by dtpicker) as well as the data from the [Client_info] table. And if there are no records for one or two but not the thirs field, an empty fields is ok(using a datagrid). But I can only pull back one row with the [client_info] fields, and one of each of the 3 due date fields. I have a query already but it doesnt even come close to working, it gives me many duplicates and doesnt give me the closest due_date to the 'to_date'.

Here is my query, but it doesnt work. Any help would be greatly appreciated, I am in dire need of help on this one.

Code:Private Sub Command4_Click() '***Due dates report grid date
    to_date = dt2.Value
    from_date = dt1.Value
    If from_date = vbNull Then
            MsgBox "Please select a FROM DATE"
            Exit Sub
        ElseIf to_date = vbNull Then
            MsgBox "Please select a TO DATE"
            Exit Sub
    Else
    Dim ID_new As String
    Dim cn As ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim ID_pass As String
    Dim active As String
    
    active = "Active-Negotiations"
   
    Set rs = New ADODB.Recordset
    
    
        strSQL = "Select" & vbNewLine
        strSQL = strSQL & " [client_info].[FirstName], [client_info].[LastName], [client_info].[HomePhone], [client_info].[MobilePhone], [client_info].[Client_status], [client_info].[Category], [client_info].[Appt_notes],[client_info].[Appt_date],[client_info].[Appt_date_time], " & vbNewLine
        strSQL = strSQL & " [dispute_track_eq].[eq_due_date], [dispute_track_exp].[exp_due_date], [dispute_track_trans].[trans_due_date]" & vbNewLine
        strSQL = strSQL & " FROM (dispute_track_exp INNER JOIN (dispute_track_eq INNER JOIN client_info ON [dispute_track_eq].[SSN] =[client_info].[SSN]) ON [dispute_track_exp].[SSN] =[client_info].[SSN]) INNER JOIN" & vbNewLine
        strSQL = strSQL & " dispute_track_trans ON [client_info].[SSN] =[dispute_track_trans].[SSN]" & vbNewLine
        strSQL = strSQL & " Where (dispute_track_trans.trans_due_date > #" & from_date & "# And" & vbNewLine
        strSQL = strSQL & " dispute_track_trans.trans_due_date < #" & to_date & "#)" & vbNewLine
        strSQL = strSQL & " OR (dispute_track_eq.eq_due_date > #" & from_date & "# And" & vbNewLine
        strSQL = strSQL & " dispute_track_eq.eq_due_date < #" & to_date & "#)" & vbNewLine
        strSQL = strSQL & " OR (dispute_track_exp.exp_due_date > #" & from_date & "# And" & vbNewLine
        strSQL = strSQL & " dispute_track_exp.exp_due_date < #" & to_date & "#) AND NOT NULL"


    Set cn = New ADODB.Connection
    With cn
           .Provider = "Microsoft.Jet.OLEDB.4.0"
           .ConnectionString = "Data Source= " & db & " "
           .open
    End With
    
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .Source = strSQL
        .open
    End With
        
        If rs.RecordCount = 0 Then
            MsgBox "Sorry, no one matched that status, try again", vbOKOnly, "Credit Matrix"
            Set DataGrid1.DataSource = rs
        Else
            Set DataGrid1.DataSource = rs
    
        End If
        End If

    I would be forever in your debt for helping me as I am almost out of hair....FROM PULLING IT OUT!!
    



Edited by - ronmegga on 4/1/2004 5:26:03 PM

---

DATE Problem - Formatting US Date MM/DD/YY To European Date Format DD/MM/YY
I have a problem whereby the user must enter a date into a field...

The system changes the date format to US standard which is MM/DD/YY
but I need to change the format to DD/MM/YY (European standard)


I have done this using the Format function, but I still have a slight problem
Format(mydate,"dd/mm/yy")

doesnt account for all dates...

for example...
if I enter 31/03/04 this is fine, it will accept it as that

However, if I enter 02/04/04 (todays date - 2nd April 04), it will change it to 04/02/04



Any ideas how I can counter this from happening?

---

File Creation Date && File Last Saved Date
Hi,

Can someone tell me how I can get the creation date/time from a file and the date/time when it was saved the last time?
I want to check some .DOC file´s against the one´s in a database to see if they need to be updated either to the database or to the harddisk.

Thanx John Minkjan


<-------------------------------------------------------------------------------------->
Please put [RESOLVED] in the subject line off your first post when your done.

---

File Creation Date && File Last Saved Date
Hi,

Can someone tell me how I can get the creation date/time from a file and the date/time when it was saved the last time?
I want to check some .DOC file´s against the one´s in a database to see if they need to be updated either to the database or to the harddisk.

Thanx John Minkjan

<-------------------------------------------------------------------------------------->
Please put [RESOLVED] in the subject line off your first post when your done.

---

Grouping By Date Where Date Field Is Date/time
I have an SQL7 database storing datetime data, and totaliser reading, new records are added every 5 minutes.

I have written the following sql to give me the the min and max totaliser reading for each day - which works fine - except that the resultant Date field is a text field not a date field so the order statement generates an incorrect listing if the data selected sarts in one month and ends in the next, eg.

select left(Date, 12) as Date, Min(Reading) as Day_Start, Max(Reading) as Day_End from Steam where tag_no = 2 and (Date <= '24-November-2005 00:00:00' and Date >= '22-October-2005 00:00:00') Group By left(Date, 12) order by Date asc

Is there another function I can use to extract just the date from the date/time field as a date data type?

I cannot alter the database as its structure is predetermined by the remote field device supplying the data.

---

Return The Date Before And The Date After The Date Entered
I have a table of Required Dates that contains: TransNo; OrderNumber; RequiredDate.
What I want to do is returned the Record with the Date before and the date on/after the date I specify for each Order Number.
i.e.
TNo; OrdNo; Date;
001; 19002; 01/03/2004
002; 19002; 20/03/2004
003; 19002; 29/03/2004
004; 19002; 01/04/2004
005; 19004; 11/03/2004
006; 19004; 20/03/2004
007; 19004; 29/03/2004
008; 19012; 05/03/2004
009; 19012; 11/04/2004
010; 19012; 19/04/2004
011; 19012; 21/04/2004

Given the above data. If I enter 19/03/2004 I want to return:
001; 19002; 01/03/2004 ' Date before 19/03
002; 19002; 20/03/2004 ' Date After the 19/03
005; 19004; 11/03/2004
006; 19004; 20/03/2004
008; 19012; 05/03/2004
009; 19012; 11/04/2004

I want the SQL statement that will do this.

---

Date Picker Control Doesn't Show Current Date In Field
How do I set the display date in the Date Picker control field ? MSDN says that it should return the current date by default, but it only shows the current date highlighted in the drop down calendar.

The control shows the date when the control was created and added to the form.

How do I set the date at form load ?


Code:
dtpicker1.value = ? ' how do I call current date ?

---

Setting Long - Short Date Format In Date Time Settings
How can i set the Date Time Setting Format in Control Panel

i m usiing window Xp


also i want the date format in dd/MM/yyyy

---

Pls Answer Me, How Can I SET To Long Date Fomat The Date Settings In Regional Setting
Pls answer me, how can i SET to long date fomat the date settings in regional settings? i want that when my form loads, it automatically change the date settings in the regional settings to long date format

---

Data Is Coming Correctly In Report, But Date In The Date Header Is Not Refreshing Help Pls
Hai


I am dispalying the report from VB. the data is showing correctly as per the parameter I pass from VB. But the formula box in the PagerHeader in Crystal report , some times misses the correct date and show the previous date (i.e) the previous parameter passed by the user. But the data is shown correctly.

The below is the command button event

Private Sub cmdpPreview_Click()
On Error Resume Next
    If optProduct.Value = True Then
       Call PCsumListbyValue
    ElseIf optItem.Value = True Then
        Call optPItemwise
    Else
        MsgBox "Choose Option !", vbExclamation, "Option - Missing"
    End If
End Sub


The below is the code in the function

Private Sub PCsumListbyValue()

CrystalReport1.Formulas(1) = " "
CrystalReport1.Formulas(4) = " "
CrystalReport1.GroupSelectionFormula = " "
pfdt = txtpfrom.Text
ptdt = txtpto.Text
If Len(cmbPprod.Text) <= 0 Or cmbPprod.Text = "All" Then
   CrystalReport1.ReportFileName = App.Path & "cstlistvaluewgt.rpt"
   strsf = "{Sales.SoldDate} in Date(" & _
   Format(pfdt, "YYYY,M,D") & ") to Date(" & _
   Format(ptdt, "YYYY,M,D") & ")"
   CrystalReport1.ReplaceSelectionFormula (strsf)
   CrystalReport1.Formulas(1) = "fdt='" & pfdt & "'"
   CrystalReport1.Formulas(4) = "tdt='" & ptdt & "'"
   CrystalReport1.DiscardSavedData = True
   CrystalReport1.PrintReport
Else
   CrystalReport1.ReportFileName = App.Path & "cstlistvalue.rpt"
   strsf = "{Sales.SoldDate} in Date(" & _
   Format(pfdt, "YYYY,M,D") & ") to Date(" & _
   Format(ptdt, "YYYY,M,D") & ")"
   CrystalReport1.ReplaceSelectionFormula (strsf)
   CrystalReport1.GroupSelectionFormula = "{Sales.Product}='" & cmbPprod.Text & "'"
   CrystalReport1.Formulas(1) = "fdt='" & pfdt & "'"
   CrystalReport1.Formulas(4) = "tdt='" & ptdt & "'"
   CrystalReport1.DiscardSavedData = True
   CrystalReport1.PrintReport
End If
End Sub

i tried by ticking the check box in the File menu --> Option --> Reporting Tab --> [Discard Saved Date while loading Report] and also I tried by uncheck the box [Save Date With Repot]. Then also its not working.

I also attached the front view of the form. Kinldy view and reply me.

Thank you very much,
Chock.

Thank you very much,
Chock.
itchocks@rediffmail.com



<HTML>
<B><font color="#008000">HAVE A NICE DAY !</font></B>
<HTML>

Edited by - chs on 5/24/2003 9:51:07 AM

---

Date Conversion As Oracle Database Date Default Format
Select sysdate from dual ; //oracle database
The result is : 28-AUG-04

How to convert “date” in vb to the above format?

Using below statement :
FormatDateTime(Date, vbLongDate) // Saturday, August 28, 2004

Then, combine with string functions (such as instr, left, mid, etc) can be achieved the desired result.

Any shortcut than above mentioned?

Thanks.
vb999

---

Date Time Picker &gt;&gt; Fuction To Calculate A Specific Date
I have two Date Time Picker controls.

What needs to happen is when user selects a date in DTPicker1 then a date 7 months later, on the following tuesday is displayed in DTPicker2.

Any help with this would be great.

---

Date Format, Count No. Of Days & Highlight Date In Calendar
<html><div style='background-color:'><DIV>
<P>Hi all,</P>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Happen to visit this website accidentally and found that it’s very useful to VB beginner like me. <SPAN style="mso-spacerun: yes"> </SPAN>I have the following problems and would appreciate your kind assistance to enlighten me.<SPAN style="mso-spacerun: yes">  </SPAN>Attached is my file for your checking.<SPAN style="mso-spacerun: yes">  </SPAN></P></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <?XML:NAMESPACE PREFIX = O /><O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.5in; TEXT-INDENT: -0.25in; tab-stops: list .5in; mso-list: l0 level1 lfo3">1)<SPAN style="FONT: 7pt 'Times New Roman'">      </SPAN>Sometimes, the number of days is incorrect with a big figure (e.g from 1 to 30 Apr) or even a negative figure after I change the system’s date format from “mm/dd/yyyy” to “dd/mm/yyyy”.<SPAN style="mso-spacerun: yes">  </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.25in"> <O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt 0.5in; TEXT-INDENT: -0.25in; tab-stops: list .5in; mso-list: l0 level1 lfo3">2)<SPAN style="FONT: 7pt 'Times New Roman'">      </SPAN>In calculating the number of days, I need to exclude Sunday.<SPAN style="mso-spacerun: yes">  </SPAN>By using the “WeekDay (Calendar1) = 7 “ method, I still didn’t get the correct result.<SPAN style="mso-spacerun: yes">  </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> </P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><O:P>      3)  How to highlight a certain date in calendar with different colour to indicate it's a public holiday ? </O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"><O:P></O:P> </P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Many thanks in advance.<SPAN style="mso-spacerun: yes">  </SPAN></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt"> <O:P></O:P></P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">Best regards,</P>
<DIV></DIV>
<P class=MsoNormal style="MARGIN: 0in 0in 0pt">YC </P>
<DIV></DIV>
<DIV></DIV>
<P><BR><BR></P>
<DIV></DIV>
<DIV></DIV></div><br clear=all><hr>Add photos to your e-mail with <a href="http://g.msn.com/8HMVEN/2746">MSN 8.</a> Get 2 months FREE*.</html>

---

Date Time Picker Control: How Do Set The Displayed Date To Null?
I have a front end database form with date fields using the MS dtp control. The fields are unbound, but populated using a data class. The problem is that on many occasions the date field is Null, ie no data available. On display the dtp control always defaults to a set date, usually today (this is a property function of the control). What I can't seem to do is to display no date, or to delete the date displayed. Any thoughts would be very gratefully recieved. API perhaps?

I'm trying very hard not to have to write an Active-X control based on the dtp (mainly because of multilingual support and different localisation issues regarding dd/mm/yyyy (used by 90% of the world's population, and mm/dd/yyy - used by the remaining 10% in the US - sorry just had to get that jibe in for those of us who despair at having to go in to custom formatting in Excel simply to get dd/mm/yy )

Many thanks

---

Using The DATE To Transmit 2 Days Ahead Of Current Date (RESOLVED Thank You)
It seems simple, ive looked and looked, cannot find it. . .

basically what I need to do is transmit 2 days ahead of current date. . .

IE today is the 14th, I need it to auto transmit it to the 16th.

Its a pend out date on an account, I've got everything auto except for this feature. . . .

If I get in touch with a client, I want the account to automatically pend the account out for 2 days.

Thanks for the help, love the site, look for me more often, and be sure to purchase some of my award winning albums at a christian store near you.





Edited by - Bryan Duncan on 6/15/2004 3:52:58 PM

---

How To Use DTPicker For Start Date - End Date Queries For Generating Reports.
I am using two DTPicker Controls on my form, one for Start Date and the second one for End Date parameter. On running the project it is giving me errorata type mismatch.I have checked the datatype in my database(MSAccess) as Date. I am using control names in the SQLQuery(ie DTPicker1.Value and DTPicker2.Value) for getting values from the DTPicker Controls.

---

Date && Time Values In Date And String Format Differ
The program (debug) output below lists the last modification time of two files. File 1 is stored on a NTFS medium, file 2 sits on a FAT medium.

In order to be able to compare these dates, I need to round the odd seconds of the NTFS file up (FAT files have only even second values).

The lines after the file headers show the date & time value before and after the rounding, in date, double precision and string format.

file 1 (NTFS)
= 2005-07-12 08:57:09 = 38545,3730208333 = 2005-07-12 08:57:09
after rounding up
= 2005-07-12 08:57:10 = 38545,3730324074 = 2005-07-12 08:57:10

file 2 (FAT)
= 2005-07-12 08:57:10 = 38545,3730324074 = 2005-07-12 08:57:10

The strange thing is that when comparing these values, they appear to be different (!) both in date and double data format, not in string format.

2005-07-12 08:57:10 > 2005-07-12 08:57:10 (date format)
38545,3730324074 > 38545,3730324074 (double precision format)
2005-07-12 08:57:10 = 2005-07-12 08:57:10 (string format)

Any idea where this difference comes from?

Rounding up was done with DateAdd.

VB version 6, on XP.
Boiled down code has been attached.

---

Date Created No Prob, Date Updated Big Headache
Just today I have used the event like you referred to:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Forms!FormName.Controls!LastUpdate = Now()

...

However, I still have a small problem. The LastUpdate field does not visually update on my form until I leave the record and return. Is there a way to force a visual update, too?

Thanks,
David

---

Make VBA Read Date In Cell Which Contains Date && Text
VBA 6.3
Excel 2003

Hello,

I need my macro to be able to look at a cell which contains both text and a date, and be able to extract just the date part from it.

Example: cell conents - "COL 16/10/2005"

My macro has to be able to read the date and then paste it in another cell so that a formula in the work sheet will work (that subtracts this date from another).

Thanks in advance,

Henry

---