Changeset 4c3ff30 in tol

Timestamp:

Jun 19, 2009, 10:19:59 AM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

dcc8c8b

Parents:

64bb607

Message:

New function BDate DteNowGmt() : Returns todays date and now GMT time

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1091 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/bbasic

Files:

• dtealgeb.cpp (modified) (1 diff)
• tol_bdate.h (modified) (1 diff)

tol/bbasic/dtealgeb.cpp

@@ -736 +736 @@
     return(BDate(year, month, locTime->tm_mday,
                  locTime->tm_hour, locTime->tm_min, locTime->tm_sec));
+  }
+  else
+  {
+    return(BDate(0, JANUARY, 0));
+  }
+}
+
+//--------------------------------------------------------------------
+BDate DteNowGmt()
+
+/*! Returns todays date and now time.
+ */
+//--------------------------------------------------------------------
+{
+  time_t sec = time(NIL);
+  struct tm* gmTime = gmtime(&sec);
+  if (gmTime)
+  {
+    BMonth month = (BMonth)(gmTime->tm_mon+1); //localtime()returns0-11months
+    BInt year = gmTime->tm_year;   // localtime() returns 99 year
+         year = (year < 1900) ? 1900+year : year;
+    return(BDate(year, month, gmTime->tm_mday,
+                 gmTime->tm_hour, gmTime->tm_min, gmTime->tm_sec));
   }
   else

tol/bbasic/tol_bdate.h

@@ -470 +470 @@
 //! Returns today date
 TOL_API BDate DteToday();
-//! Returns todays date and now time
+//! Returns todays date and now local time
 TOL_API BDate DteNow();
+//! Returns todays date and now GMT time
+TOL_API BDate DteNowGmt();
 //! Returns the date of the Easter's Sunday in the year given as parameter
 TOL_API BDate DteEasterSunday(BInt year);