m.akbarzadee@gmail.com
چهارشنبه 15 شهریور 1396, 10:18 صبح
سلام . من تازه کارم
تو راهنمایی ها دیدم از این کدها استفاده شده. این کدها چیه
من ندیدم داخل vb بشه اینها رو نوشت
توصیح میدین
ممنون
<font size="2">
</font><font size="2"><font color="#0000ff">Dim</font></font><font size="2"> h </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer</font></font><font size="2">, m </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer
</font></font><font size="2">h = DateDiff(DateInterval.Hour, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0))
m = DateDiff(DateInterval.Minute, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0)) </font><font size="2"><font color="#0000ff">Mod</font></font><font size="2"> 60
MsgBox(</font><font size="2"><font color="#0000ff">CStr</font></font><font size="2">(h) + </font><font size="2"><font color="#800000">":"</font></font><font size="2"> + </font><font size="2"><font color="#0000ff">CStr</font></font><font size="2">(m))
</font>
تو راهنمایی ها دیدم از این کدها استفاده شده. این کدها چیه
من ندیدم داخل vb بشه اینها رو نوشت
توصیح میدین
ممنون
<font size="2">
</font><font size="2"><font color="#0000ff">Dim</font></font><font size="2"> h </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer</font></font><font size="2">, m </font><font size="2"><font color="#0000ff">As</font></font><font size="2"><font color="#0000ff">Integer
</font></font><font size="2">h = DateDiff(DateInterval.Hour, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0))
m = DateDiff(DateInterval.Minute, TimeSerial(12, 0, 0), TimeSerial(16, 50, 0)) </font><font size="2"><font color="#0000ff">Mod</font></font><font size="2"> 60
MsgBox(</font><font size="2"><font color="#0000ff">CStr</font></font><font size="2">(h) + </font><font size="2"><font color="#800000">":"</font></font><font size="2"> + </font><font size="2"><font color="#0000ff">CStr</font></font><font size="2">(m))
</font>