ויקיפדיה

חותם זמן – הבדלי גרסאות

עיון אינטראקטיבי בהיסטוריה
→ העריכה הקודמתהעריכה הבאה ←
תוכן שנמחק תוכן שנוסף
חזותיקוד ויקי
Eliran t (שיחה | תרומות)
7,026 עריכות
תגית: שוחזרה
Eliran t (שיחה | תרומות)
7,026 עריכות
תגית: שוחזרה
שורה 44:
dot = "."
 
t = Timer
temp = Int(t)
milliseconds = Int((t-temp) * 1000)
 
'Store DateTimeStamp once.
dtsnow = Now()
 
'Individual date components
hh = Right("00" & Hour(dtsnow), 2)▼
nndd = Right("00" & MinuteDay(dtsnow), 2)
ssmm = Right("00" & SecondMonth(dtsnow), 2)
yy = Year(dtsnow)
▲ hh = Right("00" & Hour(dtsnow), 2)
nn = Right("00" & Minute(dtsnow), 2)
ss = Right("00" & Second(dtsnow), 2)
 
'Build the timedate string in the format hh:yyyy-mm:ss-dd
timevaluedatevalue = hhyy & ":-" & nnmm & ":-" & ssdd
 
'Concatenate both together to build the timestamp yyyy-mm-dd hh:mm:ss:milliseconds ▼
 
dtsvalue = timevalue & dot & milliseconds▼
'Build the time string in the format hh:mm:ss
objTextFile.WriteLine (dtsvalue)▼
timevalue = hh & ":" & nn & ":" & ss
▲ 'Concatenate both together to build the timestamp yyyy-mm-dd hh:mm:ss:milliseconds
▲ dtsvalue = datevalue & " " & timevalue & dot & milliseconds
▲ objTextFile.WriteLine (dtsvalue)
 
objTextFile.Close
אוחזר מתוך "https://he.wikipedia.org/wiki/חותם_זמן"