אחסנת אתר על גבי שרת שנמצא בחו"ל תביא אותנו באיזהשהוא שלב לבעיה שמטרידה את כולנו, תאריך ושעה לא תואמים! גם כל האתרים שנותנים אכסון חינם, כמו: Brinkster, WebSamba, and more... נמצאים בחו"ל ולכן השעה שם היא 7 שעות אחורה. בכדי לסדר את השעה יש לדאוג גם לתאריך ופעולה זו אינה פשוטה כל כך אבל גם לא מסובכת, במיוחד לא מסובכת כשנותנים לכם אותה במתנה, כמו פה :) אז ישבתי וכתבתי פונקציה הנקראת: NewDateTime אשר מקבלת את הפרש השעות וחזירה משתנה NewDate אשר מכיל את התאריך החדש לאחר הפרש השעות ומשתנה NewTime אשר מכיל את השעה החדשה לאחר הפרש השעות. לאחר קריאה לפונקציה, ניתן להשתמש במשתנים אלו.
להלן הקוד של הפונקציה NewDateTime:
Sub NewDateTime(ByVal HoursAdd, ByRef NewTime, ByRef NewDate)
Dim ServerTime
'Turn server time into hh:mm 24-hour format.
ServerTime = FormatDateTime(Time, 4)
'Add the hours to server time and turn into hh:mm 24-hour format.
NewTime = FormatDateTime(Time + CInt(HoursAdd) / 24, 4)
'Check if new time is smaller than server time.
If ( CInt(Mid(NewTime, 1 ,2)) < CInt(Mid(ServerTime, 1, 2)) and HoursAdd > 0 ) Then
'If true, add a day to the date.
NewDate = Date() + 1
Else
'If false, don't touch date.
NewDate = Date()
End If
End Sub
'use it like it:
'NewDateTime(8,the_time,the_date)
'Response "The time is: " & the_time & " and the date is: " & the_date
|