Ĺadny brzuch
Mam trzy wartości pobrane z ComboBox'ów. Jak połączyć to w string i skonwertować na datę? To mi nie działa:
Date.FromOADate(rok_ur / dzien_ur / miesiac_ur) data_ur = Val(Trim((ComboBox1.Text) & (ComboBox2.Text) & (ComboBox3.Text))) SecondDate = Format(Date.FromOADate(Val(Trim(data_ur))), "yyyy/MM/dd")
Już ci raz odpisywałem : użyj DateSerial, a nie czegoś co do tego nie służy..
Dim dData1 As Date Dim dData2 As Date Dim sData1 As String Dim sData2 As String Dim mDni As Long dData1 = DateAndTime.DateSerial(1939, 9, 1) dData2 = DateAndTime.DateSerial(CLng(cmbRok.Text), CLng(cmbMiesiac.Text), CLng(cmbDzien.Text)) sData1 = Strings.FormatDateTime(dData1, DateFormat.ShortDate) sData2 = Strings.Format(dData2, "dd-MM-yyyy") mDni = DateAndTime.DateDiff(DateInterval.DayOfYear, dData1, dData2) MsgBox("Ilosc dni pomiedzy " & sData1 & " a " & sData2 & " to : " & mDni)
pozdrawiaMM
http://zsgd.homeip.n...nik/default.htm
Zapraszam na tę stronkę
http://zsgd.homeip.n...nik/default.htm
Zapraszam na tę stronkę
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Date.FromOADate(rok_ur / dzien_ur / miesiac_ur) data_ur = Val(Trim((ComboBox1.Text) & (ComboBox2.Text) & (ComboBox3.Text))) SecondDate = Format(Date.FromOADate(Val(Trim(data_ur))), "yyyy/MM/dd")
Już ci raz odpisywałem : użyj DateSerial, a nie czegoś co do tego nie służy..
Dim dData1 As Date Dim dData2 As Date Dim sData1 As String Dim sData2 As String Dim mDni As Long dData1 = DateAndTime.DateSerial(1939, 9, 1) dData2 = DateAndTime.DateSerial(CLng(cmbRok.Text), CLng(cmbMiesiac.Text), CLng(cmbDzien.Text)) sData1 = Strings.FormatDateTime(dData1, DateFormat.ShortDate) sData2 = Strings.Format(dData2, "dd-MM-yyyy") mDni = DateAndTime.DateDiff(DateInterval.DayOfYear, dData1, dData2) MsgBox("Ilosc dni pomiedzy " & sData1 & " a " & sData2 & " to : " & mDni)
pozdrawiaMM
http://zsgd.homeip.n...nik/default.htm
Zapraszam na tę stronkę
http://zsgd.homeip.n...nik/default.htm
Zapraszam na tę stronkę
