xml - 从日期输入面板格式化日期
问题描述
我有一个用户界面,可以通过输入面板输入日期。我正在构建面板,如下所示。它是一个 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//”。
有人可以帮忙吗?
解决方案
所以,我让它工作了。这个问题很简单,我不知道。我在全局定义了变量 strRepurchaseDate,它也在我的函数中定义以创建用户界面。无论出于何种原因,它都不能同时在函数中和全局定义。我只是从创建用户界面的函数中删除了变量,并且它起作用了。因此 funcFormatDate 用于在使用 DATEPANEL 时重新格式化日期。感谢你的协助。
推荐阅读
- javascript - 如何删除字符串javascript中的重复字符
- java - 如何在 ModelMapper 中使用 TypeMap
- javascript - 为什么 nuxt 返回一个 mutate vuex 存储错误
- android - Android子图像视图的框架布局边距始终显示协调器布局中的持久底部工作表行为
- c++ - 记录运行一部分代码并将其存储到 C++ 中的数组需要多少时间
- javascript - 从对象数组中删除定义的键名
- c# - 即使未满足循环条件,程序也会退出
- ubuntu - 带有 NestJS 的 HTTPS 服务器 - Ubuntu - 混合内容
- php - PDOException::("找不到驱动程序") - macOS Big Sur, PSQL
- asp.net-mvc - 如何将值从html页面传递到windows应用程序表单c#?