ďťż

Ł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
  •