Selam arkadaslar,
asagidaki kod yanlis tarih veriyor:
Ayrica ilkTarih ve sonTarih'i DateValue() icine almayida denedim
ama sonuc ayni
ilkTarih icin 2/1/05 giriyorum msgbox dogru yaniti veriyor (2-Oca-05)
sonTarih icin 19/2/05 giriyorum msgbox bu sefer 2-May-19 diyor.
Sorun nerdedir, naisl duzeltebilirim? Ayrica nasil oluyorda ilkTarih dogru yaniti verirken ayni usulle yaptigim sonTarih yanlis sonucu veriyor bilen varmidir acaba?
Tesekurler[/code]
asagidaki kod yanlis tarih veriyor:
Kod:
Sub TarihGoster()
Dim ilkTarih As String
Dim sonTarih As String
ilkTarih = InputBox("Ilk Tarih: (dd/mm/yy)")
ilkTarih = Format(ilkTarih, "dd/mm/yy")
sonTarih = InputBox("Son Tarih: (dd/mm/yy)")
sonTarih = Format(sonTarih, "dd/mm/yy")
MsgBox Format(ilkTarih, "dd-mmm-yy")
MsgBox Format(sonTarih, "dd-mmm-yy")
End Sub
Kod:
Sub TarihGoster()
Dim ilkTarih As String
Dim sonTarih As String
ilkTarih = InputBox("Ilk Tarih: (dd/mm/yy)")
ilkTarih = Format(DateValue(ilkTarih), "dd/mm/yy")
sonTarih = InputBox("Son Tarih: (dd/mm/yy)")
sonTarih = Format(DateValue(sonTarih), "dd/mm/yy")
MsgBox Format(ilkTarih, "dd-mmm-yy")
MsgBox Format(sonTarih, "dd-mmm-yy")
End Sub
ilkTarih icin 2/1/05 giriyorum msgbox dogru yaniti veriyor (2-Oca-05)
sonTarih icin 19/2/05 giriyorum msgbox bu sefer 2-May-19 diyor.
Sorun nerdedir, naisl duzeltebilirim? Ayrica nasil oluyorda ilkTarih dogru yaniti verirken ayni usulle yaptigim sonTarih yanlis sonucu veriyor bilen varmidir acaba?
Tesekurler[/code]