WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Time - Timer and Date Functions
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADSI - ADSI Time to YmdHms Time.wbt

Keywords: 	 ADSI - ADSI Time to YmdHms Time.wbt

#DefineFunction ADSITimeToYmdHms(ht,lt)

   ;100-nanosecond intervals since Jan 1, 1601  (Gregorian Calander?)
   
   ft=BinaryAlloc(8)
   BinaryPoke4(ft,0,lt)
   BinaryPoke4(ft,4,ht)
   
   st=BinaryALloc(16)
   BinaryEODSet(st,16)
   
   dll=strcat(DirWIndows(1),"kernel32.dll")
   
   flag=DllCall(dll,long:"FileTimeToSystemTime",lpbinary:ft,lpbinary:st)
   
   year=BinaryPeek2(st,0)
   month=StrFixLeft(BinaryPeek2(st,2),0,2)
   day=StrFixLeft(BinaryPeek2(st,6),0,2)
   hour=StrFixLeft(BinaryPeek2(st,8),0,2)
   minute=StrFixLeft(BinaryPeek2(st,10),0,2)
   second=StrFixLeft(BinaryPeek2(st,12),0,2)
   BinaryFree(ft)
   BinaryFree(st)
   ymdhms=strcat(year,":",month,":",day,":",hour,":",minute,":",second)
   return (ymdhms)

#EndFunction


Article ID:   W15715
File Created: 2003:05:13:11:29:48
Last Updated: 2003:05:13:11:29:48