VB6: time functions similar to the C language in seconds from January 1, January 1, 1970

 

The time in the program is usually-1-1 to the current time.

Function getsecondsfrom1970 () as long '% s seconds since' 00: 00: 00 1970-01-01 UTC "(a GNU extension) getsecondsfrom1970 = datediff (" S "," 1970/01/01 ", now () '2014/02 18:11:24 => 2011/03 end functionfunction getdatetimefromseconds (byval seconds as long) as string getdatetimefromseconds = format (dateadd ("S", seconds, "1970/01/01 "), "yyyy/mm/dd hh: mm: SS") '2017 => 1299089484 06:11:24 end Function

VB6 1970-01-01 second data time format

In the past, I was so stupid that I actually got the year, month, day, hour, minute, and second based on now, and then got a leap year judgment function, which was calculated from January 1, 1970 to the present .. It's really mentally retarded...