0

我有一个用户界面，可以通过输入面板输入日期。我正在构建面板，如下所示。它是一个 DATEPANEL，因此它会自动添加输入掩码（正斜杠，例如 mm/dd/yyyy）：

RepurchaseDatePanel = oMstrCmp.AddPanel(DATEPANEL)
    oMstrCmp.AddMessage RepurchaseDatePanel,"SALE/REPURCH/MNT Date"
    If IsDate(strRepurchaseDate) Then
        oMstrCmp.AddItems RepurchaseDatePanel, strRepurchaseDate
    End If
        oMstrCmp.MoveVertDivider RepurchaseDatePanel, 75
    oMstrCmp.Panels(RepurchaseDatePanel).CaptionFont.Style = 1

然后，我从面板中获取文本并全局定义字符串，如下所示：

strRepurchaseDate = oMstrCmp.GetText(RepurchaseDatePanel)
strRepurchaseDate = Left(strRepurchaseDate,2) + "/" +Mid(strRepurchaseDate,3,2) + "/" + Right(strRepurchaseDate,2)

接下来，我尝试将该日期以 MMDDYY 格式输入到 3270 仿真器屏幕上。日期面板的格式是 MM/DD/YYYY，我正在尝试将其格式化为 MMDDYY 格式以适应屏幕。以下是我尝试在屏幕上输入它的方式：

subMoveCursor 11, 10        
    If (InStr(1, Trim(strRepurchaseDate), "/") <> 0) Then
        strHold_Date = funcFormatDate(strRepurchaseDate)
        subPressKey "@F"
        subEnterData strHold_date
    End If

我正在使用 funcFormatDate 将面板中的日期从 MM/DD/YYYY 格式格式化为 MMDDYY 格式。下面是funcFormatDate：

Function funcFormatDate(strRepurchaseDate)
   Dim strhld_mm
   Dim strhld_dd
   Dim strhld_yy
   Dim nMM_pos
   Dim nDD_len
   Dim nDD_pos

   nMM_pos   = InStr(1,strRepurchaseDate,"/")

   strhld_mm = Left(strRepurchaseDate,nMM_pos - 1)
   strhld_mm = Right("00" & strhld_mm,2) ' zero fill field upt to 2 pos

   nDD_pos   = InStr(nMM_pos + 1,strRepurchaseDate,"/")
   nDD_len   = (nDD_pos - nMM_pos) - 1

   strhld_dd = Left(strRepurchaseDate,nDD_pos - 1)
   strhld_dd = Mid(strRepurchaseDate,nMM_pos + 1, nDD_len)
   strhld_dd = Right("00" & strhld_dd,2) ' zero fill field upt to 2 pos

   strhld_yy = Right(strRepurchaseDate,2)

   funcFormatDate = strhld_mm & strhld_dd & strhld_yy

End Function

但是，我得到的结果是“0000 //”。当我输入“08/13/2018”时，我总是得到结果“0000//”，就好像该函数正在运行一样，但我没有从面板“获取”文本。我无法从面板获取实际文本以在屏幕上写入“081318”，每次它给我“0000//”。

有人可以帮忙吗？

4

1 回答 1

0

所以，我让它工作了。这个问题很简单，我不知道。我在全局定义了变量 strRepurchaseDate，它也在我的函数中定义以创建用户界面。无论出于何种原因，它都不能同时在函数中和全局定义。我只是从创建用户界面的函数中删除了变量，并且它起作用了。因此 funcFormatDate 用于在使用 DATEPANEL 时重新格式化日期。感谢你的协助。

于 2018-08-14T19:56:16.623 回答