ÍÓÇÈ ÇáæÞÊ ÇáãäÞÖí Ýí ÇáÂßÓíÓ

ÊáÚÈ ÇáÊæÇÑíÎ æÇáÃæÞÇÊ ÏæÑðÇ ÍíæíðÇ Ýí ãÚÙã ÊØÈíÞÇÊ ÞæÇÚÏ ÇáÈíÇäÇÊ. ÓäÊÚáã ßíÝ íÞæã Access ÈÊÎÒíä Þíã ÇáÊÇÑíÎ/ÇáæÞÊ æßíÝíÉ ÍÓÇÈ ÇáæÞÊ ÇáãäÞÖí¡ ãËáãÇ ÞÏ íßæä ãØáæÈðÇ Ýí ÊØÈíÞ ÕÍíÝÉ ÇáÏæÇã. ÅääÇ äæÝÑ äãæÐÌ ãä ÞÇÚÏÉ ÈíÇäÇÊ ÞÇÈáÉ ááÊÍãíá ÊÍÊæí Úáì ËáÇËÉ ãä ÚíäÇÊ ÇáæÙÇÆÝ ÇáÊí íãßäß äÓÎåÇ æáÕÞåÇ.
åäÇß ÃÔíÇÁ ãÚíäÉ ÊÚÏ ÃÓÇÓíÉ Ýí ÊØÈíÞ ÞÇÚÏÉ ÇáÈíÇäÇÊ¡ ãä ÖãäåÇ¡ ÇáÍÇÌÉ Åáì ÊÊÈÚ ÇáÊæÇÑíÎ æÇáÃæÞÇÊ. Åäß ÊÚãá Ýí ÇáÊæÇÑíÎ æÇáÃæÞÇÊ Ýí Access ÈÇÓÊÎÏÇã äæÚ ÇáÈíÇäÇÊ "ÊÇÑíÎ/æÞÊ". ÊÞæã ÃæáÇð ÈÊÍÏíÏ ÇáÌÏÇæá ÇáãÓÊäÏÉ Åáì ÇáãÇÏÉ ÇáÊí ÊÍÊÇÌåÇ. æãä Ëã¡ ÊÍÏÏ ÇáÍÞæá ÇáÊí ÊÍÊÇÌåÇ Ýí Êáß ÇáÌÏÇæá. Ýí ßá ÍÞá¡ ÊÞæã ÈÇÎÊíÇÑ äæÚ ÈíÇäÇÊ. íÏÚã Access ÚÏÏðÇ ãä ÃäæÇÚ ÇáÈíÇäÇÊ ÇáÃÓÇÓíÉ¡ ãËá "äÕ" æ"ãÐßÑÉ" æ"ÑÞã" æ"ÚãáÉ"¡ æ"ÊÑÞíã ÊáÞÇÆí" æ"äÚã/áÇ" æ"ßÇÆä OLE" æ"ÇÑÊÈÇØ ÊÔÚÈí"¡ æÃÎíÑðÇ æáíÓ ÇÎÑðÇ¡ "ÊÇÑíÎ/æÞÊ".
áÐáß¡ ÝÅä "ÊÇÑíÎ/æÞÊ" åí äæÚ ÈíÇäÇÊ ÃÓÇÓí. ÝÅäß ÊÓÊÎÏãå áÊÎÒíä ÊæÇÑíÎ æÃæÞÇÊ ÇáÊÞæíã ÍÊì ÊÓÊÝíÏ ãä ãÌãæÚÉ ÇáãíÒÇÊ ÇáËÑíÉ ÐÇÊ ÇáÕáÉ Ýí Access. Úáì ÓÈíá ÇáãËÇá¡ íãßä áÜ Access ÅÌÑÇÁ ÇáÍÓÇÈÇÊ Úáì ÇáÊæÇÑíκ ãËáÇð¡ íãßäß ÍÓÇÈ ÚÏÏ ÇáÃíÇã ÇáÊí ÇäÞÖÊ ãäÐ ÊÇÑíÎ ÇáÝÇÊæÑÉ ÍÊì ÊÞæã ÈÊÍÏíÏ ÍÓÇÈÇÊ ÇáãÞÈæÖÇÊ áÏíß. æíæÌÏ ÃíÖðÇ ÃÏÇÉ ÊÍÞÞ ãä ÇáÈíÇäÇÊ ãÖãäÉ ÈÍíË áÇ íãßä Ãä ÊÞæã ÃäÊ Ãæ ÇáãÓÊÎÏãíä áÏíß ÈÅÏÎÇá ÊÇÑíÎ ÛíÑ ÕÇáÍ¡ ãËá 31/2. ÈÚÖ ÃãËáÉ ÇáÇÓÊÎÏÇãÇÊ áÍÞæá "ÊÇÑíÎ/æÞÊ" ÊÊÖãä ÊæÇÑíÎ ÇáÝæÇÊíÑ æÊæÇÑíÎ ÇáÅÏÎÇá ÇáÎÇÕÉ ÈÇáØáÈÇÊ æÇáØæÇÈÚ ÇáÒãäíÉ æÊæÇÑíÎ ÊæÙíÝ ÇáãæÙÝíä æÃæÞÇÊ ÈÏÁ æÇäÊåÇÁ ÇáÚãá æÃæÞÇÊ ÇáÏÎæá æÇáÎÑæÌ áÈØÇÞÇÊ ÇáÏæÇã.
ÓÊÍÊÇÌ ÛÇáÈðÇ Åáì ÊÍÏíÏ ÊäÓíÞ ÈÍíË íÞæã Access ÈÚÑÖ ÊÇÑíÎ Ãæ æÞÊ ÈÇáØÑíÞÉ ÇáÊí ÊÑíÏåÇ. ÚäÏãÇ ÊÞæã ÈÅäÔÇÁ ÍÞá Ýí ÃÍÏ ÇáÌÏÇæá¡ Úáì ÓÈíá ÇáãËÇá¡ íãßäß ÅÏÎÇá ÊäÓíÞ ÚÑÖ Ýí ÎÇÕíÉ ÇáÊäÓíÞ ÇáÎÇÕÉ ÈÇáÍÞá. íãßäß ÇÎÊíÇÑ æÇÍÏðÇ ãä ÇáÊäÓíÞÇÊ ÇáßËíÑÉ ÇáãÚÑÝÉ ãÓÈÞðÇ Ãæ ÅäÔÇÁ ÊäÓíÞ ãÎÕÕ ÍíË ÊÞæã ÈÏÞÉ ÈÊÍÏíÏ ãæÖÚ ÇáÔåÑ æÇáíæã æÇáÓäÉ æÇáÓÇÚÇÊ æÇáÏÞÇÆÞ¡ æåßÐÇ.
Åä ÃÍÏ ÃßËÑ ÇáÃÓÆáÉ ÔíæÚðÇ Íæá ÇÓÊÎÏÇã Þíã "ÊÇÑíÎ/æÞÊ" åæ ßíÝíÉ ÇáÞíÇã ÈÍÓÇÈ ÇáæÞÊ ÇáãäÞÖí æÊäÓíÞ ÇáäÊíÌÉ ÈÔßá ÕÍíÍ. íÊã ÚÑÖ Íáíä åäÇ¡ æáßä ÞÈá ãÊÇÈÚÊåãÇ¡ ÝáäÞã ÈãÑÇÌÚÉ ßíÝíÉ ÞíÇã Access ÈÊÎÒíä Þíã "ÊÇÑíÎ/æÞÊ".

ßíÝíÉ ÊÎÒíä Þíã "ÊÇÑíÎ/æÞÊ"
íÞæã Access ÈÊÎÒíä Þíã "ÊÇÑíÎ/æÞÊ" ÏÇÎáíðÇ ßÃÑÞÇã äÞÇØ ãÊÛíÑÉ ãÒÏæÌÉ ÇáÏÞÉ . íÍÊæí ßá ÑÞã ãä åÐå ÇáÃÑÞÇã Úáì ãßæä ÊÇÑíÎ æãßæä æÞÊ. íãËá ÌÒÁ ÇáÚÏÏ ÇáÕÍíÍ¡ ÇáãæÌæÏ Åáì íÓÇÑ ÇáäÞØÉ ÇáÚÔÑíÉ¡ ÇáÊÇÑíÎ. æíãËá ÇáÌÒÁ ÇáßÓÑí¡ ÇáãæÌæÏ Åáì íãíä ÇáäÞØÉ ÇáÚÔÑíÉ¡ ÇáæÞÊ.
Åä ÇáÑÞã ÐÇ ÇáÏÞÉ ÇáãÒÏæÌÉ ÇáÐí íÙåÑ åäÇ íãËá 24 ÏíÓãÈÑ ÚÇã 2003¡ Ýí ÇáÓÇÚÉ 9:00 ãÓÇÁð ÈÇáÑÞã 37979.875. æÐáß áÃä Access íÞæã ÈÊÎÒíä ÚÏÏ ÇáÃíÇã ÇáãäÞÖíÉ ãäÐ ÇáÊÇÑíÎ ÇáÃÓÇÓí 30/12/1899 ßãßæä ÇáÊÇÑíÎ. ÓæÝ ÊÌÏ Ãä ÚÏÏ ÇáÃíÇã ãä ÇáÊÇÑíÎ ÇáÃÓÇÓí (30/12/1899) Åáì 24 ÏíÓãÈÑ 2003 åæ 37979 íæãðÇ

ÇáÞíã ÇáÓÇáÈÉ Ýí ãßæøä ÇáÊÇÑíÎ ÊãËá ÇáÊæÇÑíÎ ÞÈá ÇáÊÇÑíÎ ÇáÃÓÇÓí. Úáì ÓÈíá ÇáãËÇá¡ ÝÅä ÇáÞíãÉ -1 ßãßæä ÊÇÑíÎ ÊÔíÑ Åáì íæã æÇÍÏ ÓÇÈÞ Úáì ÇáÊÇÑíÎ ÇáÃÓÇÓí¡ Ãæ 29/12/1899. æíÚÏ ãßæøä ÇáæÞÊ ßÓÑðÇ ãä Çáíæã ÐÇ ÇáÜ 24 ÓÇÚÉ. áÐáß¡ ÝÅä ãßæä ÇáæÞÊ ÇáÈÇáÛ (875.) íÓÇæí 21 ÓÇÚÉ¡ Ãæ 9:00 ãÓÇÁð.
æáÃä ÇáØÑíÞÉ ÇáÊí íÓÊÎÏãåÇ Access áÊãËíá Þíã "ÊÇÑíÎ/æÞÊ" ÏÇÎáíðÇ (ßãÇ Ýí ÇáãËÇá¡ 37979.875) áíÓÊ åí ÇáØÑíÞÉ ÇáãÚÊÇÏÉ ÇáÊí ÊÚãá ÈåÇ¡ Ýãä ÇáÖÑæÑí Ãä íßæä áÏíß ÇáÞÏÑÉ Úáì ÊÍæíá ÞíãÉ "ÊÇÑíÎ/æÞÊ" ÐÇÊ ÊäÓíÞ ÇáÏÞÉ ÇáãÒÏæÌÉ ÇáÏÇÎáí Åáì ÊäÓíÞ ãÃáæÝ. íãßäß ÇáÞíÇã ÈÐáß ÈÇÓÊÎÏÇã CDate()¡ æåí ÏÇáÉ ãÖãäÉ Ýí Access.
Åä ÇáÏÇáÉ åí ÅÌÑÇÁ íÞæã ÈÊäÝíÐ æÍÏÉ ãä ÇáÚãá æÛÇáÈðÇ ãÇ íÊã ÅÑÌÇÚ äÊíÌÉ. íÊÖãä Access ÞÇÆãÉ ØæíáÉ ãä ÇáÏæÇá ÇáãÖãäÉ ÇáÊí íãßäß ÊæÙíÝåÇ Ýí ÊØÈíÞÇÊ ÞæÇÚÏ ÇáÈíÇäÇÊ áÏíß ááÞíÇã ÈÃÔíÇÁ ãËá ÃÏÇÁ ÇáÍÓÇÈÇÊ¡ Ãæ ßãÇ Ýí åÐå ÇáÍÇáÉ¡ ÇáÊÍæíá ãä äæÚ ÈíÇäÇÊ Åáì ÇáÂÎÑ. ÊÞæã ÇáÏÇáÉ CDate() ÈÊÍæíá ÇáÞíãÉ ÐÇÊ ÇáÏÞÉ ÇáãÒÏæÌÉ Åáì ÞíãÉ "ÊÇÑíÎ/æÞÊ". íãßäß ÇÓÊÎÏÇã ÇáÏÇáÉ CDbl() ááÞíÇã ÈÇáÚßÓ æÊÍæíá ÞíãÉ "ÊÇÑíÎ/æÞÊ" Åáì ÇáÑÞã ãÒÏæÌ ÇáÏÞÉ ÇáÐí íÚÇÏáåÇ.

ÍÓÇÈ ÇáæÞÊ ÇáãäÞÖí
íÚÏ ÍÓÇÈ ÇáæÞÊ ÇáãäÞÖí ÚãáíÉ ÈÓíØÉ. Ýíãßä áÈÑäÇãÌ Access ÇáÞíÇã ÈÍÓÇÈ ÇáÝÇÕá ÇáÒãäí Èíä ÊÇÑíÎíä¡ ÍÊì ÈÇáäÓÈÉ ááÝæÇÕá ÇáÒãäíÉ ÇáßÈíÑÉ ÇáÊí ÊãÊÏ Åáì ÔåæÑ Ãæ ÓäæÇÊ. æÑÛã Ðáß¡ ÝÅä ÊäÓíÞ ÇáÞíãÉ ÇáäÇÊÌÉ ÈÇáØÑíÞÉ ÇáÊí ÊÑíÏåÇ æÚÑÖåÇ¡ ÛÇáÈðÇ ãÇ íÊØáÈ ÈÚÖ ÇáÇÈÊßÇÑ Ýí Microsoft Visual Basic® for Applications (VBA)¡ æåí áÛÉ ÇáÈÑãÌÉ ÇáÊí íÓÊÎÏãåÇ ÈÑäÇãÌ Access.
Åä ÇáÏÇáÉ HoursAndMinutes ÇáÊí ÊÙåÑ åäÇ åí ÏÇáÉ ãÎÕÕÉ ÊÞæã ÈÊäÓíÞ ÇáÝÇÕá ÇáÒãäí ÈÊäÓíÞ ÓÇÚÇÊ:ÏÞÇÆÞ. æåí ãÕããÉ áÊÞæã ÈãÚÇáÌÉ ÇáÃæÞÇÊ ÇáãÊÑÇßãÉ ÈÔßá ÕÍíÍ ãËá ÇáÌãÚ Ýí ÊÞÑíÑ æÑÞÉ ÇáÏæÇã ÇáÃÓÈæÚíÉ. ÝÊÞæã ÃäÊ ÈÊãÑíÑ ÝÇÕá Òãäí ááÏÇáÉ Ãæ ÚãáíÉ ÍÓÇÈ "ÊÇÑíÎ/æÞÊ" (Úáì ÓÈíá ÇáãËÇá¡ #12/24/2003 11:00ã# - #12/10/2003 6:00Õ#), æÊÞæã ÇáÏÇáÉ ÈÅÑÌÇÚ ÓáÓáÉ ÐÇÊ ÊäÓíÞ ÕÍíÍ (Ýí åÐå ÇáÍÇáÉ 353:00). áÊÍÏíÏ ÓáÓáÉ "ÊÇÑíÎ/æÞÊ" æÇÖÍÉ¡ ÝíÌÈ Ãä ÊÞæã ÈÊÖãíä ÃÌÒÇÁ ÇáÊÇÑíÎ æÇáæÞÊ Èíä ÚáÇãÇÊ ÇáÌäíå (#). íÌÈ Ãä ÊÍÏÏ ßá ãä ãßæäí ÇáÊÇÑíÎ æÇáæÞÊ ÚäÏ ÊÞÏíã ÓáÓáÉ ÍÑÝíÉ¡ ãä ÃÌá ÇáÊæÖíÍ æáÊÌäÈ ÇáÃÎØÇÁ.

Public Function HoursAndMinutes(interval As Variant) As String
'***********************************************************************
' Function HoursAndMinutes(interval As Variant) As String
' Returns time interval formatted as a hours:minutes string
'***********************************************************************
Dim totalminutes As Long, totalseconds As Long
Dim hours As Long, minutes As Long, seconds As Long
If IsNull(interval) = True Then Exit Function

hours = Int(CSng(interval * 24))

totalminutes = Int(CSng(interval * 1440)) ' 1440 = 24 hrs * 60 mins
minutes = totalminutes Mod 60

totalseconds = Int(CSng(interval * 86400))  ' 86400 = 1440 * 60 secs
seconds = totalseconds Mod 60

If seconds > 30 Then minutes = minutes + 1 ' round up the minutes and
If minutes > 59 Then hours = hours + 1: minutes = 0 ' adjust hours

HoursAndMinutes = hours & ":" & Format(minutes, "00")
End Function

Public Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String
'**********************************************************************************************
' Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String
' Returns the time elapsed between a starting Date/Time and an ending
' Date/Time formatted as a string that looks like this:
' "10 days, 20 hours, 30 minutes, 40 seconds".
'**********************************************************************************************
Dim interval As Double, str As String, days As Variant
Dim hours As String, minutes As String, seconds As String
If IsNull(dateTimeStart) = True Or _
   IsNull(dateTimeEnd) = True Then Exit Function

interval = dateTimeEnd - dateTimeStart

days = Fix(CSng(interval))
hours = Format(interval, "h")
minutes = Format(interval, "n")
seconds = Format(interval, "s")

' Days part of the string
str = IIf(days = 0, "", _
   IIf(days = 1, days & " Day", days & " Days"))
str = str & IIf(days = 0, "", _
   IIf(hours & minutes & seconds <> "000", ", ", " "))
' Hours part of the string
str = str & IIf(hours = "0", "", _
   IIf(hours = "1", hours & " Hour", hours & " Hours"))
str = str & IIf(hours = "0", "", _
   IIf(minutes & seconds <> "00", ", ", " "))
' Minutes part of the string
str = str & IIf(minutes = "0", "", _
   IIf(minutes = "1", minutes & " Minute", minutes & " Minutes"))
str = str & IIf(minutes = "0", "", IIf(seconds <> "0", ", ", " "))
' Seconds part of the string
str = str & IIf(seconds = "0", "", _
   IIf(seconds = "1", seconds & " Second", seconds & " Seconds"))
ElapsedTimeString = IIf(str = "", "0", str)
End Function

ÊÚãá ÇáÏÇáÉ ElapsedTimeString ÈæÇÓØÉ ÇáÞíÇã ÃæáÇð ÈØÑÍ æÞÊ ÇáÈÏÁ ãä æÞÊ ÇáÇäÊåÇÁ ááÍÕæá Úáì ÇáÝÇÕá ÇáÒãäí. Ëã ÈÚÏ Ðáß ÊÞæã ÈÊÍÏíÏ ÇáãßæäÇÊ ÇáÝÑÏíÉ ááÃíÇã æÇáÓÇÚÇÊ æÇáÏÞÇÆÞ æÇáËæÇäí ÈæÇÓØÉ ÇÓÊÎÏÇã ÇáÏÇáÉ ÊäÓíÞ. æãä Ëã¡ ÊÞæã ÇáÏÇáÉ ÈÈäÇÁ ÓáÓáÉ äÇÊÌÉ ÈÇÓÊÎÏÇã ÇáÞØÚ ÇáÊí íÊã ÊÌãíÚåÇ ÈÇáØÑíÞÉ ÇáÊí äÑíÏåÇ¡ ÈÇÓÊÎÏÇã ÇáäÊÇÆÌ ÇáÝÑÏíÉ ("íæã" ÈÏáÇð ãä "ÃíÇã") æÅÒÇáÉ ÇáãßæäÇÊ ÛíÑ ÇáÖÑæÑíÉ ãËá "ÕÝÑ ãä ÇáËæÇäí".
ÅäÔÇÁ ÇáÏæÇá
íãßäß ÊÍãíá äãæÐÌ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÇáÎÇÕÉ ÈåÐÇ ÇáÚãæÏ. ÓæÝ ÊÌÏ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ æÍÏÉ ÇáÊÚáíãÉ ÇáÈÑãÌíÉ VBA ÇáäãØíÉ ÇáÎÇÕÉ "ÈÇáæÞÊ ÇáãäÞÖí" æåí ÊÍÊæí Úáì ÇáÏÇáÊíä HoursAndMinutes æElapsedTimeString. áÅäÔÇÁ ÇáÏÇáÊíä ÈäÝÓß¡ Þã ÈÊÔÛíá ÈÑäÇãÌ Microsoft Access æÇÊÈÚ åÐå ÇáÎØæÇÊ:
1.Úáì ÇáÞÇÆãÉ ãáÝ¡ ÇäÞÑ ÝæÞ ÝÊÍ¡ Ëã ÇäÞÑ ÝæÞ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÍíË ÊÑíÏ ÅÏÑÇÌ ÇáÏÇáÊíä.
2.Ýí ÅØÇÑ "ÞÇÚÏÉ ÇáÈíÇäÇÊ"¡ ÇäÞÑ ÝæÞ æÍÏÇÊ äãØíÉ.
3.ÇäÞÑ ÝæÞ ÌÏíÏ áÅäÔÇÁ æÍÏÉ ÌÏíÏÉ.
4.Þã ÈßÊÇÈÉ ÇáÏÇáÊíä HoursAndMinutes æElapsedTimeString ßãÇ ÊÑÇåã åäÇ ÊãÇãðÇ. Ãæ¡ ÅÐÇ ßäÊ ÞÏ ÞãÊ ÈÊÍãíá ÚíäÉ ÞÇÚÏÉ ÇáÈíÇäÇÊ¡ ÝÞã ÈäÓÎ ÇáÏÇáÊíä æáÕÞåãÇ ãä ÇáæÍÏÉ ÇáäãØíÉ "ÇáæÞÊ ÇáãäÞÖí".
5.Úáì ÇáÞÇÆãÉ File¡ ÇäÞÑ ÝæÞ Save.
6.ÇßÊÈ ÇÓã ÇáæÍÏÉ ÇáäãØíÉ¡ ãËá ÇáæÞÊ ÇáãäÞÖí¡ æãä Ëã ÇÖÛØ Úáì ENTER.
7.Úáì ÇáÞÇÆãÉ Debug¡ ÇäÞÑ ÝæÞ Compile.
8.Úáì ÇáÞÇÆãÉ File¡ ÇäÞÑ ÝæÞ Close and Return to Microsoft Office Access.
ÈÚÏ Ãä ÊÞæã ÈæÖÚ ÇáÏÇáÊíä Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ ÇáÎÇÕÉ Èß¡ íãßäß ÇÓÊÎÏÇãåãÇ Ýí ßÇÆäÇÊ Access ãËá ÇáÇÓÊÚáÇãÇÊ æÇáäãÇÐÌ æÇáÊÞÇÑíÑ.
ÊæÙíÝ ÇáæÞÊ ÇáãäÞÖí Ýí ÇáÇÓÊÚáÇãÇÊ æÇáäãÇÐÌ æÇáÊÞÇÑíÑ
ÝáäÝÊÑÖ Ãäß ÊÑíÏ ãÚÑÝÉ ÇáæÞÊ ÇáÐí íÓÊÛÑÞå ÔÍä ØáÈ ßá ãäÊÌ. áÐÇ ÝÅäß ÊÞæã ÈÅäÔÇÁ ÇÓÊÚáÇã íÓÊÎÏã ÌÏæá "ÇáÝæÇÊíÑ" æÌÏæá "ÇáÚãáÇÁ". íÊÖãä ÌÏæá "ÇáÝæÇÊíÑ" ÇáÍÞæá "ÊÇÑíÎ ÇáØáÈ" æ"ÊÇÑíÎ ÇáÔÍä". ÝÃäÊ ÊÍÊÇÌåã áæÖÚ ÇáÞíã ÇáãæÌæÏÉ Èåã Ýí ÇáÏÇáÉ ElapsedTimeString¡ æãä Ëã íãßäß ãÚÑÝÉ ãÊì Êã ÊÞÏíã ÇáØáÈ æãÊì Êã ÔÍäå. æíÍÊæí ÌÏæá "ÇáÚãáÇÁ" Úáì ãÚáæãÇÊ ãËá "ÇÓã ÇáÚãíá"¡ ÈÍíË íãßäß ÇáÊÚÑÝ Úáì ÇáÚãíá ÇáÎÇÕ Èßá ØáÈ.
áÅÖÇÝÉ ÍÓÇÈ TimeToShip "æÞÊ ÇáÔÍä" Åáì ÇáÇÓÊÚáÇã¡ ÝÅäß ÊÞæã ÈÅÖÇÝÉ ãÕØáÍ Åáì ÔÈßÉ ÇáÇÓÊÚáÇã. æÇáãÕØáÍ åæ ãÌãæÚÉ ãä ÚæÇãá ÇáÊÔÛíá (ãËá = æ+)¡ æÃÓãÇÁ ÚäÇÕÑ ÇáÊÍßã¡ æÃÓãÇÁ ÇáÍÞæá¡ æÇáÏæÇá ÇáÊí ÊÑÌÚ ÞíãÉ ÝÑÏíÉ¡ æÇáÞíã ÇáËÇÈÊÉ. Úáì ÓÈíá ÇáãËÇá¡ áÅÖÇÝÉ ÍÓÇÈ TimeToShip (æÞÊ ÇáÔÍä)¡ ÝÅäß ÊÞæã ÈæÖÚ ÇáãÕØáÍ ÇáÊÇáí Ýí ÎáíÉ "ÇáÍÞá" ÇáÎÇÕÉ ÈÚãæÏ ÌÏíÏ Ýí ÔÈßÉ "ÇáÇÓÊÚáÇã".
TimeToShip: ElapsedTimeString([OrderDate],[ShippedDate])
íÔíÑ åÐÇ ÇáãÕØáÍ Åáì ÔíÆíä áÈÑäÇãÌ Access: ÃæáÇð¡ Ãäß ÊÑíÏ Ãä íßæä ÚäæÇä ÇáÚãæÏ ÇáäÇÊÌ "TimeToShip" (æÞÊ ÇáÔÍä). ËÇäíðÇ¡ Ãäß ÊÑíÏ Ãä íÍÊæí åÐÇ ÇáÚãæÏ Úáì äÊíÌÉ ÊÞííã ÏÇáÉ ElapsedTimeString¡ ãÚ ÊãÑíÑ OrderDate (ÊÇÑíÎ ÇáØáÈ) æShippedDate (ÊÇÑíÎ ÇáÔÍä) ßãÚáãÇÊ. ÚäÏãÇ íÞæã Access ÈãÚÇáÌÉ ÇáÇÓÊÚáÇã¡ ÝÅäå íÞæã ÈÊÞííã ÇáãÕØáÍ áßá ÕÝ Ýí äÊíÌÉ ÇáÇÓÊÚáÇã. íÈÏæ ãËÇá ÇáäÇÊÌ ßãÇ íáí.

ÊÍÊæí ÇáÍÞæá OrderDate (ÊÇÑíÎ ÇáØáÈ) æShippedDate (ÊÇÑíÎ ÇáÔÍä) Úáì Þíã "ÊÇÑíÎ/æÞÊ"¡ æáßä áÇ íÊã ÊÓÌíá ÇáÃæÞÇÊ ÝÚáíðǺ Ýåã ÈÔßá ÇÝÊÑÇÖí 00:00:00 Ãæ 12:00 ÈÚÏ ãäÊÕÝ Çááíá. æØÇáãÇ Ãä åÐå åí ÇáÍÇáÉ¡ ÝÅä ÞíãÉ æÞÊ ÇáÔÍä ÓæÝ Êßæä ÏÇÆãðÇ ÚÏÏðÇ ãä ÇáÃíÇã ÍíË Ãä ÇáÓÇÚÇÊ¡ æÇáÏÞÇÆÞ¡ æÇáËæÇäí Êßæä ÛíÑ ãØáæÈÉ. ÚäÏãÇ Êßæä ãåÊãðÇ ÝÞØ ÈÇáÃíÇã¡ íãßäß ÇÓÊÎÏÇã ÇáÏÇáÉ ÇáÊÇáíÉ ElapsedDays¡ æÇáÊí ÊÞæã ÈÅÒÇáÉ ÈÚÖ ÇáÊÚáíãÇÊ ÇáÈÑãÌíÉ ÇáÛíÑ ÖÑæÑíÉ ãä ÇáÏÇáÉ ElapsedTimeString

Public Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String
'****************************************************************************************
' Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String
' Returns the time elapsed in days between a starting Date/Time and
' an ending Date/Time formatted as a string that looks like this:
' "10 days" or "1 day".
'****************************************************************************************
Dim interval As Double, days As Variant
If IsNull(dateTimeStart) = True Or _
   IsNull(dateTimeEnd) = True Then Exit Function
interval = dateTimeEnd - dateTimeStart
days = Fix(CSng(interval))
ElapsedDays = IIf(days = 1, days & " Day", days & " Days")
End Function

=ElapsedTimeString([OrderDate],[ShippedDate])

=HoursAndMinutes([TimeOut]-[TimeIn])

Åä ãËÇáí ÇáäãæÐÌ æÇáÊÞÑíÑ ÇááÐÇä íæÖÍÇä äÊíÌÉ ÇÓÊÎÏÇã ÇáÏÇáÊíä ElapsedTimeString æHoursAndMinutes íÈÏæÇä ßãÇ íáí

Åä äãæÐÌ ÕÍíÝÉ ÇáÏæÇã åæ Ýí ÇáæÇÞÚ äãæÐÌ ÕÍíÝÉ ÏæÇã ÎÇÑÌíÉ ãÊÕá ÈÌÏæá "ÇáãæÙÝíä"¡ ãÚ æÌæÏ äãæÐÌ ÝÑÚí áÕÍíÝÉ ÏæÇã ÏÇÎáíÉ ãÊÕáÉ ÈÌÏæá "ÕÍíÝÉ ÇáÏæÇã". áÅäÔÇÁ ÚãæÏ "ÇáÅÌãÇáí" ÇáãÚÑæÖ Úáì äãæÐÌ "ÕÍíÝÉ ÇáÏæÇã"¡ ÝáÊÞã ÃæáÇð ÈÅäÔÇÁ ãÑÈÚ äÕ Úáì ÇáäãæÐÌ ÇáÝÑÚí áÕÍíÝÉ ÇáÏæÇã æÞã ÈÊÓãíÊå¡ Úáì ÓÈíá ÇáãËÇá "SummedHoursMinutes." Ëã¡ Þã ÈÊÚííä ÎÇÕíÉ ãÕÏÑ ÚäÕÑ ÇáÊÍßã Åáì

=HoursAndMinutes(Sum([TimeOut]-[TimeIn]))

=[TimeSheet Subform].Form!SummedHoursMinutes