JoeGarrepy.com Java Script Number, Date & Time Text Input Fields (Java Script versus VBScript examples)

Programming/
Tools
      Oracle
      JavaScript
      C#

Fun Stuff
      Music
      Martial Arts
      Robotech

Other
      Main

DISCLAIMER

This disclaimer is intended to cover all software/freeware, and other various files which are downloadable through or from this site.
Joe Garrepy, isp, and web host can not be held responsible for any software downloaded from this site. All freeware is downloaded at your own risk. Software which is listed on this site is assumed to work properly, but may or may not have different effects on different computer systems. The same rules apply to these programs. Joe Garrepy assumes no responsibility for those unusual occurrences where software has adverse effects on users computer. Joe Garrepy does not warrant these programs/files, and as such, can offer no guidelines in which to use them. All freeware/software/files, trademarks, service marks, and copyrights are acknowledged as belonging to their owners. Any of these which the owner wishes to be removed will be done so immediately. By downloading any software or viewing pages in which software can be downloaded, you agree to be bound to this agreement.

JoeGarrepy.com Java Script Number, Date & Time Text Input Fields (Java Script versus VBScript examples)

The following are examples of how to make fields on a web page that force the user to input Dates or Numbers. For this I originally used VBScript since the two functions IsNumeric and IsDate (I’m a former VB 6.0 programmers so this was fairly easy). As I got into using Java Script I redesigned these functions in Java Script (which was fairly easy for numeric checking but a nightmare to check dates….). Since I work with Oracle most of the time (and the Oracle Web Application Server) the dates are returned in the Oracle format DD-MON-YYYY. Any other date format will be automatically converted to the Oracle Date format on the onBlur event (lostFocus event).

NOTE: This page is still a WIP. I've gotten all this stuff to work in VBScript so now I'm converting it to JavaScript, so as I finish the JavaScript functionality will show up.

VBS Numeric Field

This field Uses VBScript to force the user to enter a number in the field.

VBS Date Field

This field uses VBScript to force the user to enter a date. Most date formats are accepted but all are converted to the Oracle date format of DD-MON-YYYY.

VBS Time Field

This field Uses VBScript to force the user to enter a time in the field the return format is HH:MI AM.

VB Script Portion

<! *** Original by Joe Garrepy (doughjoe77@hotmail.com) ***>
<!-- > Date and Numeric Fields using VBScript </!-->
<SCRIPT LANGUAGE="VBScript">
  <!-- start of VBscript hide from old browsers
    Sub vbs_is_number()
      Dim TheForm
      Dim strVar
      Set TheForm = Document.frm_text
      strVar = TheForm.fld_number.Value
      If strVar <> "" Then
        If IsNumeric(strVar) = FALSE Then
          MsgBox "Please enter a valid number to continue",48,"Invalid Number Entered"
          TheForm.fld_number.focus
        End If
      End If
    End Sub
    Sub vbs_is_date()
      Dim TheForm
      Dim strVar
      Dim strDate
      Dim strDay
      Dim strMonth
      Dim strYear
      Set TheForm = Document.frm_text
      strVar = TheForm.fld_date.Value
      If strVar <> "" Then
         If Len(strVar) < 5 Then
           strYear = Year(Now())
           strVar = strVar & strYear
         End If
         If InStr(1, strVar, "-") < 1 And InStr(1, strVar, "/") < 1 Then
           strVar = Mid(strVar,1,2) & "-" & Mid(strVar,3,2) & "-" & Mid(strVar,5,4)
         End If
         If IsDate(strVar) = FALSE Then
           MsgBox "Please enter a valid date to continue",48,"Invalid Date Entered"
           TheForm.fld_date.focus
         Else
           strMonth = Month(strVar)
           strDay = Day(strVar)
           strYear = Year(strVar)
           Select Case strMonth
             Case "1"
               strMonth = "JAN"
             Case "2"
               strMonth = "FEB"
             Case "3"
               strMonth = "MAR"
             Case "4"
               strMonth = "APR"
             Case "5"
               strMonth = "MAY"
             Case "6"
               strMonth = "JUN"
             Case "7"
               strMonth = "JUL"
             Case "8"
               strMonth = "AUG"
             Case "9"
               strMonth = "SEP"
             Case "10"
               strMonth = "OCT"
             Case "11"
               strMonth = "NOV"
             Case "12"
               strMonth = "DEC"
           End Select
           If Len(strDay) < 2 Then
             strDay = "0" & strDay
           End If
           strDate = strDay & "-" & strMonth & "-" & strYear
           TheForm.fld_date.value = strDate
        End If
      End If
    End Sub
    Sub vbs_is_time()
      Dim TheForm
      Dim strVar
      Dim intMilt
      boolPM = False
      boolAM = False
      Set TheForm = Document.access_modify_form
      strVar = Replace(UCase(Trim(TheForm.fld_time.Value)),":","")
      If InStr(strVar,"A") > 0 Then
        boolAM = True
      Else
        boolAM = False
      End If
      If InStr(strVar,"P") > 0 Then
        boolPM = True
      Else
        boolPM = False
      End If
      strVar = Replace(Replace(Replace(Replace(strVar,"A",""),"P",""),"M","")," ","")
      If Len(strVar) < 3 Then
        strVar = strVar & "00"
      End If
      If Len(strVar) < 4 Then
        strVar = "0" + strVar
      Else
        If IsNumeric(Mid(strVar,1,2))=True Then
          intMilt = Mid(strVar,1,2)
          If intMilt > 12 Then
            boolPM = True
            intMilt = intMilt - 12
            strVar = intMilt & Mid(strVar,3,2)
            If Len(strVar) < 4 Then
              strVar = "0" + strVar
            End If
          End If
        End If
      End If
      strVar = Mid(strVar,1,2) & ":" & Mid(strVar,3,2)
      If Replace(Replace(Replace(strVar,"0",""),":","")," ","") <> "" Then
        IsTime = IsDate(Date & " " & strVar)
        If IsTime = True Then
          If boolPM = True Then
            strVar = strVar & " PM"
          ElseIf boolAM = True Then
            strVar = strVar & " AM"
          Else
            strVar = strVar & " AM"
          End If
          TheForm.fld_time.Value = strVar
        Else
          MsgBox "Please enter a valid time to continue",48,"Invalid Time Entered"
          TheForm.fld_time.focus
        End If
      End If
    End Sub
    -->
</SCRIPT>

VBS Html Portion

// VBS Numeric field
<INPUT TYPE="text" NAME="fld_number" onBlur="vbs_is_number()" SIZE="15" MAXLENGTH="15" STYLE="height:24;margin:0;border: 1 solid black;">

// VBS Date Field
<INPUT TYPE="text" NAME="fld_date" onBlur="vbs_is_date()" SIZE="15" STYLE="height:24;border: 1 solid black;margin:0; padding:2px;" MAXLENGTH="30">

// VBS Time Field
<INPUT TYPE="text" NAME="fld_time" SIZE="8" STYLE="height:24;border: 1 solid;margin:0; padding:2px;" MAXLENGTH="8" onBlur="vbs_is_time();" >

JavaScript Numeric Field

This field Uses JavaScript to force the user to enter a number in the field.

JavaScript Date Field

This field Uses JavaScript to force the user to enter a date in the field. Most date formats are accepted but all are converted to the Oracle date format of DD-MON-YYYY.

JavaScript Portion

<! *** Original by Joe Garrepy (doughjoe77@hotmail.com) ***>
<SCRIPT LANGUAGE="JavaScript">
  function js_is_number(in_item)
  {
    if(in_item.value!="")
    {
      if(isNaN(parseInt(in_item.value)))
      {
         alert("Please enter a valid number to continue");
         in_item.focus();
      }
    }
  }
  function convMonth(in_month)
  {
    var retVar
    switch(in_month)
    {
      case 0:
        retVar = "JAN";
        break;
      case 1:
        retVar = "FEB";
        break;
      case 2:
        retVar = "MAR";
        break;
      case 3:
        retVar = "APR";
        break;
      case 4:
        retVar = "MAY";
        break;
      case 5:
        retVar = "JUN";
        break;
      case 6:
        retVar = "JUL";
        break;
      case 7:
        retVar = "AUG";
        break;
      case 8:
        retVar = "SEP";
        break;
      case 9:
        retVar = "OCT";
        break;
      case 10:
        retVar = "NOV";
        break;
      case 11:
        retVar = "DEC";
        break;
      default:
        retVar = "";
        break;
    }
    return retVar;
  }
  function ConvMonthToNum(in_month)
  {
    var retVar
    switch(in_month.toUpperCase())
    {
      case "JAN":
        retVar = 1;
        break;
      case "FEB":
        retVar = 2;
        break;
      case "MAR":
        retVar = 3;
        break;
      case "APR":
        retVar = 4;
        break;
      case "MAY":
        retVar = 5;
        break;
      case "JUN":
        retVar = 6;
        break;
      case "JUL":
        retVar = 7;
        break;
      case "AUG":
        retVar = 8;
        break;
      case "SEP":
        retVar = 9;
        break;
      case "OCT":
        retVar = 10;
        break;
      case "NOV":
        retVar = 11;
        break;
      case "DEC":
        retVar = 12;
        break;
      default:
        retVar = "";
        break;
    }
    return retVar;
  }
  function js_is_date(in_date)
  {
    var varInDate = in_date;
    var boolSet = false;
    var varDateOra;
    var retVar;
    // convert Oracle date format into something JavaScript can deal with
    if(isNaN(Date.parse(in_date.value)))
    {
      if(in_date.value!="")
      {
        var varDateCheck = in_date.value;
        if(varDateCheck.length==10)
        {
          varDateCheck = "0" + varDateCheck;
        }
        if(ConvMonthToNum(varDateCheck.substring(3,6).replace(" ",""))!="")
        {
          boolSet = true;
          var varDayOra = varDateCheck.substring(0,2).replace(" ","") ;
          if(varDayOra.length==1)
          {
            alter("varDayOra");
            varDayOra = "0" + varDayOra;
          }
          varDateOra = ConvMonthToNum(varDateCheck.substring(3,6).replace(" ","")) + "-"
                       + varDayOra + "-"
                       + varDateCheck.substring(7,12).replace(" ","");
        }
      }
    }
    //
    var varDate = Date.parse(varInDate.value);
    if(boolSet)
    {
      varDate = Date.parse(varDateOra);
    }
    if(in_date.value!="")
    {
      if(isNaN(varDate))
      {
         alert("Please enter a valid date to continue");
         in_date.focus();
      }
      else
      {
        selDate = new Date(varDate);
        var varMonth = selDate.getMonth();
        // figure out day
		var varDay;
		varDay = selDate.toGMTString();
		varDay = varDay.substring(5,7).replace(" ","");
		if(varDay.length==1)
		{
		  varDay = "0" + varDay;
		}
		//
        var varYear = selDate.getYear();
        // return date in the Oracle format of DD-MON-YYYY
        retVar = varDay + "-" + convMonth(varMonth) + "-" + varYear;
        //alert(retVar.length);
        if(retVar.length==10)
        {
          retVar = "0" + retVar;
        }
        in_date.value = retVar;
      }
    }
  }
</SCRIPT>

JavaScript Html Portion

// JavaScript Numberic Field
<INPUT TYPE="text" NAME="fld_js_number" onBlur="js_is_number(this)" SIZE="15" MAXLENGTH="15" STYLE="height:24;margin:0;border: 1 solid black;">
// JavaScript Date Field
<INPUT TYPE="text" NAME="fld_js_date" onBlur="js_is_date(this)" SIZE="20" MAXLENGTH="20" STYLE="height:24;margin:0;border: 1 solid black;">

If you find any bugs or want to contact me I can be reached @ doughjoe77@hotmail.com.