2つの時間差を計算する関数
'*******************************
'|| functionTimediff（sbegin、send）
'||この関数は2回の差を計算し、変更せずに直接使用できます。
'||著者：machinecat2001/10/26
'*******************************
'*******************************
'注：まず、Sbeginの間のサイズを決定し、ユーザーが入力した送信を決定する必要があります
「複雑な時間変換なしで、2つの間の時間差は、DataDiff関数を通じて得ることができます
'*******************************
functiontimediff（sbegin、send）
dimihourb、iminuteb、isecondb、iminisecondb
dimihoure、iminutee、iseconde、iminiseconde
dimdtimeb、dtimee、dtimediff
Dimihour、Iminute、Isecond、Iminisecond
ihourb = clng（左（sbegin、2））
iminuteb = clng（mid（sbegin、4,2））
ISECONDB = CLNG（MID（SBEGIN、7,2））
iminisecondb = clng（mid（sbegin、10,4））
ihoure = clng（左（send、2））
iminutee = clng（mid（send、4,2））
iseconde = clng（mid（send、7,2））
iminiseconde = clng（mid（send、10,4））
dtimeb = ihourb*3600+iminuteb*60+isecondb+iminisecondb/1000
dtimee = ihoure*3600+iminutee*60+iseconde+iminiseconde/1000
dtimediff = dtimee-dtimeb
ihour = int（dtimediff/3600）
dtimediff = dtimediff-ihour*3600
iminute = int（dtimediff/60）
dtimediff = dtimediff-iminute*60
isecond = int（dtimediff）
dtimediff = dtimediff-int（dtimediff）
iminisecond = dtimediff
Timediff = ihour＆ "Hours"＆iminute＆ "Minutes"＆Isecond＆Formatnumber（iminisecond、3）＆ "seconds"
エンド機能