tarih problemi

[ismailayan]

merhaba arkadaşlar

vb6 da yazdığım programda msflexgrid üzerinden excel dökümü alıyorum. lakin ayın ilk 10 gününü gün ve ayını karıştırıyor. diğer günler normal çıkıyor

mesela

9 ayın 7 kayıtta gözküyor ama excele aktardığımda 09/07/2011 şeklinde gösteriyor her ayın ilk 10 gününde bunu yapıyor.

XlSheet.Cells(i, 7).NumberFormat = "dd/mm/yyyy"

formatı bir şey farketmiyor.


bu konuda bana yardımcı olurmusunuz?

 

[Korhan Ayhan]

Merhaba,

Veriyi excel hücresine aktarırken formatlayarak aktarmayı deneyin.

Örnek;

Range("A1") = Format(Veri , "dd/mm/yyyy")

Ya da

Range("A1") = Format(Clng(Veri) , "dd/mm/yyyy")

 

[ismailayan]

Merhaba,

Veriyi excel hücresine aktarırken formatlayarak aktarmayı deneyin.

Örnek;

Range("A1") = Format(Veri , "dd/mm/yyyy")

Ya da

Range("A1") = Format(Clng(Veri) , "dd/mm/yyyy")

For A = 1 To MSFlexGrid1.Cols - 1
For i = 1 To MSFlexGrid1.Rows - 1
XlSheet.Cells(1, A).Font.Bold = True
XlSheet.Cells(i, A) = MSFlexGrid1.TextMatrix(i - 1, A - 1)
XlSheet.Cells(i, 6) = Format(CLng(MSFlexGrid1.TextMatrix(i - 1, 6)), "dd/mm/yyyy")
MsgBox Format(CLng(MSFlexGrid1.TextMatrix(i - 1, 6)), "dd/mm/yyyy")
XlSheet.Cells(i, A).HorizontalAlignment = xlLeft
XlSheet.Cells(i, A).Font.Size = 8
With MSFlexGrid1
.Row = i
.Col = A
If .CellBackColor = vbYellow Then
XlSheet.Cells(i + 1, A).Interior.Color = vbYellow
End If
End With


ŞEKLİNDE hazırladım ama
sorun çözülmedi görüntü ektedir.

 

[Korhan Ayhan]

Merhaba,

"Clng" yerine "Cdate" komutunu deneyin.

 

[ismailayan]

hayır
maalesef problem devam ediyor

Clng yerine Cdate yaptım bir şey değişmedi. alan formatt datetime olarak belirli ondan olamaz herhalde

ilk defa başıma gelir

ilk 10 günün rapor dökümünde ay ile yıllar yer değiştiriyor excele aktarmada ayın 10dan sonrakiler normal

bu konuda bilgisi olan arkadaşlar lütfen benimle paylaşsın.