17 lines
976 B
Plaintext
17 lines
976 B
Plaintext
Module CheckIt {
|
|
\\ without *for wide output* we open for ANSI (1 byte per character)
|
|
\\ but here we need it only for the creation of a file
|
|
Open "afile" for output as #f
|
|
Close #f
|
|
Print file.stamp("afile") 'it is a number in VB6 date format.
|
|
date k=file.stamp("afile", -2) // Version 12 has date type, convert number or string to date type
|
|
print k // this has type date but print as string using default system locale date and time format
|
|
\\ day format as for Greece
|
|
Print Str$(File.Stamp("afile"),"hh:nn:ss dd/mm/yyyy") , "utc write time - by default"
|
|
Print Str$(File.Stamp("afile" ,1),"hh:nn:ss dd/mm/yyyy") , "utc write time, 1"
|
|
Print Str$(File.Stamp("afile" ,-1),"hh:nn:ss dd/mm/yyyy"), "local write time, -1"
|
|
Print Str$(File.Stamp("afile" ,2),"hh:nn:ss dd/mm/yyyy"), "utc creation time, 2"
|
|
Print Str$(File.Stamp("afile" ,-2),"hh:nn:ss dd/mm/yyyy"), "local creation time, -2"
|
|
}
|
|
Checkit
|