1<?xml version="1.0" encoding="UTF-8"?> 2 3 4<!-- 5 *********************************************************************** 6 * 7 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 8 * 9 * Copyright 2000, 2010 Oracle and/or its affiliates. 10 * 11 * OpenOffice.org - a multi-platform office productivity suite 12 * 13 * This file is part of OpenOffice.org. 14 * 15 * OpenOffice.org is free software: you can redistribute it and/or modify 16 * it under the terms of the GNU Lesser General Public License version 3 17 * only, as published by the Free Software Foundation. 18 * 19 * OpenOffice.org is distributed in the hope that it will be useful, 20 * but WITHOUT ANY WARRANTY; without even the implied warranty of 21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22 * GNU Lesser General Public License version 3 for more details 23 * (a copy is included in the LICENSE file that accompanied this code). 24 * 25 * You should have received a copy of the GNU Lesser General Public License 26 * version 3 along with OpenOffice.org. If not, see 27 * <http://www.openoffice.org/license.html> 28 * for a copy of the LGPLv3 License. 29 * 30 ************************************************************************ 31 --> 32 33<helpdocument version="1.0"> 34<meta> 35<topic id="textsbasicshared03030101xml" indexer="include" status="PUBLISH"> 36<title id="tit" xml-lang="en-US">DateSerial Function [Runtime]</title> 37<filename>/text/sbasic/shared/03030101.xhp</filename> 38</topic> 39<history> 40<created date="2003-10-31T00:00:00">Sun Microsystems, Inc.</created> 41<lastedited date="2006-10-30T11:41:13">converted from old format - fpe</lastedited> 42</history> 43</meta> 44<body> 45<section id="dateserial"> 46<bookmark xml-lang="en-US" branch="index" id="bm_id3157896"><bookmark_value>DateSerial function</bookmark_value> 47</bookmark> 48<paragraph role="heading" id="hd_id3157896" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03030101.xhp" name="DateSerial Function [Runtime]">DateSerial Function [Runtime]</link></paragraph> 49<paragraph role="paragraph" id="par_id3143267" xml-lang="en-US" l10n="U" oldref="2">Returns a <emph>Date</emph> value for a specified year, month, or day.</paragraph> 50</section> 51<paragraph role="heading" id="hd_id3147264" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> 52<paragraph role="paragraph" id="par_id3149670" xml-lang="en-US" l10n="U" oldref="4">DateSerial (year, month, day)</paragraph> 53<paragraph role="heading" id="hd_id3150792" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> 54<paragraph role="paragraph" id="par_id3150398" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> 55<paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> 56<paragraph role="paragraph" id="par_id3147229" xml-lang="en-US" l10n="U" oldref="8"> 57<emph>Year:</emph> Integer expression that indicates a year. All values between 0 and 99 are interpreted as the years 1900-1999. For years that fall outside this range, you must enter all four digits.</paragraph> 58<paragraph role="paragraph" id="par_id3156280" xml-lang="en-US" l10n="U" oldref="9"> 59<emph>Month:</emph> Integer expression that indicates the month of the specified year. The accepted range is from 1-12.</paragraph> 60<paragraph role="paragraph" id="par_id3151043" xml-lang="en-US" l10n="CHG" oldref="10"> 61<emph>Day:</emph> Integer expression that indicates the day of the specified month. The accepted range is from 1-31. No error is returned when you enter a non-existing day for a month shorter than 31 days. <comment>see i69463</comment></paragraph> 62<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="11">The <emph>DateSerial function</emph> returns the number of days between December 30,1899 and the given date. You can use this function to calculate the difference between two dates.</paragraph> 63<paragraph role="paragraph" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="12">The <emph>DateSerial function</emph> returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1.1.1900, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).</paragraph> 64<paragraph role="paragraph" id="par_id3152576" xml-lang="en-US" l10n="U" oldref="13">If a date is defined that lies outside of the accepted range, $[officename] Basic returns an error message.</paragraph> 65<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="14">Whereas you define the <emph>DateValue function</emph> as a string that contains the date, the <emph>DateSerial function</emph> evaluates each of the parameters (year, month, day) as separate numeric expressions.</paragraph> 66<embed href="text/sbasic/shared/00000003.xhp#errorcode"/> 67<embed href="text/sbasic/shared/00000003.xhp#err5"/> 68<paragraph role="heading" id="hd_id3155411" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph> 69<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleDateSerial</paragraph> 70<paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="17">Dim lDate as Long</paragraph> 71<paragraph role="paragraph" id="par_id3154791" xml-lang="en-US" l10n="U" oldref="18">Dim sDate as String</paragraph> 72<paragraph role="paragraph" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="19">lDate = DateSerial(1964, 4, 9)</paragraph> 73<paragraph role="paragraph" id="par_id3147125" xml-lang="en-US" l10n="U" oldref="20">sDate = DateSerial(1964, 4, 9)</paragraph> 74<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="21">msgbox lDate REM returns 23476</paragraph> 75<paragraph role="paragraph" id="par_id3151074" xml-lang="en-US" l10n="CHG" oldref="22">msgbox sDate REM returns 04/09/1964</paragraph> 76<paragraph role="paragraph" id="par_id3153878" xml-lang="en-US" l10n="U" oldref="23">end sub</paragraph> 77</body> 78</helpdocument> 79