تابع TimeSerial نوع Time را بر اساس پارامترهای ارائه شده (ساعت ، دقیقه و ثانیه) برمی گرداند.
قالب:
DateSerial (ساعت ، دقیقه ، ثانیه)
استدلال:
ساعت
اجباری
نوع: عددی یا هر عبارات عددی
بین ۰ تا ۲۳
دقیقه
اجباری
نوع: عددی یا هر عبارات عددی
اگر بیشتر از 60 باشد ، تعداد شماره مربوط به ساعت اضافه می شود ، به عنوان مثال 65 می گویند ، ساعت ها با یک ساعت افزایش می یابد و دقیقه ها 5 می شود
ثانیه
اجباری
نوع: عددی یا هر عبارات عددی
اگر بیشتر از 60 باشد ، تعداد مربوط به دقیقه ها به دقیقه اضافه می شود ، به عنوان مثال 70 ، به این معنی است که دقیقه ها با یک دقیقه افزایش می یابد و 10 ثانیه می شود
Function FnTimeSerial()
Dim varHour
Dim varMinute
Dim varSecond
Dim strResult
varHour = "11"
varMinute = "12"
varSecond = "44"
strTime = TimeSerial(varHour, varMinute, varSecond)
strResult = "Time is-> " & strTime &
varHour = "18"
varMinute = "72"
varSecond = "44"
strTime =TimeSerial(varHour, varMinute, varSecond)
strResult = strResult & "Time is (<b>When Minutes is greater than 60</b>)-> " & strTime
MsgBox strResult
End Function
ورود به سایت