'ชื่อฟังก์ชัน: GetMyTimeNumber()
'ฟังก์ชัน: สร้างจำนวนเต็มของเวลา'
'พารามิเตอร์: lx ---- ประเภทของจำนวนเต็มเวลา
' lx=0 ถึงนาที lx=1 ถึงชั่วโมง lx=2 ถึงวัน lx=3 ถึงเดือน
'ค่าที่ส่งคืน: ค่าจำนวนเต็มของเวลาในการสร้าง (ต่ำสุดเป็นนาที)
'ตัวอย่าง:
'************************************************ *
ฟังก์ชั่นสาธารณะ GetMyTimeNumber (lx)
ถ้า lx=0 ดังนั้น GetMyTimeNumber=ปี(วันที่)*12*30*24*60+เดือน(วันที่)*30*24*60+วัน(วันที่)*24*60+ชั่วโมง(เวลา)*60+นาที(เวลา )
ถ้า lx=1 ดังนั้น GetMyTimeNumber=ปี(วันที่)*12*30*24+เดือน(วันที่)*30*24+วัน(วันที่)*24+ชั่วโมง(เวลา)
ถ้า lx=2 ดังนั้น GetMyTimeNumber=ปี(วันที่)*12*30+เดือน(วันที่)*30+วัน(วันที่)
ถ้า lx=3 ดังนั้น GetMyTimeNumber=ปี(วันที่)*12+เดือน(วันที่)
สิ้นสุดฟังก์ชัน