زمان یونیکس - Unix Time

[mobah 132]

سلام بر همگی

میشه کمک بدید تا "زمان یونیکس" رو تبدیل کنم به" تاریخ و ساعت عادی"   و بلعکس     >>>>>   مهمه

 

"زمان یونیکس"       <=>         " تاریخ و ساعت عادی" 

 

مبدل ساعت یونیکس

مبدل زمان یونیکس - Time.is

 

 

زمان کنونی یونیکس

زمان کنونی یونیکس - Time.is

 

 

داخل اکسل فرمول داره ولی تو بیسک4اندروید چطوری میشه 

مثلا تو اکسل شما کد  "زمان یونیکس"  رو از شما میگیره و " تاریخ و ساعت عادی"  به شما میده

فرمول در اکسل :

در A1     مینویسید مثلا :  1545849427

وفرمول در هر جای بنویسید میشه

=(A1/86400)+DATE(1970,1,1)

 

 

لطفا کمک بدید ممنون 

[M-CAP7AIN 537]

 

		Dim DT1 As MC7DateTime
		DT1.Initialize2((1545849427*1000))

1000 -> برای کامل شدن تاریخ

[mobah 132]

تشکر

تقریبا به تاریخ نزدیکه سال و یک روز هم جلو هست

 

لاگ نوشتم

Log( DT1.GrgYear & CRLF & DT1.GrgMonth & CRLF & DT1.GrgDay)

جواب لاگ : 
1969
12
27


جواب واقعی : 
Wed 12 26 2018 22:07:07

 

[M-CAP7AIN 537]

	Dim DateSTR As String = "1545849427"&"000"	
	Dim DateUnix As Long = DateSTR

	
	Dim DT1 As MC7DateTime
	DT1.Initialize2(DateUnix)
	Log( DT1.GrgYear & CRLF & DT1.GrgMonth & CRLF & DT1.GrgDay)

 

	Dim DateUnix As Long = 1545849427
	DateUnix = DateUnix * 1000
	
	
	Dim DT1 As MC7DateTime
	DT1.Initialize2(DateUnix)
	Log( DT1.GrgYear & CRLF & DT1.GrgMonth & CRLF & DT1.GrgDay)

 

[mobah 132]

عالی بود واقعا ممنون

 

کار شما حرف نداره....

 

حالا چطوری یک تاریخ و ساعت عادی رو به "زمان یونیکس" تبدیل کنیم...

مثلا :

Wed 12/26/2018 22:07:07 

که  "زمان یونیکس"  آن  میشه :   1545849427

 

باز هم تشکر

 

 

[M-CAP7AIN 537]

	
	Dim MDF As MC7DateTimeFormat
	MDF.Initialize
	Log(MDF.parseGrg("Wed 12/26/2018 22:07:07" , "E MM/dd/yyyy HH:mm:ss").Time)

 

[mobah 132]

 

 

 

 

 

خیلی لطف کردید

یک تشکر کمه

یک دنیا ممنونم از شما