VB control Excel date format

[brian_choi]

Dear Expert

I want to output the recordset to Excel and set the date format in Excel dd-mm-yyyy. However, when I use below syntax, the outout of format is different under different case

Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    
 
   
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add
 
With oSheet
    For i = 0 To objRs.Fields.Count - 1
        oSheet.Cells(1, i + 1).Value = Trim(CStr(objRs.Fields(i).Name))
        objRs.MoveFirst
       .Range("F1:F" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"
       .Range("G1:G" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"
    For j = 1 To objRs.RecordCount
        If i = 5 Or i = 6 Then
           oSheet.Cells(j + 1, i + 1).NumberFormat = "dd-mm-yyyy"
        End If
           oSheet.Cells(j + 1, i + 1).Value = objRs.Fields(i).Value
           objRs.MoveNext
    Next
    Next
End With
 
 
?objRs.Fields(i).Value
23-09-2005
02-09-2005
 
 
?oSheet.Cells(j + 1, i + 1).Value
23-09-2005
09-02-2005

Even the date output in recordset is 02-09-2005, and the setting of the ouput of Excel is dd-mm-yyyy. The final output of Excel is still 09-02-2005.
My PC regional setting is in dd-mm-yyyy.

Any suggestion

Thank you very much

Brian choi

[D-niss]

try:

format(.Range("F1:F" & objRs.RecordCount + 1), "dd-mm-yyyy")

or

format(cdate(objRs.Fields(i).Value), "dd-mm-yyyy")

[kkc]

' you should not do numberformating when you insert result to each cells
' you should do number formating after finished insert records, this increase
' performance
 
' use the following line to do number formatting
' xlWSheet = your worksheet
' Range("A:A"). = the range you want to format, here will format whole col A 
' format
' you can define the range yourself
 
xlWSheet.Range("A:A").NumberFormat = "MM/dd/YYYY"

hope this help.

[brian_choi]

D-niss

When I try
format(.Range("F1:F" & objRs.RecordCount + 1), "dd-mm-yyyy")
Type mismatch error

When I try
format(cdate(objRs.Fields(i).Value), "dd-mm-yyyy")
The output is not in date

Any idea?

[D-niss]

I don't usually set the cell number format before passing the data, I do it at the same time, something like:

With Sheet1
Cells(j + 1, i + 1)= Format(objRs.Fields(i).Value, "mm-dd-yyy")
End With

It sets the correct format and correct value. In essence you wouldn't need this anymore:

.Range("F1:F" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"
.Range("G1:G" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"

Also, I would check what is the data type of the date field you're trying to pass, it may shade more light on this.

Best of luck

[brian_choi]

The problem was fixed by using below syntax

With oSheet
For i = 0 To objRs.Fields.Count - 1
.Cells(1, i + 1).Value = objRs.Fields(i).Name
objRs.MoveFirst
For j = 1 To objRs.RecordCount
If i = 5 Or i = 6 Then
.Cells(j + 1, i + 1) = Format(objRs.Fields(i).Value, "dd-mmm-yyyy")
'oSheet.Cells(j + 1, i + 1).Value = objRs.Fields(i).Value
Else
oSheet.Cells(j + 1, i + 1).Value = objRs.Fields(i).Value
End If
objRs.MoveNext
Next
Next
.Range("F1:F" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"
.Range("G1:G" & objRs.RecordCount + 1).NumberFormat = "dd-mm-yyyy"
End With


Thank you very much D-niss

[medtoledo]

Try Using MM instead of mm since mm is for minutes.
so it should be like this: format(cdate(objRs.Fields(i).Value), "dd-MM-yyyy"

D-niss

When I try
format(.Range("F1:F" & objRs.RecordCount + 1), "dd-mm-yyyy")
Type mismatch error

When I try
format(cdate(objRs.Fields(i).Value), "dd-mm-yyyy")
The output is not in date

Any idea?

[vbfbryce]

Hopefully the guy who started this thread in 2005 will see your update!

(In your defense, it wasn't marked as "resolved.")

[westconn1]

Try Using MM instead of mm since mm is for minutes.

this is incorrect, the correct character for minutes is n, month is m, though in many cases m will work for minutes, if the representation is not ambiguous

example

?format(now,"m")
3
?format(now,"n")
47
7:46 PM

User-Defined Date/Time Formats (Format Function)


The following table identifies characters you can use to create user-defined date/time formats:

Character Description
( Time separator. In some locales, other characters may be used to represent the time separator. The time separator separates hours, minutes, and seconds when time values are formatted. The actual character used as the time separator in formatted output is determined by your system settings.
(/) Date separator. In some locales, other characters may be used to represent the date separator. The date separator separates the day, month, and year when date values are formatted. The actual character used as the date separator in formatted output is determined by your system settings.
c Display the date as ddddd and display the time as
ttttt, in that order. Display only date information if there is no fractional part to the date serial number; display only time information if there is no integer portion.
d Display the day as a number without a leading zero (1 – 31).
dd Display the day as a number with a leading zero (01 – 31).
ddd Display the day as an abbreviation (Sun – Sat).
dddd Display the day as a full name (Sunday – Saturday).
ddddd Display the date as a complete date (including day, month, and year), formatted according to your system's short date format setting. The default short date format is m/d/yy.
dddddd Display a date serial number as a complete date (including day, month, and year) formatted according to the long date setting recognized by your system. The default long date format is mmmm dd, yyyy.
aaaa The same as dddd, only it's the localized version of the string.
w Display the day of the week as a number (1 for Sunday through 7 for Saturday).
ww Display the week of the year as a number (1 – 54).
m Display the month as a number without a leading zero (1 – 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mm Display the month as a number with a leading zero (01 – 12). If m immediately follows h or hh, the minute rather than the month is displayed.
mmm Display the month as an abbreviation (Jan – Dec).
mmmm Display the month as a full month name (January – December).
oooo The same as mmmm, only it's the localized version of the string.
q Display the quarter of the year as a number (1 – 4).
y Display the day of the year as a number (1 – 366).
yy Display the year as a 2-digit number (00 – 99).
yyyy Display the year as a 4-digit number (100 – 9999).
h Display the hour as a number without leading zeros (0 – 23).
Hh Display the hour as a number with leading zeros (00 – 23).
N Display the minute as a number without leading zeros (0 – 59).
Nn Display the minute as a number with leading zeros (00 – 59).
S Display the second as a number without leading zeros (0 – 59).
Ss Display the second as a number with leading zeros (00 – 59).
t t t t t Display a time as a complete time (including hour, minute, and second), formatted using the time separator defined by the time format recognized by your system. A leading zero is displayed if the leading zero option is selected and the time is before 10:00 A.M. or P.M. The default time format is h:mm:ss.
AM/PM Use the 12-hour clock and display an uppercase AM with any hour before noon; display an uppercase PM with any hour between noon and 11:59 P.M.
am/pm Use the 12-hour clock and display a lowercase AM with any hour before noon; display a lowercase PM with any hour between noon and 11:59 P.M.
A/P Use the 12-hour clock and display an uppercase A with any hour before noon; display an uppercase P with any hour between noon and 11:59 P.M.
a/p Use the 12-hour clock and display a lowercase A with any hour before noon; display a lowercase P with any hour between noon and 11:59 P.M.
AMPM Use the 12-hour clock and display the AM string literal as defined by your system with any hour before noon; display the PM string literal as defined by your system with any hour between noon and 11:59 P.M. AMPM can be either uppercase or lowercase, but the case of the string displayed matches the string as defined by your system settings. The default format is AM/PM.