[hwkong1688]

Hi,
when regional setting set to dd/MM/yyyy the date i pickup is not
collectly, if regional setting set to MM/dd/yyyy then all
is fine? how to set the date dd/MM/yyyy in correct way?

database: access
dt = date/time

my code here

Private Sub Form_Load()

DTPicker2 = Date
DTPicker3 = Date

End Sub

Private Sub ViewReport_Click()
On Error GoTo 0

If MsgBox("          View Report?", vbYesNo, "View Report") = vbYes Then
DataReport1.Orientation = rptOrientLandscape

DataEnvironment1.Commands(1).CommandText = "Select * From Daily Where Dt Between #" & DTPicker2 & "# and #" & DTPicker3 & "# Order by Dt"
DataReport1.Show
End If

Load DataEnvironment1
With DataEnvironment1
If .rsCommand1.State <> 0 Then .rsCommand1.Close
.Command1
End With

End Sub

[thava]

use the format function to format the date that will solve your problem
like this

"Select * From Daily Where Dt Between #" & Format(DTPicker2 ,"MM/dd/YYYY") & "# and #" & Format(DTPicker3 ,"MM/dd/YYYY") & "# Order by 

[hwkong1688]

thank you so much thava..it work!!..but i want to know why i use format(DTpicker2 "dd/MM/yyyy") doesn't work??

[thava]

sorry buddy it's my mistake
Format is a function to format the output as you want


Following links will help you learn about the function
Understanding the VB Format Function with Custom Numeric Formats

Formating dates and times in VB6

[BobRodes]

Probably because you have your culture settings set up as USA, and your data are being input in a European format. You'll also want to investigate culture settings and how they work in Windows.

This post has been edited by BobRodes: 25 September 2012 - 06:33 AM